assign(f, "file.dat");
reset(f);
i := 0;
while (not eof(f)) {
ti := 0;
read(f, ti);
inc(i, ti);
}
close(f);
Решение задачи
1Дан файл F,компоненты которого являются действительными числами.Найти сумму компонентов файла F.
Цитата:
Originally posted by Lidok
Дан файл F,компоненты которого являются действительными числами.Найти сумму компонентов файла F
Дан файл F,компоненты которого являются действительными числами.Найти сумму компонентов файла F
Код:
Цитата:
Originally posted by Proger_XP
Код:
assign(f, "file.dat");
reset(f);
i := 0;
while (not eof(f)) {
ti := 0;
read(f, ti);
inc(i, ti);
}
close(f);
reset(f);
i := 0;
while (not eof(f)) {
ti := 0;
read(f, ti);
inc(i, ti);
}
close(f);
Кажется этот код не для Pascal
впринципе одно и тоже, только после while (not eof(f)) нехватает Do Begin ... End;
PAS:
Лучше будет воротить с типизированным файлом
assign(f, 'file.dat');
reset(f);
n:=0;
For i:=0 To FileSize(f)-1 Do
Begin
read(f,n);
inc(sum,n);
End;
close(f);
_
Цитата:
Originally posted by LastSoul
Кажется этот код не для Pascal
Кажется этот код не для Pascal
Точно ;)
Это гибрид Pascal + Си
Цитата:
Originally posted by Proger_XP
Код:
assign(f, "file.dat");
reset(f);
i := 0;
while (not eof(f)) {
ti := 0;
read(f, ti);
inc(i, ti);
}
close(f);
reset(f);
i := 0;
while (not eof(f)) {
ti := 0;
read(f, ti);
inc(i, ti);
}
close(f);
В условии было сказано про действительные числа, а конструкция inc к ним неприменима.
Ну в таком случае просто написать вместо inc(i, ti); вот ето: i:=i+ti; 8)
_
_
Люди напишите мне полностьбъю задачу!!! Я не могу сама составить какая-то ошибка. Напишите полностью плиз!!!! Буду благодарна за помощь
Цитата:
Originally posted by Lidok
Люди напишите мне полностьбъю задачу!!! Я не могу сама составить какая-то ошибка. Напишите полностью плиз!!!! Буду благодарна за помощь
Люди напишите мне полностьбъю задачу!!! Я не могу сама составить какая-то ошибка. Напишите полностью плиз!!!! Буду благодарна за помощь
Код:
var
f: file of Real;
Sum, d: Real;
begin
Assign(f, 'file.dat');
{$I-}
Reset(f);
{$I+}
if IOResult <> 0 then
WriteLn('Lidok, а у тебя точно есть этот файл file.dat?')
else begin
Sum := 0;
while not EOF(f) do begin
Read(f, d);
Sum := Sum + d;
end;
Close(f);
WriteLn('Сумма компонентов файла равна ', Sum: 10: 2);
end;
ReadLn;
end.
f: file of Real;
Sum, d: Real;
begin
Assign(f, 'file.dat');
{$I-}
Reset(f);
{$I+}
if IOResult <> 0 then
WriteLn('Lidok, а у тебя точно есть этот файл file.dat?')
else begin
Sum := 0;
while not EOF(f) do begin
Read(f, d);
Sum := Sum + d;
end;
Close(f);
WriteLn('Сумма компонентов файла равна ', Sum: 10: 2);
end;
ReadLn;
end.
А эта программка, чтобы состряпать файл с данными.
Код:
var
f: file of Real;
d: Real;
c: string;
begin
Assign(f, 'file.dat');
Rewrite(f);
repeat
Write('Введите число:');
ReadLn(d);
Write(f, d);
Write('Ввести еще? (Y/N)');
ReadLn(c);
until (c = 'N') or (c = 'n');
Close(f);
end.
f: file of Real;
d: Real;
c: string;
begin
Assign(f, 'file.dat');
Rewrite(f);
repeat
Write('Введите число:');
ReadLn(d);
Write(f, d);
Write('Ввести еще? (Y/N)');
ReadLn(c);
until (c = 'N') or (c = 'n');
Close(f);
end.
Народ, помогите написать прогу по двумерному массиву.
Задание такое: найти наибольший из минимальных элементов каждого столбца матрицы А и его координаты в матрице.
Заранее спасибо!
Задание такое: найти наибольший из минимальных элементов каждого столбца матрицы А и его координаты в матрице.
Заранее спасибо!