Возвести в квадрат отрицательные числа и в третью степень – положительные

@Deman222 · Регистрация: 27.05.2009

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

4) Даны 3 целых числа Возвести в квадрат отрицательные числа и в третью степень – положительные ( число 0 не изменять)
с поролем на прогу плз

@Inadequate · 05.01.2010, 16:31

Delphi

var
  a:longint;
...
if a>0 then
  a:=a*sqr(a)
else
  if a<0 then
    a:=sqr(a);
...

@Deman222 · 05.01.2010, 16:33 **[ТС]**

Inadequate, а где прога там тока пола вина

@Inadequate · 05.01.2010, 16:37

Deman222, я Вам написал основу. Писать за Вас я не буду. Этого вполне достаточно, чтобы написать далее самостоятельно.

@Deman222 · 05.01.2010, 16:40 **[ТС]**

Да но я не шарю поэтому и прошу

@Littlelol · 05.01.2010, 18:33

Pascal

Program omg;
var
mas: array[1..3] of real;
i: integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do readln(mas[i]);
for i:=1 to 3 do begin
                 if mas[i]>0 then mas[i]:=sqr(mas[i])*mas[i];
                 if mas[i]<0 then mas[i]:=sqr(mas[i]);
                 end;
for i:=1 to 3 do writeln(i,'-ое число: ',mas[i]);
end.

@Gigazo1d · 07.04.2014, 12:54

С аналогичным заданием не поможете?

Даны три числа. Вычислить корень квадратный из положительных чисел и возвести в третью степень отрицательные числа.

@droider · 07.04.2014, 13:47

Сообщение от Gigazo1d

С аналогичным заданием не поможете?

В чем тогда проблема? Код же есть. Переделайте под задачу.

@Gigazo1d · 07.04.2014, 15:55

Сообщение от droider

В чем тогда проблема? Код же есть. Переделайте под задачу.

Задание отличается, пробовал не смог. В моем задании еще к тому корень квадратный вычислить нужно.

@northener · 07.04.2014, 15:56

Сообщение от Gigazo1d

В моем задании еще к тому корень квадратный вычислить нужно.

В столбик что ли его нужно вычислять?

@droider · 07.04.2014, 16:50

Сообщение от Gigazo1d

пробовал не смог.

покажите, что пытались сделать

@droider 4901 / 2771 / 851 Регистрация: 04.10.2012 Сообщений: 10,095
	07.04.2014, 16:50	11
	Сообщение от Gigazo1d пробовал не смог. покажите, что пытались сделать 0

@Deman222 1 / 1 / 0 Регистрация: 27.05.2009 Сообщений: 62
		1
	Возвести в квадрат отрицательные числа и в третью степень – положительные 05.01.2010, 16:17. Показов 6359. Ответов 10 Метки нет (Все метки) 4) Даны 3 целых числа Возвести в квадрат отрицательные числа и в третью степень – положительные ( число 0 не изменять) с поролем на прогу плз 0

@Deman222 1 / 1 / 0 Регистрация: 27.05.2009 Сообщений: 62
	05.01.2010, 16:33 [ТС]	3
	Inadequate, а где прога там тока пола вина 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	05.01.2010, 16:37	4
	Deman222, я Вам написал основу. Писать за Вас я не буду. Этого вполне достаточно, чтобы написать далее самостоятельно. 1

@Deman222 1 / 1 / 0 Регистрация: 27.05.2009 Сообщений: 62
	05.01.2010, 16:40 [ТС]	5
	Да но я не шарю поэтому и прошу 0

@Gigazo1d 2 / 2 / 0 Регистрация: 10.01.2013 Сообщений: 167
	07.04.2014, 12:54	7
	С аналогичным заданием не поможете? Даны три числа. Вычислить корень квадратный из положительных чисел и возвести в третью степень отрицательные числа. 0

@droider 4901 / 2771 / 851 Регистрация: 04.10.2012 Сообщений: 10,095
	07.04.2014, 13:47	8
	Сообщение от Gigazo1d С аналогичным заданием не поможете? В чем тогда проблема? Код же есть. Переделайте под задачу. 0

@Gigazo1d 2 / 2 / 0 Регистрация: 10.01.2013 Сообщений: 167
	07.04.2014, 15:55	9
	Сообщение от droider В чем тогда проблема? Код же есть. Переделайте под задачу. Задание отличается, пробовал не смог. В моем задании еще к тому корень квадратный вычислить нужно. 0

@northener пофигист широкого профиля 4682 / 3118 / 857 Регистрация: 15.07.2013 Сообщений: 17,985
	07.04.2014, 15:56	10
	Сообщение от Gigazo1d В моем задании еще к тому корень квадратный вычислить нужно. В столбик что ли его нужно вычислять? 0

Опции темы