Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/12: Рейтинг темы: голосов - 12, средняя оценка - 4.75
Алексей-57
2 / 2 / 0
Регистрация: 20.12.2011
Сообщений: 24
1

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

15.01.2012, 20:31. Просмотров 2205. Ответов 5
Метки нет (Все метки)

Pascal
1
2
type река=(Волга,Ока,Нил,Тигр,Евфрат,Амазонка,Обь,Урал,Лена,Днепр);
var  длинна:array [река] of integer.
Определить самую длинную реку.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.01.2012, 20:31
Ответы с готовыми решениями:

Определить самую длинную змейку
Добрый вечер! Ребят, выручайте, пожалуйста. От сдачи этого задания зависит мой...

Определить самую длинную серию по возрастанию
Помогите пожалуйста решить задачку. Дана последовательность чисел. ...

Файл: Переписать в другой текстовый файл самую короткую и самую длинную строки.
Переписать в другой текстовый файл самую короткую и самую длинную строки.

Найти самую длинную группу цифр
Помогите с данной задачей, пожалуйста. "Дан текст, каждый символ которого может...

Найти самую длинную возрастающую последовательность
В заданном массиве : а) Найти самую длинную возрастающую последовательность...

5
sheldon-yura
30 / 30 / 15
Регистрация: 02.11.2011
Сообщений: 216
16.01.2012, 14:40 2
а что надо вводить: длинну или название реки?
0
Puporev
Модератор
55014 / 42308 / 29214
Регистрация: 18.05.2008
Сообщений: 99,972
16.01.2012, 14:57 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Алексей-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
Алексей-57
2 / 2 / 0
Регистрация: 20.12.2011
Сообщений: 24
16.01.2012, 15:30  [ТС] 4
Program1.pas(4) : Ожидался порядковый тип

пишет ошибку в этой строке
Pascal
1
2
    nz:array[reka] of string[20]=('Волга','Ока','Нил','Тигр','Евфрат',
                                    'Амазонка','Обь','Урал','Лена','Днепр');
Добавлено через 2 минуты
Если сможешь то сделай с выводом саse , а то по любому препод скажет переделовать1
0
zhan313
85 / 85 / 38
Регистрация: 09.12.2011
Сообщений: 174
16.01.2012, 15:34 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
type река=(Волга,Ока,Нил,Тигр,Евфрат,Амазонка,Обь,Урал,Лена,Днепр);
var длинна:array [река] of integer;
i,j:река;
max:integer;
begin
  max:=длинна[Волга]; j:=Волга;
  for i:=Ока to Днепр do
    case max<длинна[i] of
      true: begin max:=длинна[i]; j:=i; end;
    end;
  writeln(j, длинна[j]);
end.
Без заполнения массива, и не знаю какой Pascal возьмет русские наименования и выведет значения такого перечислимого типа.
1
Puporev
Модератор
55014 / 42308 / 29214
Регистрация: 18.05.2008
Сообщений: 99,972
16.01.2012, 16:16 6
Какой тебе смысл что-то писать, если ты рабочий код все равно запустить не можешь. Ну нет у меня в Паскаль АВС никаких ошибок, застрелиться мне что ли?
0
16.01.2012, 16:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2012, 16:16

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

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

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


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

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

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