Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Массив. Поменять местами второй и предпоследний элемент массива http://www.cyberforum.ru/pascalabc/thread428803.html
поменять местами второй и предпоследний элементы массива.
Pascal ABC графика паскаль По какому принципу рисуется дуга(arc) в pascal abc? читал справку не понял.. сам попробовал, дуга получалась по какому принципу не пойду.. только радиус понятен) Спасибо=) http://www.cyberforum.ru/pascalabc/thread428799.html
Pascal ABC Создать подменю с возвратом к основному меню
нужно сделать меню из 3-ех процедур а четвертым должны быть вызов подменю!!! в подменю тоже 3 процедуры а четвертым пунктом возврат к главному меню!!! как сделать ? Добавлено через 2 часа 1...
Pascal ABC Определить, сколько разрядов будет в числе в двоичной системе исчисления по десятичной
как узнать сколько разрядов будет в числе в двоичной системе исчисления по десятичной ?
Pascal ABC Составить программу для нахождения значение переменной y. http://www.cyberforum.ru/pascalabc/thread428733.html
Составить программу для нахождения значение переменной y. A9 – натуральный логарифм из суммы абсолютных значений элементов массива Х
Pascal ABC две задачи на процедуры 1) Составить программу вычисления суммы N первых чисел натурального ряда при N=5,10,13. 2) Найти минимальное число из 3 чисел, используя процедуру МИН из 2 чисел. На уроке нифига не понял тему... подробнее
Puporev
Модератор
55418 / 42547 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
16.01.2012, 14:57 0

Определить самую длинную реку

16.01.2012, 14:57. Просмотров 2211. Ответов 5
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Алексей-57 Посмотреть сообщение
Определить самую длинную реку.
Это точно не через case находится, а поиском максимального в массиве.

Добавлено через 11 минут
Решается это так. Конечно можно вывод и через case сделать, но это будет 10 строк вместо одной.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
type reka=(vl,ok,nl,tg,ef,am,ob,ur,ln,dn);
const n=9;
      nz:array[reka] of string[20]=('Волга','Ока','Нил','Тигр','Евфрат',
                                    'Амазонка','Обь','Урал','Лена','Днепр');
var d:array[reka] of integer;
    i,imx:reka;
begin
writeln('Введите длины рек:');
for i:=vl to dn do
 begin
  write(nz[i],' = ');
  read(d[i]);
 end;
imx:=vl;
for i:=ok to dn do
if d[i]>d[imx] then imx:=i;
write('Самая длинная река ',nz[imx]);
end.


Вернуться к обсуждению:
Определить самую длинную реку
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2012, 14:57

Найти самую длинную сторону четырехугольника
Найти самую длинную сторону четырехугольника . Координаты вершин известны.

Вывести самую длинную строку файла
Дан текстовый файл f. Вывести самую длинную строку файла. Если в файле имеется...

Найти в строке самую длинную повторяющуюся подстроку
в паскаль найти в строке самую длинную повторяющую подстроку Добавлено через...

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