Задача 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;
В ПАСКАЛЕ
N = int(input())
Speed_limit_car_count = 0
all_speed = 0
car_speed = []
i = 0
total = None
YN = None
def list_check(car_speed):
for i in range(len(car_speed)):
if car_speed[i] in range(1, 300):
normal = True
continue
else:
normal = False
break
return normal
if N not in range(1, 31):
print('Wrong input')
else:
while i < N:
car_speed.append(float(input()))
i += 1
normal = list_check(car_speed)
if normal:
for i in range(len(car_speed)):
if car_speed[i] <= 30:
Speed_limit_car_count += 1
for i in range(len(car_speed)):
round(car_speed[i])
all_speed += car_speed[i]
total = all_speed/N
if Speed_limit_car_count >= 2:
YN = 'YES'
else:
YN = 'NO'
else:
print('ERROR IN SPEEDLIST. CHEK INPUT!')
print(total, YN)
Программа протестирована. ctrl+c делать не стоит, сайт нарушает табуляции в коде.
var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.