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

Решенные задачи в Паскаль: условный оператор

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

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)


Поделитесь уроком с коллегами и друзьями:
One Comment

    Славік

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

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

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

*
*


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