Технический форум - Чтение данных из файла. Free Pascal

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Чтение данных из файла. Free Pascal - Free Pascal

Условия задачи : Несколько школьников выстроились в шеренгу. Для каждого школьника известна дата рождения(день). Требуется: определить номер третьего из школьников, дни рождения которых являются чётными числами. Нужно составить программу, которая будет читать даты рождения школьников из файла (даты записаны в строчку) и результат программы выведет в этот же файл.
Код программы

PHP код:


		
			
var i,k,a:integer; 

p:array[1..60] of integer; 

begin 

Randomize; repeat

writeln('Введите кол-во школьников в шеренге ');

read(a);

until (a>=1)and (a<=60); 

For i:=1 to a do 

begin 

p[i]:=1+Random(31); 

Write(p[i]:2,' '); 

end; 

Writeln; 

Writeln; 

k:=0;i:=1; while(k<>3) and (i<=a) do begin 

If p[i] mod 2=0 then 

k:=k+1; i:=i+1;end;if k=3 then 

Write(i-1:2,' ') else write('net'); 

Writeln; 

Readln; 

end.

Цитата:

Сообщение от kot_ (Сообщение 2483818)

Нужно составить программу, которая будет читать даты рождения школьников из файла (даты записаны в строчку) и результат программы выведет в этот же файл.

Это, конечно, ужжжжжжжасно сложно и безззззззумно трудно. Но я справился.

Код:

var

 i,k,N,p:Byte;

 f:Text;

Begin

 Assign(f,'dataf.txt');

 Rewrite(f);

 Randomize;

 repeat

  write('Enter the number of pupils in the row (N<61): ');

  readln(N);

 until N<=60;

 for i:=1 to N do

  begin

   p:=1+Random(31);

   Write(f,p:3);

  end;

 Writeln(f);

 Writeln(f);

 Close(f);

 Reset(f);

 k:=0;

 i:=1;

 Repeat

  Read(f,p);

  i:=i+1;

  if (p mod 2)=0 then k:=k+1;

 Until (k=3) or (i=N+1);

 Close(f);

 Append(f);

 if k=3 then

  writeln(f,'Pupil N ',i-1)

 else

  writeln(f,'No such pupils');

 Close(f);

End.

FreePascal просили :)

Цитата:

Сообщение от Viewer (Сообщение 2484236)

FreePascal просили

Синтаксис практически одинаковый что у FreePascal, что у TurboPascal, так что Владимир Игоревич всё верно написал.

Цитата:

Сообщение от Viewer (Сообщение 2484236)

FreePascal просили :)

Дык... У меня он и есть. В нём и писано.

А если делать без рандома. Первая строчка в файле - кол-во школьников, вторая - их даты рождения

А в чем проблема переделать? N - количество, p - даты рождения.

Цитата:

Сообщение от AlexZir (Сообщение 2484289)

Синтаксис практически одинаковый что у FreePascal, что у TurboPascal, так что Владимир Игоревич всё верно написал.

А я и не сказал, что Владимир написал неправильно, я сказал, что это не совсем FreePascal.
FreePascal допускает совсем другие возможности - более краткие, интересные, высокоуровенные.

не понятно как проверять чётность после того как удалю рандом

уже разобрался