Var X, y, Res : integer ;
BEGIN
Write ( ‘ Введите делимое: ’);
Readln (x);
Write ( ‘ Введите делитель: ’);
Readln (y);
If y = 0 then
begin
Writeln ( ‘ Деление на ноль! ’);
GOTO metka1;
end;
Res : = x div y;
Writeln ( ‘ Частное равно : ‘, Res : 10 : 3 );
metka1; {метка пустого оператора}
END.
{Вариант № 2 (без оператора GOTO)}
Program DELZEL_1(input,output);
Var X, y, Res : integer ;
BEGIN
Write ( ‘ Введите делимое: ’);
Readln (x);
Write ( ‘ Введите делитель: ’);
Readln (y);
If y < > 0 then
begin
Res : = x div y;
Writeln ( ‘ Частное равно : ‘, Res : 10 : 3 );
end
Else Write ( ‘ Деление на ноль! ’);
END.
Составить программу для вычисления корней
квадратного уравнения: ax2+bx+c=0.
РЕШЕНИЕ
Program CORNI(input,output);
Label 20;
Var a,b,c,d,e,f,X,x1,x2,z:real;
BEGIN
read ( A,B,C);
If A=0 then
begin
X:=(-C)/B;
writeln (X);
goto 20;
end
else
Begin
D : = B*B-4*A*C;
Z : = 2*A; E : = (-B/Z);
End
If D > = 0 then
begin
X1 : = E + F;
X2 : = E – F;
Writeln ( X1,X2 );
end
else writeln ( E, F );
20;
END.
Приложение 2
Примеры использование оператора Case…of.
A) Определить, каким будет значение переменных p и d после выполнения операторов:
p : = true; d : = 1;
Case K mod 10 of
3,2,7,5 : d:=K;
1 : ;
4,8: begin p : = false; d : = 2 end;
9,6: begin p : = false; d : = 3 end
end. {of case}
Если переменная K принимает следующие значения:
|
Результат |
Результат |
||
|
1) K=77; |
{d=77;p = false} |
2) K=91; |
{d=77;p = true} |
|
3) K=236; |
{d=77;p = false} |
4) K=100; |
{d=77;p = true} |
B) Case I of { Выбрать из }
0, 2, 4, 6, 8 : Writeln ( ' Четная цифра ' );
1, 3, 5, 7, 9 : Writeln ( ' Нечетная цифра ' );
10…100 : Writeln ( ' Цифра от 10 до 100 ' )
else
Writeln ( ‘ Отрицательное число или больше 100 ‘ )
end;
С) Составить программу для определения по номеру квадрата значений координат точек, принадлежащих данному квадранту.
Program KVADR(input,output);
Var N : integer;
BEGIN
Writeln ( ‘ Введите номер квадранта N ' );
Read ( N );
Case N of
1: Writeln ( ‘ Значение координат X>0 и Y>0 ' )
2: Writeln ( ‘ Значение координат X<0 и Y>0 ' )
3: Writeln ( ‘ Значение координат X>0 и Y<0 ' )
4: Writeln ( ‘ Значение координат X<0 и Y<0 ' )
end;
END.