Текстовый файл (паскаль)

[JIucifeR]

Всем кому не трудно прошу помоч... нужно написать программу которая создает текстовый файл из латинских букв который содержит не меньше 11 строк и Подсчитать сколько из них начинается с буквы "k"

символы генерируются случайно
Сколько символов в строке не имеет значение

[Sazary]

Ну заполнить файл можно как-нибудь так:

numstr := random(10)+11;
for i:=1 to numstr do
 begin
 for j:=1 to random(20)+10 do
  begin
  c := chr(random(26)+65);
  write(file,c);
  end;
 writeln(file);
 end;

Ну а вторая часть: просто считываете построчно и проверяете первый символ.

[JIucifeR]

Сообщение от Sazary

Ну заполнить файл можно как-нибудь так:

numstr := random(10)+11;
for i:=1 to numstr do
 begin
 for j:=1 to random(20)+10 do
  begin
  c := chr(random(26)+65);
  write(file,c);
  end;
 writeln(file);
 end;

Ну а вторая часть: просто считываете построчно и проверяете первый символ.

спасибо! я уже сам разобрался +)

[JIucifeR]

вот кому интересно

program textf;
uses Crt;
var z:string;
    i,j,n,p:byte;
    b,a:string[1];
    myfile:text;
begin
clrscr;
randomize;
assign(myfile,'anton.txt');
rewrite(myfile);
for i:=1 to 11 do
    begin
    str(i,a);
    n:=random(11)+1;
    case n of
         1 : z:='a';
         2 : z:='b';
         3 : z:='c';
         4 : z:='d';
         5 : z:='e';
         6 : z:='f';
         7 : z:='g';
         8 : z:='h';
         9 : z:='i';
         10 : z:='j';
         11 : z:='k';
    end;
    if z='k' then
    p:=p+1;
    writeln(myfile,z);
    end;
close(myfile);
reset(myfile);
writeln('P E C H A T');
while not eof(myfile) do
      begin
      readln(myfile,z);
      writeln(z);
      end;
writeln(#10#13,'kol-vo k sostavlyaet = ',p);
readln;
end.

[Sazary]

JIucifeR, у вас количество 'k' считается на стадии заполнения файла. Лично я понял, что нужно сначала создать файл, а потом уже открыть его для чтения и считать буквы. То есть, как я описал.

Да и сам процесс генерации у вас мне не нравится )