Технический форум - Работа с файлами, Pascal, нужна помощь

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Работа с файлами, Pascal, нужна помощь (http://www.tehnari.ru/f43/t87564/)

Only	17.04.2013 20:14

Работа с файлами, Pascal, нужна помощь

Напишите пожалуйста программу по заданию:

Дан файл f, элементы которого являются действительными числами. Найти наибольшее из значений модулей элементов с нечетными номерами.

Очень нужно, спасибо)

Gruvi

18.04.2013 00:46

из файла, считываем числа, определяем элементы с нечетными номерами, далее ищем максимум среди найденных элементов.

Цитата:

uses crt;

var
f:text;
a:array [1..50] of integer;
i,k,max:integer;

begin
clrscr;
writeln('Элементы с нечетными номерами: ');
assign(f,'c:\ch.txt');
reset(f);
while not eof(f) do
begin
read(f,a[k]);
inc(i);
if odd(i) then
write(a[k],' ');
if (a[k]>max) and (odd(i)) then max:=a[k]; end;
writeln;
writeln;
writeln('Максимальный элемент: ');
writeln(max);
readkey;
end

Only	18.04.2013 01:11

Нет, это не подойдёт, нужно чтобы было без текстового документа.

Gruvi

18.04.2013 11:51

У вас же написано что:

Цитата:

Сообщение от Only (Сообщение 897684)

Дан файл f

Да и к тому же, программа работает, а изменить в ней ввод чисел -это элементарщина.

Only	22.04.2013 23:09

нет, вы возможно не поняли меня, но не суть, уже сделал как нужно, спасибо.

Часовой пояс GMT +4, время: 17:23.