Pascal Условные операторы, линейные структуры

3aSkyrim · 12.01.2017, 17:46

Помогите написать программы (pascal)

Евгений · 13.01.2017, 12:57

3.

Код:

uses Crt;
var  a,x:integer;
begin
  ClrScr;
   Write('A = '); Readln(a);
    Write('X = '); Readln(x);
     Writeln;
   if x>0
    then
     if sqr(x)>a
      then Writeln('Y = ',(a+sqr(x)))
      else Writeln('Y =',(sqr(x)-2*a))
    else
     if sqr(x)>a
      then Writeln('Y = ',(sqrt(Abs(x+a))):0:3)
      else Writeln('Y = ',((x-a)/2):0:3);
  ReadKey;
end.

12.01.2017, 17:46	#1 (permalink)
3aSkyrim Новичок Регистрация: 12.01.2017 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 1 раз в 1 сообщении Репутация: 60	Pascal Условные операторы, линейные структуры Помогите написать программы (pascal) Миниатюры

13.01.2017, 12:57	#2 (permalink)
Евгений Member Регистрация: 31.03.2010 Адрес: Тульская область Сообщений: 1,309 Сказал(а) спасибо: 11 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 13090	3. Код: uses Crt; var a,x:integer; begin ClrScr; Write('A = '); Readln(a); Write('X = '); Readln(x); Writeln; if x>0 then if sqr(x)>a then Writeln('Y = ',(a+sqr(x))) else Writeln('Y =',(sqr(x)-2*a)) else if sqr(x)>a then Writeln('Y = ',(sqrt(Abs(x+a))):0:3) else Writeln('Y = ',((x-a)/2):0:3); ReadKey; end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070