1.Записать на языке паскаль выражение: x - 20 / cos
1.Записать на языке паскаль выражение:
x - 20 / cos y + 5x y
2.Чему одинаковы значения переменных t и r после выполнения куска программки:
t :=1
if r gt;10then r:=r+1;t:=8;
a) (1,56) при r = 17;
б) (2б) при r = 9.
3.Сколько раз выполнится цикл и что будет на экране после исполнения фрагмента программы.
for i:= - 10 to - 9 do
begin k:=i;write(k);end.
4.Магазин установил скидки покупателям за сумму покупок: от 5 тыщ руб. - 0.5 % от 10 тыщ руб. - 2 %,начиная от 20 тыщ руб. - 5 % сяч з
а) Составить программку,которая для введенного целого числа ( количества тыщ за покупку) выводит на экран процент скидки.
б) Составить программку,которая для 10 введенных с клавиатуры чисел (количества тыщ руб. за покупку 10 покупателей) выводит на экран процент скидки до каждого.
абс(x*x - 20) / Cos(y) + 5*x*sqrt(y)
2)
t :=1
if r gt;10then r:=r+1;t:=8;
a)
При r=17 условие выполняется, значит r возрастет на единицу.
Команды не связаны операторными скобками (begin r:=r+1;t:=8; end),
потому t:=8; выполнится непременно.
r=18; t=8;
б)
При r = 9 условие не производится, потому значение r остается постоянным.
r = 9; t = 8;
3)
for i:= - 10 to - 9 do
begin k:=i;write(k);end.
Цикл For не выполнится ни разу. На экран не будет выведено ничего.
Цикл "For i:= A to B do" производится B-A+1 раз, при условии, что Bgt;=A.
В нём значение i изменяется от A до B, с каждой итерацией прибавляется единица.
Цикл "For i:= A downto B do" выполнится A-B+1 раз, при условии, что Agt;=B
В нём значение i тоже изменяется от A до B, но с каждой итерацией от i отнимается единица.
4)
а)
Var
A:integer;
Begin
Write('Введите сумму покупок: ');ReadLn(A);
if Alt;5 then Write('Скидка не предоставляется')
else if (Agt;=5)and(Alt;10) then Write('Скидка: 0.5%')
else if (Agt;=10)and(Alt;20) then Write('Скидка: 2%')
else Write('Скидка: 5%')
End.
б)
Var
A,i:integer;
Begin
For i:= 1 to 10 do
Begin
Write('Введите сумму покупок: ');
ReadLn(A);
if Alt;5 then WriteLn('Скидка не предоставляется')
else if (Agt;=5)and(Alt;10) then WriteLn('Скидка: 0.5%')
else if (Agt;=10)and(Alt;20) then WriteLn('Скидка: 2%')
else WriteLn('Скидка: 5%')
End
End.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.