Контрольная работа по информатике по теме Алгоритмы разветвляющейся структуры

Контрольная работа «Алгоритмы разветвляющейся структуры»

Вариант 1.

1. Запишите условный оператор, в котором значение переменной х вычисляется по формуле (a+b):2, если a - неотрицательное, и 4ab-2a , если a - отрицательное.

2. Какими будут значения переменной х после выполнения программы:

а) при a=4, b=2, c=3;

б) при a=-3, b=4, c=2;

program z2;

var a,b,c,x,y:real;

begin

writeln('vvedite a,b,c');

readln(a,b,c);

if (a>0)and(b>0) then x:=5*(a+b)/4*c else x:=(abs(a)+abs(b))/c;

writeln (x);

if (a<0) or(b<0) then y:=2*(a-b)/2/c else y:=(sqrt(a)-sqrt(b))/c;

writeln(y);

readln;

end.

3. Определите значение логического выражения

1. (0>5)or(6>4)

2. (-3>5)or not(7<9)and(0<3)

4. Составьте блок-схему и программу для решения задачи.

Выведите на экран все положительные из трех данных целых чисел, если таких чисел нет, то выведите соответствующее сообщение.

5. Составьте программу нахождения произведения двух наибольших из трех введенных с клавиатуры чисел.

Контрольная работа «Алгоритмы разветвляющейся структуры»

Вариант 2.

1. Запишите условный оператор, в котором значение переменной y вычисляется по формуле (c-d):10, если d - неположительное, и 5d-4cd, если d - положительное.

2. Какими будут значения переменной y после выполнения программы:

а) при a=9, b=4, c=2;

б) при a=-6, b=2, c=5;

program z2;

var a,b,c,x,y:real;

begin

writeln('vvedite a,b,c');

readln(a,b,c);

if (a>0)and(b>0) then x:=5*(a+b)/4*c else x:=(abs(a)+abs(b))/c;

writeln (x);

if (a<0) or(b<0) then y:=2*(a-b)/2/c else y:=(sqrt(a)-sqrt(b))/c;

writeln(y);

readln;

end.

3. Определите значение логического выражения

1. (0>5)and (6>4)

2. (-3>0)or not(4<2)and(5<10)

4. Составьте блок-схему и программу для решения задачи.

Найти количество отрицательных чисел среди трех целых чисел, введенных с клавиатуры.

5. Составьте программу, которая возводит в квадрат три введенных с клавиатуры числа, если они все положительные, а в противном случае оставляет их без изменения.