Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Мила Медведева
0 / 0 / 0
Регистрация: 12.10.2015
Сообщений: 10
#1

Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные - Pascal

15.10.2015, 17:19. Просмотров 212. Ответов 1
Метки нет (Все метки)

Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные.
http://www.cyberforum.ru/pascal/thread682807.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2015, 17:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные (Pascal):

Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) и найти большее из них
Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу...

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

даны три числа, найти большее из них
даны три числа, найти большее из них

даны четыре целых числа.Определить сколько из них нечётные
даны четыре целых числа.Определить сколько из них нечётные.

целые числа,найти большее из них
Народ прошу помочь мне написать ( решить) задачу! :a,b,c - целые ...

1
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,068
18.10.2015, 17:57 #2
Лучший ответ Сообщение было отмечено Мила Медведева как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var x: array [1..4] of double;
    i, imax: integer;
begin
  imax := 1;
  for i := 1 to 4 do
    begin
      write('x', i, ' = ');
      readln(x[i]);
      if x[i] > x[imax] then imax := i
    end;
  writeln('Result:');
  for i := 1 to 4 do
    begin
      if i <> imax
        then x[i] := sqr(sqr(x[i]))
        else x[i] := x[i] * sqr(x[i]);
      writeln('x', i, ' = ', x[i])
    end;
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2015, 17:57
Привет! Вот еще темы с решениями:

Дано четыре числа. Определить , сколько из них имеют знак минус
Привет всем! Я студент 1-го курса радиотехнической специальности , что не...

Даны четырехзначные целые числа. Найти все числа, где все четыре цифры, составляющие число, одинаковы
Всем доброго времени суток.Пожалуйста ,напишите в паскале следующие задачи: ...

Даны четыре натуральных числа. Найти НОД для этих четырех чисел
Даны четыре натуральных числа. Найти НОД для этих четырех чисел. Создать...

Дано слово, состоящее из четного количества букв. Поменять местами первую и вторую, третью и четвертую, пятую и шестую,., буквы
Дано слово, состоящее из четного количества букв. Поменять местами первую и...


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

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

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