4. Если введенное с клавиатуры число положительно, вычислить его квадратный корень.
program jkh;
uses CRT;
var a:Integer;
b:real;
BEGIN
clrscr;
writeln('введите число');
readln(a);
if (a>0)
then b:=sqrt(a);
writeln('b=',b:2:2);
readln;
END.
Полный условный оператор
5. Решить квадратное уравнение.
program jkh;
uses CRT;
var A,B,C,D:Integer;
x,x1,x2:real;
BEGIN
clrscr;
writeln('введите три числа');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if (d<0)
then writeln('Нет корней')
else if (d=0)
then
begin
x:=-b/(2*a);
writeln('x=',x:2:2);
end
else
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln('x1=',x1:2:2);
writeln('x2=',x2:2:2);
end;
readln;
END.
6. Проверить на четность введенное с клавиатуры число.
program jkh;
uses CRT;
var a:Integer;
b:real;
BEGIN
clrscr;
writeln('введите число');
readln(a);
if (a mod 2 = 0)
then writeln('четное')
else writeln('нечетное');
readln;
END.
7. Выполните трассировку программы нахождения максимума двух введенных с клавиатуры чисел.
program jkh;
uses CRT;
var a:Integer;
b:real;
BEGIN
clrscr;
writeln('введите 2 числа');
readln(a,b);
if (a > b)
then writeln('a>b')
else writeln('a<b');
readln;
END.
Трассировка – это пошаговое выполнение программы. Для того, чтобы это сделать, достаточно вместо CTRL-F9 – запуска программы на выполнение, клавишей F8 выполнять пошагово, т.е. каждую строчку. Еще удобно, открыв окно Debug – Watch через клавишу Insert добавить в окно отладки список переменных, используемых в программе (в нашей a,b). Тогда при нажатии клавиши F8 значения этих переменных будет меняться по мере выполнения программы.
|
|
Оператор выбора
8. По введенному номера месяца написать какому времени года он принадлежит.
program new;
uses CRT;
var m:Integer;
BEGIN
clrscr;
writeln('введите номер месяца:');
readln(m);
case m of
1,2,12: writeln('Зима');
3,4,5: writeln('Весна');
6,7,8: writeln('Лето');
9,10,11: writeln('Осень');
end;
readln;
END.
Логический тип
9. Определить значение логического выражения Y = (A and B) or C при A=TRUE, B=FALSE, C=TRUE.
program name;
uses CRT;
var a,b,c,y:boolean;
BEGIN
clrscr;
a:=true; b:=false; c:=true;
y:=(a and b) or c;
writeln('y=',y);
readln;
END.
10. Определить значение логического выражения Z = (A>3) or (B<9) and (C=FALSE) при A,B заданных с клавиатуры, C=FALSE.
program name;
uses CRT;
var a,b:integer;
c,z:boolean;
BEGIN
clrscr;
writeln('Введите 2 числа');
readln(a,b);
c:=false;
z:=(a>3) or (b<9) and (c=false);
writeln('z=',z);
readln;
END.