Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/89: Рейтинг темы: голосов - 89, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 25.09.2012
Сообщений: 54
1

Даны действительные числа. Если A<=B<=C<=D, то каждое число заменить наибольшим из них

25.09.2012, 00:24. Показов 16232. Ответов 3
Метки нет (Все метки)

Даны действительные числа A,B,C,D. Если A<=B<=C<=D, то каждое число заменить наибольшим из них; если A>B>C>D, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.09.2012, 00:24
Ответы с готовыми решениями:

Даны действительные числа a, b, c, d. Если a<=b<=c<=d, то каждое заменить наибольшим из них
Помогите срочно! Хотя бы представьте часть кода где: заменить наибольшим из них Даны...

Если a<=b<=c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них
Приветствую. Помогите пожалуйста решить задачку. Даны целые числа a,b и с. Если a&lt;=b&lt;=c, то все...

Если A<=B<=C<=D, то каждое число заменить наибольшим из них
Даны действительные числа A,B,C,D. Если A&lt;=B&lt;=C&lt;=D, то каждое число заменить наибольшим из них;...

Даны два целых числа, если числа не равны, то заменить каждое из них большим, а иначе заменить оба числа нулям
Даны два целых числа. Если числа не равны, то заменить каждое из них большим, а иначе заменить оба...

3
Master of Orion
Эксперт .NET
6088 / 4944 / 905
Регистрация: 10.07.2011
Сообщений: 14,522
Записей в блоге: 5
25.09.2012, 00:49 2
Nastik23,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure F(var A,B,C,D : integer)
begin
if ((A<B) AND (B<C) AND (C<D)) then begin
   A :=D;
   B :=D;
   C :=D;
end
else if NOT((A>B) AND (B>C) AND (C>D)) then
begin
   A := A*A;
   B := B*B;
   C := C*C;
   D := D*D;
end;
end;
Если ошибся, поправьте люди
0
Модератор
Эксперт по математике/физике
4860 / 3720 / 1273
Регистрация: 30.07.2012
Сообщений: 10,708
25.09.2012, 01:17 3
Цитата Сообщение от Psilon Посмотреть сообщение
Nastik23,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure F(var A,B,C,D : integer)
begin
if ((A<B) AND (B<C) AND (C<D)) then begin
   A :=D;
   B :=D;
   C :=D;
end
else if NOT((A>B) AND (B>C) AND (C>D)) then
begin
   A := A*A;
   B := B*B;
   C := C*C;
   D := D*D;
end;
end;
Если ошибся, поправьте люди
Единственное, что можно добавить - procedure F(var A,B,C,D : integer); <---
0
Master of Orion
Эксперт .NET
6088 / 4944 / 905
Регистрация: 10.07.2011
Сообщений: 14,522
Записей в блоге: 5
25.09.2012, 01:19 4
VSI, просто я на дельфи/паскале уже почти год не писал, а в шарпе, на котором я щас пишу, после методов точка с запятой противопоказана
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.09.2012, 01:19

Даны целые k, l, m. Если числа не равны, то заменить каждое из них квадратами
Даны целые k, l, m. Если числа не равны, то заменить каждое из них квадратами, а если равны, то...

Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных
Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним и тем же числом, равным...

Если числа отрицательны и не равны между собой, то каждое число замените наибольшим из них
Введите с клавиатуры три числа:A,B,C. ЕслиA&gt;B&gt;C&gt;0,то замените все числа их квадратами и выведите...

Даны действительные числа a, b, c. Удвоить эти числа, если a>b>c, и заменить их абсолютными значениями, если это не так
Спасаемпомогаем :) Задача: Даны действительные числа a, b, c. Удвоить эти числа, если a&gt;b&gt;c, и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru