Создать текстовый файл. Прочитать его и определить, сколько раз в нём встречается буква «а»

@chifok · Регистрация: 06.06.2010

Создать текстовый файл. Прочитать его и определить, сколько раз в нём встречается буква «а».
вот я написал программу при компиляции все в норме но не запускает пишет exited with exitcode = 2

Pascal

program pr1;
uses crt;
var f1:text;
s:string;
i,k:integer;
begin clrscr;
assign (f1, 'D:\zas\p.txt'); 
reset (f1); k:=0;
while not eof (f1) do begin
readln (f1,s); for i:=1 to length(s) do
if (s[i]='a') or (s[i]='A') then k:=k+1;
writeln(s); end;
writeln('v faile ',k,' Bykv a');
close(f1);
readln;
end.

я сам создал на диске D папку zas в ней САМ создал p.txt может это должна программа создавать или мне надо в это p.txt текст набрать? я пробовал текст в p.txt набирал тоже самое пишет удалил p.txt всеравно прога не работает! посмотрите пожалуйста что не так я же старался!

@Hidalgo08 · 08.06.2010, 15:06

только что набрал в файле такой рандом символов

Pascal

1	//asdasdas

запустил программу твою и выдало такой результат:

Pascal

program pr1;
 
uses
  crt;
 
var
  f1: text;
  s: string;
  i, k: integer;
 
begin
  clrscr;
  assign(f1, 'd:\p.txt');
  reset(f1); 
  k := 0;
  while not eof(f1) do 
  begin
    readln(f1, s); 
    for i := 1 to length(s) do
      if (s[i] = 'a') or (s[i] = 'A') then k := k + 1;
    writeln(s); end;
  writeln('v faile ', k, ' Bykv a');
  close(f1);
  readln;
end.
{в файле 3 буквы а}

@chifok · 08.06.2010, 15:17 **[ТС]**

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

только что набрал в файле такой рандом символов
Код Pascal1 //asdasdas

уважаемый
Hidalgo08, я сам создал p.txt сам написал в него и прога не работает! куда писать то подскажите пожалуйста!

@Hidalgo08 · 08.06.2010, 19:01

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

куда писать то подскажите пожалуйста!

у тебя что не работает, или ошибку выдает?*

@Puporev · 08.06.2010, 19:14

chifok, А что, у Вас файл так и называется p.txt ? извините что спрашиваю, но такое бывает, файл нужно назвать просто р , а расширение .txt программа сама добавляет.

@chifok 1 / 1 / 0 Регистрация: 06.06.2010 Сообщений: 54
	08.06.2010, 15:17 [ТС]	3
	Сообщение от Hidalgo08 только что набрал в файле такой рандом символов Код Pascal1 //asdasdas уважаемый Hidalgo08, я сам создал p.txt сам написал в него и прога не работает! куда писать то подскажите пожалуйста! 0

@Hidalgo08 Идеи становятся силой... 121 / 121 / 64 Регистрация: 08.12.2009 Сообщений: 445
	08.06.2010, 19:01	4
	Сообщение от chifok куда писать то подскажите пожалуйста! у тебя что не работает, или ошибку выдает?* 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	08.06.2010, 19:14	5
	chifok, А что, у Вас файл так и называется p.txt ? извините что спрашиваю, но такое бывает, файл нужно назвать просто р , а расширение .txt программа сама добавляет. 1

Опции темы