Question

Napisac program ktory bedzie dzialal wg ponizszego algorytmu:

1. utworzyc plik ala.txt
2. zapisac do niego imie o ktore spyta wczesniej komputer
3. zamknac plik
4. ponownie go otworzyc i odczytac co w nim jest i wypisac na ekranie w kolorze czerwonym

Answer 1

//licze na naj...

 

 

Program alunia;
uses crt;
var
imie:string;
plik:text;

begin
clrscr;

assign(plik,'ala.txt');
rewrite(plik);
writeln('Podaj imie: ');
readln(imie);
writeln(plik,imie);
close(plik);

assign(plik,'ala.txt');
reset(plik);
readln(plik,imie);
close(plik);

textcolor(red);
writeln(imie);

readln;
end.