5ка.РФ

Не забывайте помогать другим, кто возможно помог Вам! Это просто, достаточно добавить одну из своих работ на сайт!


Список категорий Поиск по работам Добавить работу
Подробности закачки

Задача Паскаль

Задача 12. Даны два числа х и у. Найти:


Блок схема алгоритма:


Текст программы:
var
x, y, z: real;
begin
write( 'Enter x: ');
readln( x);
write( 'Enter y: ');
readln( y);

if (x > 0) and (y <=6 ) then
begin
if (x < y) then
z := (x + 0,5)/(1 + y);
else
z := (y + 0,5)/(1 + x);
end
else
z=0;

writeln( 'Result z = ', z :1:8);
writeln( 'To exit press <Enter> key');
readln;
end.

Пояснения к программе:
На запрос оператора write() вводим с клавиатуры значения х и у. Затем проверяется выполнение условия: x > 0 и y ≤ 6, если оно выполняется, то, сравнивая значения х и у, определяем в паре (х, у) минимальное и максимальное значения. Далее вычисляем значение z по формуле z = (x + 0,5)/(1 + y), если x < y и z = (y + 0,5)/(1 + x), если x > y. Если начальное условие x > 0 и y ≤ 6 не выполнилось, то присваиваем z нулевое значение. В завершении программы выводи значение z на экран. Для выхода из программы необходимо нажать клавишу Enter.
Тесты:
N X Y Z
1 1 3 0,375
2 4 2 0,5
3 3 -1 -0,125
4 -4 -1 0
5 -2 7 0





Данные о файле

Размер 38.5 KB
Скачиваний 29

Скачать



* Все работы проверены антивирусом и отсортированы. Если работа плохо отображается на сайте, скачивайте архив. Требуется WinZip, WinRar