Как найти частное двух чисел на паскале

Исходник простейшей программы, которая считает простое частное двух, введенных вами с клавиатуры чисел. Открывается программами Pascal ABC, Pascal ABC.Net и Turbo Pascal. Имеет не скомпилированный формат для редактирования .pas. Комментариев в программе нет. Данная программа находит самое обычное частное, без функции остатка, типа 5/2=2,5.

Исходный код программы:

var a, b, c:real;
begin
writeln (‘Введите первое число’);
readln (a);
writeln (‘Введите второе число’);
readln (b);
c:=a/b;
writeln (‘Произведение равно ‘,c);
end.

Скачать: chastnoe-bez-ostatka.pas

Разобраться в коде данной программы Вы можете, изучив Урок №2 — основные операторы, простые действия. Исходник программы для нахождения произведения находится тут.

Дата: 2011-12-17 18:37:31   Просмотров: 10989

Теги: исходник Паскаль

Program DEL;
var
a, b: integer; {Операнды – целые числа}
result: real; {Результат – вещественное число}
Begin
Writeln('Программа вычисляет частное двух целых чисел.');
write ('Введите значение делимого a: '); read(a);
write ('Введите значение делителя b: '); read(b);
if b=0
{Условие выполнено}
then writeln ('Неверные исходные данные: делитель - ноль')
{Условие не выполнено}
else
{Составной оператор нужен для объединения двух команд в единое целое}
begin {Начало составного оператора}
result:=a/b;
writeln ('Частное чисел ', a, ' и ', b, ' = ', result:7:3);
end {Конец составного оператора}
End.

2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:P3PR1

Упражнение 2.
     Вычислить частное двух целых чисел. В связи с тем, что делить на ноль нельзя, организуем контроль ввода данных.

1. Наберите текст программы:

Program CHET;
var
n: integer;
Begin
write ('Введите целое число: ');
readln(n);
write ('Число ', n, ' - ');
if n mod 2=0 then writeln ('четное') else writeln ('нечетное');
End.

Комментарий: для проверки на нечетность можно использовать функцию odd:
if odd(n) then writeln (‘нечетное ‘) else writeln (‘четное’);
2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:P3PR2

Упражнение 3.
     Вывести на печать название дня недели, соответствующее заданному числу D, при условии, что в месяце 31 день и 1-е число – понедельник. Для решения задачи воспользуемся операцией mod, позволяющей вычислить остаток от деления двух чисел, и условием, что 1-е число – понедельник. Если в результате остаток от деления заданного числа D на 7 будет равен 1, то это понедельник, двойке – вторник, тройке – среда и т.д.

1. Наберите текст программы:

Program D_NED;
var
D: byte;
Begin
write ('Введите число D= ');
readln (D);
if D>31 then
writeln ('ОШИБКА ПРИ ВВОДЕ!!!')
else
case D mod 7 of {Вычисляется остаток от деления D на 7}
{В зависимости от полученного значения на печать выводится название дня недели}
1: writeln ('ПОНЕДЕЛЬНИК');
2: writeln ('ВТОРНИК');
3: writeln ('СРЕДА');
4: writeln ('ЧЕТВЕРГ');
5: writeln ('ПЯТНИЦА');
6: writeln ('СУББОТА');
0: writeln ('ВОСКРЕСЕНЬЕ');
{Если результат управляющего выражения превышает 6, то выдается сообщение об ошибке}
end;
End.

2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:P3PR3

Задания уровня 2

1. Составьте программу, которая сравнивает возраст брата и сестры и выводит соответствующее сообщение. Записать программу под именем P3PR4.
2. Составить программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (1; 5). Сохраните программу под именем P3PR5.
3. По заданному номеру месяца m вывести на печать название времени года. Сохраните программу под именем P3PR6.
4. Составьте программу, которая выводит на экран различные приветствия в зависимости от введенного времени. Договоримся, что утро длится с 8 до 12 часов, день – с 12 до 17 часов, вечер – с 17 до 23 часов и ночь – все остальное время. Задачу решить двумя способами: с помощью условного оператора и оператора выбора. Сохраните программу под именем P3PR7.
5. Работник зарабатывает X рублей за 38 часов своей работы. Ему платят в 1,5 раза больше за каждый час сверх 38 часов. Какую сумму он получит, если отработает A часов? Сохраните программу под именем P3PR8.

Задания уровня 3

4. Составить программу, которая проверяет, может ли существовать треугольник с заданными сторонами. Известно, что сумма двух любых сторон должна быть больше третьей. Сохраните программу под именем P3PR9.
5. Даны целые числа a, b, c. Если a ? b ? c, то все числа заменить наименьшим из них, в противном случае сменить знак каждого числа. Сохраните программу под именем P3PR10.
6. Составьте программу решения квадратного уравнения с использованием сложных условий. Сохраните программу под именем P3PR11.
7. Составьте программу, предназначенную для вычисления значения переменной y, где при четных значениях x; y=x2 – 6 при значениях x, кратных 5; y=0 во всех остальных случаях. Сохраните программу под именем P3PR12.
8. Напишите программу, которая при вводе латинской прописной буквы выводит на экран такую же букву, но строчную. Сохраните программу под именем P3PR13. Указание: воспользуйтесь тем фактом, что все латинские прописные буквы расположены в кодовой таблице подряд, по алфавиту, начиная с символа ‘A’ с кодом 65. Строчные буквы также расположены по алфавиту, начиная с символа ‘a’ с кодом 97. Подсказка: для решения обратной задачи существует функция UpCase, которая преобразует строчные буквы латинского алфавита в прописные, но не изменяет другие, то есть:

UpCase(‘p’)=’P’;
UpCase(‘P’)=’P’;
UpCase(‘+’)=’+’;

Контрольные вопросы:
1. Как работает оператор присваивания?
2. Приведите синтаксис оператора присваивания.
3. Что такое ввод данных?
4. Что такое вывод данных?
5. Перечислите формы операторов ввода данных.
6. Перечислите формы операторов вывода данных.
7. Сформулируйте правила записи оператора IF.
8. Что такое вложенный оператор IF?
9. Что представляет собой оператор варианта?
10. В программах какого типа используется оператор варианта?
11. Константы какого типа могут быть использованы в операторе варианта?
12. Какое соответствие должно быть между выражением оператора варианта и его константами?