Предмет: Информатика,
автор: Natashka501
ПОМОГИТЕ ПЖСТА СРОЧНО!!!!! ОЧЕНЬ НАДО!!!!! ДОБАВЛЮ БАЛЛЫ ЗА ПРАВИЛЬНЫЙ ОТВЕТ!!!!!!!
Приложения:
Ответы
Автор ответа:
0
x^{2} 
Автор ответа:
0
Нужно составить программу на Паскале
Автор ответа:
0
var x:integer; y:real;
begin
write('x = '); readln(x);
if (x<1)or(x>5)
then writeln('функция не определена')
else begin
case x of
1 : y:=3*x*x;
2,3,4: y:=100;
5 : y:=sqrt(x);
end;
writeln('y = ',y);
end;
end.
Пример:
x = 2
y = 100
begin
write('x = '); readln(x);
if (x<1)or(x>5)
then writeln('функция не определена')
else begin
case x of
1 : y:=3*x*x;
2,3,4: y:=100;
5 : y:=sqrt(x);
end;
writeln('y = ',y);
end;
end.
Пример:
x = 2
y = 100
Похожие вопросы
Предмет: Литература,
автор: yvge
Предмет: История,
автор: tdorichev
Предмет: История,
автор: Аноним
Предмет: Математика,
автор: tahminatqtq
Предмет: Информатика,
автор: BOCTOK