Паскаль, файлы, можете проверить?
Имеется текстовый файл. Найти: количество строк, начинающихся с буквы «А» и «а»
program pr1; uses crt; const n=3; var f : text; i,j : integer; str : string; begin clrscr; j:= 0; assign(f,'test.txt'); rewrite(f); for i:=1 to n do begin writeln('Ввeдите словo ',i); readln(str); writeln(f,str); end; close(f); reset(f); while not EoF(f) do begin read(f,str); if (str[1]='A') or (str[1]='a') then j:=j+1; end; close(f); reset(f); while not EoF(f) do begin read(f,str); write(str); end; close(f); writeln; writeln('кол-во: ',j); readln; end. |
2DjDeniels-61
В принципе почти правильно. Но необходимы 3 небольших исправления: в 16 и 8 строках снизу вместо "read" необходимо поставить "readln", а в 7 строке снизу вместо "write" - "writeln", иначе работает некорректно. И вообще, работая с ПОЛНЫМИ строками, т.е. без указания длины, лучше командами "read" и "write" без "ln" не пользоваться - возникнут ошибки. |
Cпасибо))
|
Часовой пояс GMT +4, время: 19:46. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.