Задача 3. Лодка
5 человек садятся в лодку, грузоподъемность которой 300кг. Посадка в лодку производится постепенно – один пассажир за другим (вес пассажиров ввести с клавиатуры). Подсчитать количество человек с весом > 60 кг.
Вывести на экран сообщение о результатах посадки: «Посадка прошла успешно!» или «Лодка утонула», в также количество пассажиров весом > 60 кг.
Вес 1-го пассажира: 79
Вес 2-го пассажира: 90
…
Вес 5-го пассажира: 34
Посадка прошла успешно!
Пассажиров с весом больше 60 кг = 2

Используя заготовки из папки «ship» создать визуализация программы «Лодка».
С помощью цикла организовать погружение лодки по мере посадки пассажиров. А если вес пассажиров стал большее 300 кг – перевернуть лодку.
Дополнительно: создайте код перемещения пассажиров, используя пример ниже.
Самостоятельное движение картинки
begin
for var x:=100 to 450 do
begin
Sleep(2);
p.MoveOn(1,0); // вектор (направление по x, направление по y)
end;
В ПАСКАЛЕ

Популярно: Информатика

• 

  Ринат2006

  06.05.2020 06:44
  Для представления величин составляющих все у меня что-то цело особенно...
• 

  костелои

  16.08.2020 06:37
  1 вопроси растрове и векторне зображення...
• 

  f0xsick

  23.01.2023 05:37
  сделать контрольну з информатики на python...
• 

  Vero23

  28.03.2020 13:52
  Начав тренировки, спортсмен в первый день пробежал 10 км. каждый день...
• 

  Ондруй

  14.03.2020 00:21
  кто знает 47 уровень тому ​...
• 

  Inna050798

  19.02.2020 20:46
  Дан массив, заполненный случайными целыми числами в диапазоне от 0...
• 

  Ewa11

  03.11.2022 00:05
  Как сделать созвездие козерог в логомирах...
• 

  Ариунболор

  18.06.2022 21:46
  The story of the magnificent five … old castle the guide told us about...
• 

  виктория1332

  18.02.2023 21:23
  7: 3=x : 12 как здесь правильно решать?...
• 

  ulianna26

  22.03.2023 01:24
  In the early part of the modern english period the vocabulary was...