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

Only · 17.04.2013, 20:14

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

Дан файл 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

Дан файл f

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

Only · 22.04.2013, 23:09

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

17.04.2013, 20:14	#1 (permalink)
Only Member Регистрация: 24.03.2013 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Работа с файлами, Pascal, нужна помощь Напишите пожалуйста программу по заданию: Дан файл f, элементы которого являются действительными числами. Найти наибольшее из значений модулей элементов с нечетными номерами. Очень нужно, спасибо)

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

17.04.2013, 20:14
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Я думаю, что хорошо было бы поискать решение вопроса в схожих темах Строки, Pascal. Нужна помощь Turbo Pascal. Создание и работа с типизированными файлами Работа с файлами Работа с файлами Нужна помощь в решении задачи Pascal

18.04.2013, 01:11	#3 (permalink)
Only Member Регистрация: 24.03.2013 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Нет, это не подойдёт, нужно чтобы было без текстового документа.

22.04.2013, 23:09	#5 (permalink)
Only Member Регистрация: 24.03.2013 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	нет, вы возможно не поняли меня, но не суть, уже сделал как нужно, спасибо.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070