Лабораторная работа Линейные программы 4 вариант

1) Длина прямоугольного поля равна 4300 м, а его ширина на 1600 м меньше. Найти площадь поля.

CLS
A = 4300
B = A - 1600
Skm = A * B / 1000000
PRINT "Площадь поля равна "; Skm; " км^2"

2) От туристического лагеря до города 84 км. Турист ехал на велосипеде из лагеря в город со скоростью 12 км/ч, а возвращался по той же дороге со скоростью 14 км/ч. На какой путь турист затратил больше времени и на сколько часов?

CLS
S = 84
U1 = 12
U2 = 14
t1 = S/U1
t2 = S/U2
IF t1>t2 THEN
t=t1-t2
PRINT "Из лагеря в город турит затратил больше времени, на "; t; " часов больше"
ELSE
t=t2-t1
PRINT "Из города в лагерь турит затратил больше времени, на "; t; " часов больше"
END IF

3) Грузовик проехал в 1 день 24% намеченного пути, во второй день - 46% пути, а в третий день - остальные 450 км. Сколько километров проехал грузовик?

Den1 = 24
Den2 = 46
Den3 = 100 - (Den1 + Den2)
Z = 450 / Den3
ObshiyPut = Z*100
PRINT "Грузовик проехал "; ObshiyPut; " км"

4) Длина прямоугольного участка, занятого овощами 200 м, а его площадь 1000 м^2. Длина участка, занятого картофелем, 250 м. Найдите площадь этого участка, если у обоих участков ширина одинакова.

DlinaOvoshi = 200
PlosadOvoshi = 1000
ShirinaOvoshi = 5
ShirinaKartoshka = ShirinaOvoshi
DlinaKartoshka = 250
PlosadKartoshka = DlinaKartoshka * ShirinaKartoshka
PRINT "Площадь участка с картошкой равна "; PlosadKartoshka; " м^2"

5) Расход бензина в машине состовляет 15 л на 100 км. Сколько денег заплатит водитель, проехав 766 км, если 1 л бензина стоит 4 рубля.

Rasxod1km = 15/100
Rasxod766km = 766 * Rasxod1km
Stoimost = Rasxod766km * 4
Stoimost =INT (Stoimost*10^2+.5)/10^2
PRINT "Водитель заплатит "; Stoimost; " рублей."

Нашли ошибку?