Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 17, средняя оценка - 4.71
noyan
1 / 1 / 0
Регистрация: 09.01.2011
Сообщений: 90
#1

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

10.01.2011, 21:06. Просмотров 2196. Ответов 1
Метки нет (Все метки)

Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2011, 21:06
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Возвести в квадрат отрицательные числа и в третью степень — положительные (Turbo Pascal):

Возвести в квадрат отрицательные числа и в третью степень - Turbo Pascal
13. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять). помогите...

Вычислить корень квадратный из положительных чисел и возвести в третью степень отрицательные числа - Turbo Pascal
Всем добрый день, помогите решить задачу с условием: Даны три числа. Вычислить корень квадратный из положительных чисел и возвести в третью...

Возвести в квадрат отрицательные числа, в куб положительные числа - Turbo Pascal
Даны 3 целые числа,возвести в квадрат отрицательные числа,в куб положительные числа.Результат вывести на экран

Массив. Возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу - Turbo Pascal
В массиве A(n), состсящим из целых чисел, возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу.

Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень – отрицательные. - Turbo Pascal
Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень – отрицательные.

Возвести четные отрицательные элементы в третью степень, а нечетные во вторую - Turbo Pascal
я на экзамене) помогите пожалуста! дано: матрица NxN требуется возвести четные отрицательные элементы в третью стеиень, а нечетные...

1
Kirilllll
4 / 6 / 3
Регистрация: 23.03.2010
Сообщений: 77
10.01.2011, 21:51 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var
  ch1, ch2, ch3: longint;
begin
  write('Введите три числа: ');
  readln(ch1, ch2, ch3);
  if (ch1>0) then
    begin
      ch1:= ch1*ch1*ch1;
    end
  else
    begin
      ch1:= ch1*ch1;
    end;
  if (ch2>0) then
    begin
      ch2:= ch2*ch2*ch2;
    end
  else
    begin
      ch2:= ch2*ch2;
    end;
  if (ch3>0) then
    begin
      ch3:= ch3*ch3*ch3;
    end
  else
    begin
      ch3:= ch3*ch3;
    end;
  writeln('1: ', ch1, ' 2: ', ch2, ' 3: ',ch3);
  readln;
  readln;
end.
А вообще можно было немножко своим мозгом подумать!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2011, 21:51
Привет! Вот еще темы с ответами:

Операторы цикла- задача. Возвести в третью степень числа от 1 до 10 - Turbo Pascal
ЗАДАЧА Составить программу возведения в третью степень чисел от 1 до 10 Составить три программы на языке Паскаль для данной задачи, по...

Массив. Возвести в квадрат все нечетные отрицательные, а положительные четные заменить на единицу - Turbo Pascal
В массиве А(n), состоящем из целых чисел, возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу.

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

Все отрицательные числа массива возвести в квадрат - Turbo Pascal
Задание : Разработать модуль, содержащий процедуру формирования массива. ввода, процедуры вычисления произведения четных элементов,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.