Question

Mam to zrobic w jezyku delphi:

utworz procedura ktora zapisze w pliku tekstowym dowolna ilosc wierszy ktore beda zawierac po 2liczby calkowite oddzielone spacja.

Answer 1

Delphi to środowisko, a język to Object Pascal bądź Delphi Language (tak na przyszłość) ;)

Progam:

{$APPTYPE CONSOLE} //niewymagane (chyba, że zamierzamy coś wyświetlać)
Program App;
Procedure Save;
Const FileName = 'liczby.txt';
Count = 10;
Var I: Integer;
F: TextFile;
Begin
AssignFile(F, FileName);
ReWrite(F);
For I := 0 To Count Do
Writeln(F, I,' ',I*2);
Flush(F);
CloseFile(F);
End;
Begin
Save;
End.

 

Działa pod Windowsem, pod Linuxem nie sprawdzałem (nie chce mi się przelogowywać :P). 

 

Edit: zapomniałem, że ma być procedura.