Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Вычислить факториал числа с использованием функций вычисления факториала. https://www.cyberforum.ru/ pascalabc/ thread1047959.html
9. Вычислить факториал числа с использованием функций вычисления факториала. 		Pascal ABC Вывести на экран номера букв, которые являются согласными.
8. Вывести на экран номера букв, которые являются согласными.
Pascal ABC Заменить буквы, стоящие на нечетных позициях сочетание YES. https://www.cyberforum.ru/ pascalabc/ thread1047957.html
7. Заменить буквы, стоящие на нечетных позициях сочетание YES. 		Pascal ABC Подсчитать сколько раз в строке встречается заданная буква 6. Подсчитать сколько раз в строке встречается заданная буква. https://www.cyberforum.ru/ pascalabc/ thread1047956.html
Найти сумму первых n членов ряда Pascal ABC
5. Найти сумму первых n членов ряда 1,1/4,1/9,1/16... 		Pascal ABC Запрашивать фамилии студентов до тех пор, пока не будет введена ваша фамилия . После этого программа останавливается и сообщает вам число студентов, ф 4. Запрашивать фамилии студентов до тех пор, пока не будет введена ваша фамилия . После этого программа останавливается и сообщает вам число студентов, фамилия которых начинается на тут же букву, что и ваша фамилия. https://www.cyberforum.ru/ pascalabc/ thread1047954.html
Pascal ABC Программа запрашивает целые числа, пока пользователь не введет ноль. Просуммировать те из них, которые кратны 3. https://www.cyberforum.ru/ pascalabc/ thread1047953.html
3. Программа запрашивает целые числа, пока пользователь не введет ноль. Просуммировать те из них, которые кратны 3. 		Pascal ABC Вывести на экран первые n чисел Фибоначи
2. Вывести на экран первые n чисел Фибоначи
Pascal ABC Найти сумму элементов массива, состоящего из 12 целых чисел. 7. Найти сумму элементов массива, состоящего из 12 целых чисел. https://www.cyberforum.ru/ pascalabc/ thread1047950.html Pascal ABC Вводится число от 1 до 4, определяющее пору года. Дать название этой поры года (1-зима, 2-весна, 3-лето, 4-Осень) https://www.cyberforum.ru/ pascalabc/ thread1047949.html
6. Вводится число от 1 до 4, определяющее пору года. Дать название этой поры года (1-зима, 2-весна, 3-лето, 4-Осень)
Pascal ABC Создать символьный файл, содержащий все знаки препинания, встретившиеся в текстовом файле(в том же порядке)
5. Дан текстовый файл. Создать символьный файл, содержащий все знаки препинания, встретившиеся, в текстовом файле(в том же порядке). 		Pascal ABC Определить длину каждого предложения в файле https://www.cyberforum.ru/ pascalabc/ thread1047947.html
4. Создать текстовый файл, в который записать три предложения. Прочитать этот файл, вывести его содержимое на экран. Определить длину каждого предложения.
Супер-модератор
6192 / 2938 / 1300
Регистрация: 04.03.2013
Сообщений: 5,780
Записей в блоге: 1
19.12.2013, 07:46 0

Найти наибольшее из трех чисел, используя процедуру нахождения наибольшего из 2 чисел. - Pascal ABC - Ответ 5521124

19.12.2013, 07:46. Показов 14687. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Maxusha как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

var
  a, b, c, t1, t2 : integer;
 
procedure max(x, y :integer; var res : integer);
begin
  if x >= y then res := x else res := y
end;
 
begin
  write('введите 3 числа: ');
  readln(a, b, c);
  max(a, b, t1); {максимальное из a, b - результат t1}
  max(t1, c, t2);
  writeln('максимальное из 3 чисел: ', t2)
end.


Вернуться к обсуждению:
Найти наибольшее из трех чисел, используя процедуру нахождения наибольшего из 2 чисел. Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 19.12.2013, 07:46
Готовые ответы и решения:

Найти меньшее из пяти чисел, используя процедуру нахождения меньшего из трёх чисел
4. Даны пять натуральных чисел b1,b2,b3,b4,b5. Найти МЕНЬШЕЕ из них, используя процедуру нахождения...

Используя функцию нахождения максимума из двух чисел, найти наибольшее из 5 чисел
Используя большее из двух чисел, найти большие из чисел А, В, С, Н, Р. А=1, В=0, С=4, Н=4, Р=3

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

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

1
19.12.2013, 07:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 19.12.2013, 07:46
Помогаю со студенческими работами здесь

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

Найти НОД трёх чисел, используя рекурсивную функцию нахождения НОД двух чисел
Помогите решить. 8. Найти НОД трёх чисел, используя рекурсивную функцию нахождения НОД двух...

Функция нахождения наибольшего из трёх чисел
<script> function max_number(x,y,z) if x>y && x>z alert(x); else if y>z alert (y);...

Составить программу нахождения наибольшего из трех чисел
Язык программирования С++. Составить программу нахождения наибольшего из трех чисел

Процедура/функция нахождения наибольшего из трех чисел
Даны три числа.Напишите процедуру и функцию для вычисление наибольшего из них

Найти среднее арифметическое двух чисел, используя процедуру нахождения среднего арифметического
Найти среднее арифметическое двух чисел, используя процедуру нахождения среднего арифметического.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru