Программирование. Pascal ABC.
10-11 класс
|
Задание: Составить задачу с использованием процедуры (соответственно решение тоже нужно).
Решение квадратного уравнения. Из интернета. PROGRAM S; VAR Y1,Y2: REAL ; PROCEDURE SQ (A,B,C : REAL ; VAR X1,X2 : REAL ); VAR D: REAL ; BEGIN D:=B*B-4*A*C; X1:= (-B+ SQRT (D))/(2*A); X2:= (-B- SQRT (D))/(2*A); END ; BEGIN (*PROGRAM*) SQ(1,2,-3,Y1,Y2); WRITELN('Y1=',Y1,'Y2=',Y2); END .
Другие вопросы из категории
любому пользователю. turbo pascal
Дан одномерный
целочисленный массив А, состоящий из N элементов, N- заданное натуральное число, пусть max- наибольшее, min- наименьшее
значения среди элементов массива. Составить одномерный массив В из простых
чисел и сегмента [min,max],которые не являются элементами массива А, записав его
элементы в порядке неубывания. Если таких элементов нет, то выдать соответствующее
текстовое сообщение.
минимальное основание имеет система, если в ней записаны числа 124, 354, 4215?
A) Пятеричной
Читайте также
получить от 5 до 15 баллов (Сгенерить случайные числа
Смотрим фотку!
Спасибо заранее!
p.s.
Где П- произведение.
Дана матрица А[8,8] четных чисел натурального ряда (от 2 до 128).
1)Заполнить и записать матрицу.
2)Определит число элементов больших 18 и меньших 60. заменить их на 0.затем записать получившуюся матрицу.
3)Определить произведение главной диагонали и вывести эти элементы на экран.
4)Реализовать определение суммы элементов любого столбца.
Спасибо.