Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 19, средняя оценка - 4.89
Alastor
0 / 0 / 0
Регистрация: 09.10.2013
Сообщений: 35
#1

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

25.10.2013, 13:33. Просмотров 3396. Ответов 1
Метки нет (Все метки)

для четырех произвольных, введенных с клавиатуры, выведите на экран соответствующие результаты.
если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел
если произведение этих четырех чисел больше их суммы, то выведите эти сумму и произведение
если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму
иначе, выведите удвоенные значения этих чисел
составьте соответствующие отладочные примеры и проверьте работу каждой программы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2013, 13:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты (Pascal ABC):

Напишите Паскаль-программу для нахождения суммы 10 произвольных чисел введенных с клавиатуры
Напишите Паскаль-программу для нахождения суммы 10 произвольных чисел введенных...

Расположите в порядке убывания 15 введенных чисел и выведите их на экран
Заранее спасибо!!

Введите с клавиатуры три числа. Если числа равны, то увеличьте их в три раза и выведите результаты на экран
помогите пожалуйста Введите с клавиатуры три числа: X, У, Z, если числа...

Определить, верно ли, что одно из четырех произвольных чисел равно 0
Имеется четыре произвольных числа. При вводе их в ЭВМ она должна ответить на...

Выведите на экран массив A целых чисел, состоящий из 3 строк и 6 столбцов, если для любых i и j выполняется
Выведите на экран массив A целых чисел, состоящий из 3 строк и 6 столбцов, если...

С клавиатуры вводятся n произвольных чисел. сколько среди них положительных, отрицательных и равных 0?
Решите паскаль! Пожалуйста!

1
ildwine
Супер-модератор
2978 / 1853 / 1223
Регистрация: 04.03.2013
Сообщений: 4,557
Записей в блоге: 1
25.10.2013, 18:02 #2
Лучший ответ Сообщение было отмечено Alastor как решение

Решение

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
var
  a, b, c, d : real;
  f1, f2 : boolean;  
begin
  f1 := false;
  f2 := false;
  writeln('введите 4 числа');
  readln(a, b, c, d);
  writeln('введенные вами числа: ', a:5:2, b:5:2, c:5:2, d:5:2);
  {если первое из них отрицательно, а второе вдвое больше третьего,}
  if (a < 0) and (b >= 2 * c) then
  begin
    {то вывводим среднее арифметическое всех четырех чисел}
    writeln('среднее арифметическое четырех чисел: ', ((a + b + c + d) / 4):5:2);
    f1 := true
  end;
  {если произведение этих четырех чисел больше их суммы,}
  if ((a * b * c * d) > (a + b + c + d)) then
  begin
    {то вывводим эти сумму и произведение}
    writeln('сумма чисел: ', (a + b + c + d):5:2, ' произведение чисел: ', (a * b * c * d):5:2);
    f2 := true
  end;
  {если выполняются одновременно два перечисленных выше условия,}
  if f1 and f2 then
  {то вывводим среднее арифметическое этих чисел, их произведение и сумму}
  writeln('среднее арифметическое четырех чисел: ', ((a + b + c + d) / 4):5:2,
    ' сумма чисел: ', (a + b + c + d):5:2, ' произведение чисел: ', (a * b * c * d):5:2)
  else
  {иначе выводим удвоенные значения этих чисел}
  writeln('удвоенные значения четырех чисел: ', (a * 2):5:2, (b * 2):5:2, (c * 2):5:2, (d * 2):5:2) 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2013, 18:02
Привет! Вот еще темы с решениями:

Найти номер наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры
Помогите пожалуйста с задачей Pascal последовательности!:help: Найти номер...

Перемножить 10 чисел, введенных с клавиатуры
нужен код.помогите!!!!:cry:???

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

Для вводимых с клавиатуры 10 чисел вывести на экран их квадраты
6. Вывести значения функции Y=2Х+1 для всех целых Х в интервале от –5 до 5...


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

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

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