Информатика

Написать блок схему для этой программы var x1, y1, x2, y2, x3, y3, firsts, seconds, thirds: real; begin readln(x1,y1,x2,y2,x3,y3); firsts : = sqrt(...

Написать блок схему для этой программы
var
x1, y1, x2, y2, x3, y3, firsts, seconds, thirds: real;
begin
readln(x1,y1,x2,y2,x3,y3);
firsts : = sqrt(x1*x1+y1*y1);
seconds : = sqrt(x2*x2+y2*y2);
thirds : = sqrt(x3*x3+y3*y3);
if (firsts> seconds) then
if (firsts> thirds) then
writeln(x1,' ',y1)
else
writeln(x3,' ',y3)
else
if (seconds> thirds) then
writeln(x2,' ',y2)
else
writeln(x3,' ',y3);
end.

Другие вопросы по Информатике

Предмет
Информатика, 10.03.2019 03:50, катерринкаа
Cколько бит в 3/4 кбайта? (с решением)
Ответов: 3
Предмет
Информатика, 10.03.2019 06:20, Hicoleta
Дана матрица целых чисел размером 5х3. определить максимальный и мини-мальный элемент матрицы. результат вывести на экран монитора. только надо чтобы выводилась матрица для того чтобы было видно откуда берется
мин и max
Ответов: 3
Предмет
Информатика, 14.03.2019 23:50, hohlov228
Сообщение занимает 2 страницы и содержит 1/16 кбайта информации. на каждой странице записано 256 символов какова мощность использованного алфавита
Ответов: 1
Предмет
Информатика, 17.03.2019 19:00, Maara
Вычислить стоимость освешения лестничных клеток многоэтажного дома за месец при условии, что в каждом подьезде каждый этаж освещается лампочкой одной и той же мощности, свет включается и выключается всюду одновременно(сделать в виде блок схемы) ​
Ответов: 2
Предмет
Информатика, 18.03.2019 03:40, Gudina06
Захотел поставить windows 7 , скачал с интернета лицензию , зашёл в папку и нажал на setup , а он мне выдал ошибку то что вот папки)\setup. exe не является приложением win32 . пробовал всё ,и через avz и через dr. web ,на вирусы сканировал ,перескачивал файлы, всё равно не как не ,! .
Ответов: 3
Предмет
Информатика, 21.03.2019 09:00, Анонимчик8888
Тема : одномерный массив 1)составить текст программы 2)нарисовать блок схему дан массив из 15 чисел. определить номер максимального элемента в массиве, а также количество отрицательных чисел.
Ответов: 2
Знаешь верный ответ?
Написать блок схему для этой программы var x1, y1, x2, y2, x3, y3, firsts, seconds, thirds: real;...

Вопросы по предметам