Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
2 / 2 / 0
Регистрация: 23.10.2013
Сообщений: 58

Написать процедуру, вычисляющую произведение и частное положительных чисел

09.04.2014, 18:06. Показов 1269. Ответов 1
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
написать процедуру, вычисляющую произведение и частное положительных чисел
ПОМОГИТЕ, ПОЖАЛУЙСТА =(
0
Лучшие ответы (1)
Сообщение: #6023472
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 09.04.2014, 18:06
Ответы с готовыми решениями:

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

Написать программу, вычисляющую произведение последовательности положительных чисел, которые вводятся с клавиатуры
Решение задач с использованием алгоритмов циклической структуры (цикл с предусловием и с постусловием). Написать программу,...

Описать процедуру, вычисляющую среднее арифметическое двух положительных чисел
Ребят нужна помощь, нужно описать процедуру Mean(X, Y, AMean), вычисляющую среднее арифметическое AMean = (X + Y)/2 двух положительных...

1
Модератор
10429 / 5717 / 3404
Регистрация: 17.08.2012
Сообщений: 17,385
09.04.2014, 22:18
Лучший ответ Сообщение было отмечено oksi-xd как решение

Решение

Не по теме:

oksi-xd, ??? Разучились делить и умножать? Или книжки разучились читать?

Вот, без разницы, для каких чисел. Проверка b=0 не сделана.
Pascal
1
2
3
4
5

procedure muldiv(a, b: real; var m, d: real);
begin
  m := a * b;
  d := a / b
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 09.04.2014, 22:18
Помогаю со студенческими работами здесь

Описать процедуру Mean(X, Y, AMean), вычисляющую среднее арифметическое двух положительных чисел
Описать процедуру Mean(X, Y, AMean), вычисляющую среднее арифметическое AMean = (X + Y)/2 двух положительных чисел X и Y (X и Y — входные,...

Определить функцию вычисляющую произведение целых положительных чисел
Доброй ночи. Вот такая задача. Определить функцию (ПРОИЗВЕДЕНИЕ n m), вычисляющую произведение целых положительных чисел. Спасибо

Описать функцию, вычисляющую произведение положительных чисел целочисленного массива
Описать функцию, вычисляющую произведение положительных чисел целочисленного массива. Ввод элементов массива оформить в виде процедуры.

Написать программу вычисляющую среднее геометрическое n положительных чисел
Написать программу вычисляющую среднее геометрическое n положительных чи- сел

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел
Если есть какие то недочеты, то напишите в комментариях. #include <stdio.h> #include <stdlib.h> #include<locale.h> ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
 SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru