if a < b then. if b < 0 then c := 3a-b. else c := 4a. else c := 4*b

⇐ ПредыдущаяСтр 2 из 2

a := 10;

b := 5;

b := b*a;

if a < b then

if b < 0 then c := 3*a-b

else c := 4*a

else c := 4*b

3) Определить результат выполнения следующего фрагмента программы a:=10; b:= 25; If a>b then begin max1:=a ; max2:=b end else begin max1:=b; max2:=a end; c:= 25; If c > max1 then begin max2:=max1; max1:=c end else if c > max2 then max2:=c; Writeln (‘max1=’,max1,’; max2=’, max2)

1. Записать следующие условия на языке Pascal:

4.1) Целое число Х оканчивается цифрой 0?

4.2) Хотя бы одно из чисел А или В - отрицательное?

4.3) Точка (х, у) принадлежит первому или третьему квадранту?

10 класс. Домашнее задание № 2. Вариант №4
Тема «Основы программирования. Оператор Условного перехода IF»

1. По следующим фрагментам блок-схем записать фрагменты программ на языке Pascal

2. Определите значение переменной c после выполнения следующего фрагмента программы; a := 10; b := 5; b := b*a; if a < b then if b < 0 then c := 3*a-b else c := 4*a else c := 4*b

3. Определить результат выполнения следующего фрагмента программы

x:=10;

y:= 20;

If x>y then begin max1:=x ; max2:=y end

else begin max1:=y; max2:=x end;

z:= 19;

If z > max1 thenbegin max2:=max1; max1:=z end

else if z > max2 then max2:=z;

Writeln (‘max1=’,max1,’; max2=’, max2)

4. Записать следующие условия на языке Pascal:

4.1) Целые числа Х и У являются взаимно обратными?

4.2) Целое число А является трехзначным число, кратным 5?

4.3) Только одно из чисел А или В нечетное?

⇐ Предыдущая 12

if a < b then. if b < 0 then c := 3*a-b. else c := 4*a. else c := 4*b

if a < b then. if b < 0 then c := 3a-b. else c := 4a. else c := 4*b