Лабораторки...

[Alenka93]

Ребятки,милые помогите мне пожалуйста,мне нужно завтра сдать работы по информатике,а я не знаю как их делать,очень прошу,помогите,а то до экзамена не допустят....

Нужно сделать лабораторную работу в Pascal
1)Y=корень 4 степени из /x-2z/
XN=0; XK=2; HZ=0,5;
нужно решить в трех циклах

2)Y=корень 4 степени из/x-2z/
XN=-3; ZK=0; HE=-1;Записать в1) prepeat и for 2)while while

3)
Исходные данные:
m=a*a-b при а < b
ь=b*b-a при а=b
m=0 при а>b

y=5 при m>=0 и a>2b
y=15 при m<=0 и a<=2b
иначе у=0

r=m*y/2
рез-ат:m,y,z/

Очень прошу о помощи,не оставьте хрупкую девушку без поддержки...

[Hacker19_90]

#3

if a < b then m := sqr(a) - b
else if a = b then m := sqr(b) - a
      else m := 0;
if (m >= 0) and (a > (2*b)) then y := 5
else if (m <= 0) and (a <= (2*b)) then y = 15
      else y = 0;
r := m*y/2;

[Alenka93]

она не получается,там пишет,что ошибка в инструкции...я вообще в нем ничего не понимаю...

[Carter]

код правильный. вот полный:

var a,b,m,y,z:real;
begin
 write('a: ');
 readln(a);
 write('b: ');
 readln(b);
 if a<b then m:=sqr(a)-b
  else
   if a=b then m:=sqr(b)-a
    else m:=0;
 if (m>=0) and (a>(2*b)) then y:=5
  else
   if (m<=0) and (a<=(2*b)) then y:=15
    else y:=0;
z:=m*y/2;
writeln;
write('m: ',m);
writeln;
write('y: ',y);
writeln;
write('z: ',z);
readln;
end.

[Carter]

что такое HZ в первом задании и HE с ZK во втором?

[Alenka93]

HZ в первом-это шаг
а во втором НE тоже по-моему шаг и ZK-я не знаю^^

спасибо большое за третье задание,пойду переписывать))