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

Напечатать названия моделей, у которых максимальная скорость превышает 180км/ч

10.05.2017, 19:36. Показов 1881. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

2
129 / 127 / 107
Регистрация: 09.01.2017
Сообщений: 1,651
11.05.2017, 08:40 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
  Model =
  record
    Im: string;
    V: real;
  end;
 
var
  a: array of Model;
  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 > 180
    then begin
      write(a[i].Im, ' ');
      inc(x);
    end;
  
  if x = 0
    then writeln('Моделей с указанной скоростью в списке нет');
  
END.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7779 / 4606 / 2826
Регистрация: 22.11.2013
Сообщений: 13,091
Записей в блоге: 1
11.05.2017, 09:57 3
Другой вариант:
Pascal
1
2
3
4
5
6
var m: Model;
...
  for m in a do with m do
    if v>180 then begin
      WriteLn(Im); Inc(x);
    end;
1
11.05.2017, 09:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2017, 09:57
Помогаю со студенческими работами здесь

Вывести названия моделей машин, если их максимальная скорость больше 180 кмч
Недавно озадачился избыточностью кода, сейчас стал пытаться над этим активно работать. В связи с...

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

Получить названия игрушек, цена которых не превышает 4 рубля
Доброго времени суток всем кто читает. Задали несколько задач написать на Delphi. В нем я не силен,...

Напечатать слова, длина которых максимальная
Сделайте прогу по заданию, а то никак не получается. "Напечатать слова, длина которых...


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

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

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