| ← Январь 2017 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
5
|
6
|
7
|
8
|
|
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
|
16
|
17
|
18
|
19
|
21
|
22
|
|
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
|
30
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 25.12.2016, 15:31 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, dinar.ahmetov.2598! Код (Pascal) :: выделить код var
x,y:real;
begin
{вводим координаты}
write('enter x:=');
readln(x);
write('enter y:=');
readln(y);
{проверяем оси координат}
if x=0 then writeln('X-axis')
else
if y=0 then writeln('Y-axis')
else
{проверяем квадранты}
begin
if x*y>0 then
begin
if x>0 then write('I')
else write('III')
end
else
begin
if x>0 then write('IV')
else write('II')
end;
writeln(' - quadrant');
end;
readln;
end.Блок-схемы, извольте сами if - условие - ромбик: да - все, что после then, нет - после else write|read - ввод|вывод- параллелограмм. В каждой фигуре пишите, что вводится/выводится/проверяется. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
