Post date: Dec 22, 2015 8:15:53 PM
Проверьте выполнение программ представленных ниже в PascalABC, запишите в тетради их блок схемы, а так же условия этих задач.
Задача №1
begin writeln('Привет, мир!'); end.
Задача №2
var x: integer; c1,c2: integer; begin write('**************: '); readln(x); c1 := x div 10; c2 := x mod 10; writeln('*******************************: ',c1,' ',c2); end.
Задача №3
var a,b: real; c: real; begin write('*************: '); readln(a,b); c := sqrt(a*a+b*b); writeln('*************** = ',c); end.
Задача №4
var n: char; begin write('Think of a number of from 1 to 5 and press Enter'); readln; write('The number more then 3? (y/n) '); readln(n); if n = 'y' then begin write('The number is 4? (y/n) '); readln(n); if n = 'n' then writeln('The number is 5.'); end else begin write('The number is 1? (y/n) '); readln(n); if n = 'n' then begin write('The number is 2? (y/n) '); readln(n); if n = 'n' then writeln('The number is 3.'); end; end; writeln('Guessed!'); end.
Задача №5
var a1, a2, a3: integer; begin write ('Type three numbers: '); readln (a1, a2, a3); if (a1 = a2) or (a1 = a3) or (a2 = a3) or ((a1 = a2) and (a2 = a3)) then writeln('Ошибка') else if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then writeln(a1) else if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then writeln(a2) else writeln(a3); end.