Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Составление и отладка программ разветвляющей структуры
Составление и отладка программ разветвляющей структуры
помогите решить задачу пожалуйста! Составить блок-схему и программу:  Даны действительные числа x,y,z. Получить max(x2,y2,z2).
1 | Автор: zxsa | 2013-10-09, 18:43 | Изменено: zxsa - Ср, 2013-10-09, 18:55   |  Репутация: [ + 0 ]
var
x,y,z:real;
begin
read(x,y,z);
if (x*x > y*y) and (x*x > z*z) then writeln(x*x);
if (y*y > x*x) and (y*y > z*z) then writeln(y*y);
if (z*z > x*x) and (z*z > y*y) then writeln(z*z);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-10-10, 00:48   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Составление и отладка программ разветвляющей структуры
Страница 1 из 11
Поиск: