Разветвляющийся цикл помогите пожалуйста

@Shy777 · Регистрация: 08.06.2011

Проверить истинность высказывания: "Данные числа x,y являются координатами точки, лежащей в первой или третьей координатной четверти".

И блок-схему пожалуйста если можно.

Заранее большое спасибо.

@MasterRO · 04.10.2011, 20:37

Pascal

Uses crt;
var
 a:boolean;
 x,y:integer;
Begin
 Write ('Ââåäèòå x è y: ');
 Readln (x,y);
 
If (x>=0) and (y>=0) or (x<=0) and (y<=0)
 then a:=true
 else a:=false;
 
Write (a);
END.

Добавлено через 30 секунд
Блок-схема вообще лёгкая

@Shy777 2 / 2 / 1 Регистрация: 08.06.2011 Сообщений: 45
		1
	Разветвляющийся цикл помогите пожалуйста 03.10.2011, 21:12. Показов 990. Ответов 1 Метки нет (Все метки) Проверить истинность высказывания: "Данные числа x,y являются координатами точки, лежащей в первой или третьей координатной четверти". И блок-схему пожалуйста если можно. Заранее большое спасибо. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 1

Опции темы

Разветвляющийся цикл помогите пожалуйста

Решение