паскаль. Лінійний оператор.
5-9 класс
|
Людина бажає обклеїти шпалерами довгу стінку в своїй квартирі. Довжина стінки а м, а висота b м. Рулон шпалер має довжину 12 м і ширину 80 см. Скільки будуть коштувати шпалери для всієї стінки, якщо ціна одного рулону k грн.
var
a, b, l, c, k: real;
n: integer;
begin
write('Введите ширину стены a и высоту стены b в метрах: ');
readln(a, b);
write('Введите стоимость рулона обоев k в гривнах: ');
readln(k);
{Определим, какой длины надо иметь полотно при ширине 0.8 м,
чтобы оклеить им всю стенку}
l := a * b / 0.8;
{Определим, сколько потребуется рулонов при длине полотнища 12м}
n := Trunc(l / 12);
if l > 12 * n then n := n + 1;
c := k * n;
writeln('Стоимость обоев составит ', c:0:2, ' грн.')
end.
Тестовое решение:
Введите ширину стены a и высоту стены b в метрах: 6.5 2.6
Введите стоимость рулона обоев k в гривнах: 32.4
Стоимость обоев составит 64.80 грн.
Другие вопросы из категории
электронных базы данных; г) программы, позволяющие сжимать информацию; д) ни одно из выше перечисленного.
10,0111(10)
10,10(2)
75,8(8)
АС,F(16)
Числа в скобках означают основание.
Читайте также
Random и Randomize)
Простейшая программа на Паскале будет выглядеть следующим образом:
program upr;
begin
writeln ( ? ); {оператор вывода строки}
end.
Определи, какая фраза пропущена на месте вопросительного знака?
’Hello, World!’
“Lorem ipsum”
Just Another Perl Hacker
2)В операторе while A do B, на месте B ставится?
3)Сколько раз выполнится цикл
A:=1;
while A<=5 do
A:=A+1;
4)В операторе while A do B; на месте A ставится?
5)Какой оператор в цикле должен присутствовать для правильного его завершения?
6) В какой из циклических структур операторы тела цикла не надо заключать в "операторные скобки"?
7)После выполнения операторов
K:=0;S:=0;
while K>10 do
S:=S+K;
K:=K+2;
Ps. Это все паскаль.
Просто составить,запутался в операторах
Вариант №2
Какие значения чисел:
0.85Е2, -5.7Е-3, 0.1Е4?
Пусть а=245, b=-435, c=35.126. Что будет выведено на экран после выполнения следующих команд:
writeln (‘a’, b, ‘c’); write (‘c=’,c:8:1);
write (‘b= ‘, b:6); writeln ((a+c):9:3, b:4)?
Запишите по правилам языка Паскаль такие выражения:
a)
b)
Вычислить значения выражений:
Round(frac(6.9));
20 mod 6 * 3;
sqrt(trunc(0.5)).
Записать выражения в общепринятой форме:
(-3ab+sqr(b-4*a*c))/sqrt(2*a);
(sqrt(abs(a-b))*sqr(a+b).
Если у – вещественная переменная, а х – целая, то какие из следующих операторов присваивания правильные, а какие нет и почему?
a) y:= y * 2; в) х:= х mod 3 + х*cos(0);
б) x:=trunc(y); г) x:= y+1.