Переписать код с использованием CASE

@Rabb1t · Регистрация: 07.10.2011

Author24 — интернет-сервис помощи студентам

Добрый день

Не могу разобраться с кейсами =\
Нужно переделать вот это код через case

Pascal

Program lab2;
Uses crt;
Var x:real;
 
Begin
Clrscr;
Write('Vvedite znachenie X=');read(x);
If x<=0 then
Writeln('F(x)=0')
Else if x>1 then
        Writeln('F(x)=',x*x:1:4)
        else
        writeln('F(x)=',x:1:4);
        readkey;
End.

Заранее спасибо =)

Комментарий модератора

Теги кода исправлены модератором. Для оформления кода Pascal следует выделить этот код и на панели редактирования сообщения нажать кнопку: "PASCAL".

@!.Ap0$T0L.! · 07.10.2011, 22:14

Pascal

Uses crt;
var x:real;
   n:integer;
 begin
 Clrscr;
 read(x);
 if x>=1 then n:=1 else n:=0;
 case n of
  0:writeln(0);
  1:writeln(x*x:1:4);
 end;
  readkey;
end.

Добавлено через 53 секунды
я сам не очень с кейсами работать умею ну может отак

Добавлено через 15 секунд
я сам не очень с кейсами работать умею ну может отак

	07.10.2011, 22:14