10 / 10 / 0
Регистрация: 20.11.2016
Сообщений: 81
1

Напечатать названия вершин, чья высота превышает 3000 м над уровнем моря

10.05.2017, 19:28. Показов 3089. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Известны сведения о высоте над уровнем моря 15-ти горных вершин. Все значения выражены в метрах выражены в метрах. Напечатать названия вершин, чья высота превышает 3000 м над уровнем моря.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2017, 19:28
Ответы с готовыми решениями:

Определить атмосферное давление в зависимости от высоты над уровнем моря
Вот код программы, мне надо чтобы в первом вводе с клавиатуры ReadLn(o); введенные числа были от...

Напечатать названия моделей, у которых максимальная скорость превышает 180км/ч
Известны максимальные скорости 20-ти моделей легковых автомобилей. Все значения выражены в км/ч....

Напечатать название вершин, чья высота превышает 3000м над уровнем моря
Известны сведения о высоте над уровнем моря 15-ти горных вершин. все значения выражены в метрах. ...

Напечатать название вершин, чья высота превышает 3000м над уровнем моря.
Известны сведения о высоте над уровнем моря 15-ти горных вершин.Все значения выражены в метрах....

1
129 / 127 / 107
Регистрация: 09.01.2017
Сообщений: 1,651
10.05.2017, 23:25 2
Лучший ответ Сообщение было отмечено sibex11 как решение

Решение

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
25
26
27
28
29
30
31
32
33
34
35
36
37
type
  Erde =
  record
    Im: string;
    V: integer;
  end;
 
var
  a: array of Erde;
  i, n, x: integer;
 
BEGIN
  writeln('Введите кол-во вершин: ');
  readln(n);
  
  SetLength(a, n);
  
  for i := 0 to n - 1 do
  begin
    writeln('Введите название ', i + 1, '-й вершины: ');
    readln(a[i].Im);
    writeln('Введите высоту ', i + 1, '-й  вершины: ');
    readln(a[i].V);
  end;
  
  x := 0;
  for i := 0 to n - 1 do
    if a[i].V > 3000
    then begin
      write(a[i].Im, ' ');
      inc(x);
    end;
  
  if x = 0
    then writeln('Вершин указанной высоты в списке нет');
  
END.
1
10.05.2017, 23:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2017, 23:25
Помогаю со студенческими работами здесь

Напечатать название вершин, чья высота превышает 3000м над уровнем моря
Известны сведения о высоте над уровнем моря 15-ти горных вершин.Все значения выражены в метрах....

Высота над уровнем моря
Гуглил, кроме GPS ничего не нашел, а на нем с высотой говорят погрешность большая. Подумал о такой...

Даны сведения о высоте над уровнем моря 8 горных вершин
1) Даны сведения о высоте над уровнем моря 8 горных вершин. Все значения выражены в метрах....

Найти плотность воздуха P на определенной высоте над уровнем моря
Найти плотность воздуха P на высоте h=1,2...n км над уровнем моря, используя формулу P=pow(Po*M_E,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru