Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лабораторная работа / Текст лабы 2
.2.txt Program lab_2.2;
Const a=2;
Var x,y: integer;
Begin
Writeln ('Введите число х');
Readln (x);
Case x of
0..9: y:=x+a;
10..20: y:=x-a;
21..29: y:=Sqr(x);
31..59: y:=Sqr(a)+x;
else y:=Sqr(x)+Sqr(a);
End;
Writeln ('y= ',y);
End.
x=0; y=2
x=10; y=8
x=21; y=441
x=31; y=35
x=60; y=3604
Const a=2;
Var x,y: integer;
Begin
Writeln ('Введите число х');
Readln (x);
Case x of
0..9: y:=x+a;
10..20: y:=x-a;
21..29: y:=Sqr(x);
31..59: y:=Sqr(a)+x;
else y:=Sqr(x)+Sqr(a);
End;
Writeln ('y= ',y);
End.
x=0; y=2
x=10; y=8
x=21; y=441
x=31; y=35
x=60; y=3604
Соседние файлы в папке лабораторная работа