Pascal: Проверь себя (решенные задачи, условный оператор if)

Дата изменения: 25 декабря 2019
Решенные задачи в Паскаль: условный оператор

Рассмотрите и решите примеры программ в паскаль, в которых использован условный оператор

Begin 1: Найти расстояние между двумя точками с заданными координатами
(x1, y1) и (x2, y2) на плоскости. Расстояние вычисляется по формуле:

\[ \sqrt {(x2 — x1)^2+(y2 — y1)^2} \]

* Из задачника М. Э. Абрамян (Begin20)
Begin 2: Дан размер файла в байтах. Используя операцию деления нацело,
найти количество полных килобайтов, которые занимает данный файл.

(1 килобайт = 1024 байта)
* Из задачника М. Э. Абрамян (Integer3)
Begin 3: Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). Для нахождения десятков использовать операцию деления нацело (div), для нахождения единиц — операцию взятия остатка от деления (mod).

* Из задачника М. Э. Абрамян (Integer6)
If 1: Даны три числа. Найти сумму двух наибольших из них.

-->

If 2: Написать программу, которая вводит три целых числа в переменные a, b и c, а потом сортирует их так, чтобы в переменной a оказалось наименьшее число, в переменной b – среднее число, а в переменной c – наибольшее число. (Использовать только условный оператор)

If 3: Написать программу, которая вводит три целых числа в переменные a, b и c и находит из них минимальное.

If 4: Даны три числа. Найти сумму двух наибольших из них.

* Из задачника М. Э. Абрамян (If15)

If 5: Даны координаты точки, не лежащей на координатных осях OX и OY. Определить номер координатной четверти, в которой находится данная точка.

* Из задачника М. Э. Абрамян (If22)

If 6: Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:
примеры программ на паскале: условный оператор

* Из задачника М. Э. Абрамян (If26)

Case 1:
Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года. Вывести значения D и M для даты, предшествующей указанной

* Из задачника М. Э. Абрамян (case8)

Один комментарий

    Славік

    Написати програму переведення
    байтів (вводяться з клавіатури) в
    гігібайти.
    будьласка поможіть

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

*
*


Вставить формулу как
Блок
Строка
Дополнительные настройки
Цвет формулы
Цвет текста
#333333
Используйте LaTeX для набора формулы
Предпросмотр
\({}\)
Формула не набрана
Вставить