Образовательный форум - онлайн помощь в учебе

Помощь в решении задач => Программирование => Тема начата: Астасья от 04 Апреля 2011, 17:04:57

Название: Pascal.Файлы(СРОЧНО)
Отправлено: Астасья от 04 Апреля 2011, 17:04:57

Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).

я создала файл.Что дальше не знаю.Помогите :(

program fil;
uses crt;
var f:text;
a:array [1..5,1..5] of integer;
i,j,s:integer;
begin
clrscr;
for i:=1 to 2 do
for j:=1 to 2 do
begin
a[i,j]:=random(9)
end;
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(a[i,j]:2);writeln;
end;
assign(f,'5.1.txt');
rewrite(f);
for i:=1 to 2 do
for j:=1 to 2 do
writeln(f, a[i,j]);
close(f);

Название: Re: Pascal.Файлы(СРОЧНО)
Отправлено: XTen от 04 Апреля 2011, 23:01:09

Пиши, реализу! ICQ#: 410-691-984