Помогите написать программу в Pascal

Ирина · 05.12.2012, 15:49

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

Léon · 05.12.2012, 18:59

Цитата:

Сообщение от Ирина

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

Код:

program RESHENIE;
uses crt;
var
a, b, c, ak, bk, ck: real;
begin
clrscr;
writeln ('a,b,c');
readln (a,b,c);
if a<0 then
begin
a:=a*-1;
ak:=exp(ln(a)*4);
end
else
ak:=exp(ln(a)*3);
if b<0 then
begin
b:=b*-1;
bk:=exp(ln(b)*4);
end
else
bk:=exp(ln(b)*3);
if c<0 then
begin
c:=c*-1;
ck:=exp(ln(c)*4);
end
else
ck:=exp(ln(c)*3);
writeln (ak:6:3);
writeln (bk:6:3);
writeln (ck:6:3);
readln;
end.

Ирина · 05.12.2012, 19:46

СПАСИБО!!)))

05.12.2012, 15:49	#1 (permalink)
Ирина Новичок Регистрация: 05.12.2012 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите написать программу в Pascal Нужно написать программу, которая по заданным трем действительным числам возводит в куб те из них, значения которых неотрицательны, и в четвертую степень - отрицательные.

05.12.2012, 19:46	#3 (permalink)
Ирина Новичок Регистрация: 05.12.2012 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	СПАСИБО!!)))

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