Ветвление на Паскале

Контрольная работа «Ветвление»

Вариант 1

Задание: Составьте программы на языке Pascal. В интерфейсе своих программ используйте операторы цвета текста, фона и перемещения курсора.

1. Вычислить значения функции:

1. Определить, имеется ли среди двузначных положительных целых чисел а, b и c, заданных случайным образом, хотя бы одно четное. Полученные числа выводить на экран.

2. Определить, можно ли построить треугольник из отрезков с длинами х, у, z длины отрезков задаются случайным образом.

3. Пять целых чисел заданы случайным образом. Найти количество положительных и количество отрицательных чисел в исходном наборе. Полученные числа выводить на экран.

4. Найти корни квадратного уравнения и вывести их на экран, если они есть. Если корней нет, то вывести сообщение об этом. Конкретное квадратное уравнение определяется коэффициентами a, b, c, которые задаются случайным образом. Полученные числа выводить на экран.

Контрольная работа «Ветвление»

Вариант 2

Задание: Составьте программы на языке Pascal. В интерфейсе своих программ используйте операторы цвета текста, фона и перемещения курсора.

1. Вычислить значения функции:

1. Определить, имеется ли среди двузначных положительных целых чисел а, b и c, заданных случайным образом, хотя бы одно нечетное. Полученные числа выводить на экран.

2. Из трех чисел, заданных случайным образом, возвести в квадрат положительные, а отрицательные оставить без изменения. Полученные числа выводить на экран.

3. Определите стоимость разговора по телефону с учётом скидки в 30%, если разговор длился более 10 мин. Исходные данные: длительность разговора и стоимость 1 минуты.

4. Определить, можно ли построить треугольник из отрезков с длинами х, у, z длины отрезков задаются случайным образом. Полученные числа выводить на экран. Программа должна выводить соответствующее текстовое сообщение. Если такой треугольник существует, то определить, является ли он разносторонним, равнобедренным или равносторонним.