Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Alkcatras
0 / 0 / 0
Регистрация: 06.11.2011
Сообщений: 31
1

Текстовый файл. Найти максимальный элемент в каждой строк, номер данного числа

31.03.2012, 12:20. Просмотров 649. Ответов 1
Метки нет (Все метки)

помогите сделать программу:
Дан текстовый файл, содержащий целые числа. Найти:
а) максимальный элемент в каждой строке;
б) номер данного числа (если такого нет в данной строке, то сообщить об этом).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 12:20
Ответы с готовыми решениями:

Файлы. Дан файл, содержащий числа. Найти максимальный элемент каждой строки
1.Дан файл, содержащий числа. Найти максимальный элемент каждой строки.

Среди элементов каждой строки матрицы, отличных от данного B, найти наибольший элемент и его номер
Задана матрица размерности M*N. Среди элементов каждой строки, отличных от...

Дан файл,заполненный целыми числами. Найти максимальный элемент каждой строки
Дан файл,заполненный целыми числами. Найти максимальный элемент каждой строки.

Дан текстовый файл F. Переписать файл F в файл G, вставляя в конец каждой строки ее порядковый номер.
решите)

В квадратной матрице 6х6 найти максимальный элемент, который лежит на побочной диагонали и максимальный элемент в каждой строке матрицы
В квадратной матрице 6х6 найти максимальный элемент, который лежит на...

1
Alteisen
20 / 20 / 15
Регистрация: 31.03.2012
Сообщений: 28
31.03.2012, 19:59 2
Лучший ответ Сообщение было отмечено Alkcatras как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program poisk;
var a,b,c,n,m,s,i: integer;
    f1: text;
begin
assign(f1,'c:\... .txt');                        
reset(f1);
while not SeekEof(f1) do begin
i:=i+1;
n:=0;
c:=0;
while not SeekEoln(f1) do begin
n:=n+1;
a:=c;
read(f1,b);
if a-b<0 then c:=b;
if c=b then m:=n;
if a=b then s:=b;
end;
if s-c=0 then writeln('строка ',i,'  макс. элемента не существует')
else
writeln('строка ',i,'  порядковый номер ',m,'  макс. элемент строки ',c);
end;
close(f1);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2012, 19:59

Дан текстовый файл содержащий вещественные числа по одному в каждой строке. Поместить эти числа в другой файл
Дан текстовый файл содержащий вещественные числа по одному в каждой строке....

Дан текстовый файл. Вставить в начало каждой строки ее номер
1. Пусть дан файл вещественных чисел. Создайте файл, компонентами которого...

Найти максимальный элемент каждого столбца и минимальный элемент каждой строки
В матрице размером NxN найти макс элемент каждого столбца и мин элемент каждой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru