Matematické Fórum
Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
#1 08. 04. 2011 18:03
Převod textu na typový soubor
Mám textový soubor kde jsou 0,1. Tento textový soubor mam převést na typový a 0 nahradit řeťezcem žena, 1 pak muž. Prosím poraďte mi, nevím jak dál. Díky :-)
Code:
program osoby;
uses crt;
type clovek = record
pohlavi:boolean;
end;
var F:text;
lide:file of clovek;
osoba:clovek;
begin
clrscr;
assign(F,'H:\DATA.txt');
reset(F);
assign(lide,'H:\data.typ');
rewrite(lide);
while not eof(F) do
begin
readln(F,osoba.pohlavi);
write(lide,osoba);
end;
close(lide);
close(F);
readln;
end.Offline
#2 08. 04. 2011 18:26
- Lumikodlak
- Místo: Praha
- Příspěvky: 212
- Pozice: Programator nebo tak neco :-)
- Reputace: 19
Re: Převod textu na typový soubor
Pravdepodobne budes potrebovat v tom while cyklu neco podobneho:
Code:
read(F,znak);
if znak = '0' then osoba.pohlavi := false;
if znak = '1' then osoba.pohlavi := true;
if (znak = '0') or (znak = '1') then write(lide,osoba);(Ten znak definovany jako char)
Offline