написать блок-схему и программу с использованием оператора выбора варианта согласно заданию. Закажите билет на авиарейс. Киев – в одном направлении 500гр, в двух направлениях -750гр. Харьков - в одном направлении 400гр, в двух направлениях -600гр. Донецк - в одном направлении 350гр, в двух на- правлениях -550гр. Львов - в одном направлении 600гр, в двух направле- ниях - 900гр. Если билет заказывается за 45 суток – скидка 20%, за 20 суток – скидка 10%. Определить стоимость заказа. Предусмотреть обработку ошибок ввода.
Паскаль
var
x, s, a: real; //описание переменных вещественного типа
i: integer; //описание переменных целого типа
begin
readln(x); ввод переменной x через клавиатуру
a := x; переменной a присваивается знчение переменной x
s := a; переменной s присваивается знчение переменной a
for i := 2 to 13 do //цикл for выполняется пока переменная i не станет больше 13
if i mod 2 = 1 then begin если i mod 2 = 1 истино то выполняется блок программы ниже
a := a * (-1) * x * x / ((i - 1) * i);
s := s + a;
end;
writeln(s); вывод переменой s
end.
a,i,b:integer; //мы определяем три переменные целого типа
//a, i, b = равняются нулю
begin
readln(a); //вводиться с клавиатуры переменная a
while (b>0) do //это цикл с предусловием,
//по условие в цикле истино, цикл продолжает работать
//если условие ложно происходит выход из цикла
begin
for i:=2 to a do //цикл for - цикл выполняется пока переменная i=2 не станет больше переменной а, прикаждой итерации(шаг) переменная i увеличивается на 1
begin
if (a mod i=0) then b:=b+1; if условие если a mod i=0 истино, то
выполняется b:=b+1
//mod -остаток от деления
//a mod i=0 если при делении a на i остаток будет равен 0, то условие истино
end;
a:=a+1; //увеличение переменной a на 1
end;
writeln(a); вывод переменной a
end.
код находящийся между
begin
end;
это тело цикла или условия, и данный кусок программы выполняется до end; и после этого снова обращается к строчке перед begin