05.04.2012, 17:32 | #1 (permalink) |
Новичок
Регистрация: 01.11.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Turbo Pascal
Исправьте пожалуйста... program Points; uses CRT; var x,y:array [0..1000] of Integer; {Данные} n,i:Integer; {Количество точек и счетчик циклов} flFind:Boolean; {Флаг - нашли точку или нет} begin ClrScr; {Вводим массив} WriteLn('Введите количество точек: '); ReadLn(n); for i:=0 to n-1 do begin WriteLn('Введите ',i,'-е x:'); ReadLn(x); WriteLn('Введите ',i,'-е y:'); ReadLn(y); end; {Анализируем массив} flFind:=False; for i:=0 to n-1 do if (x=0) and (y=0) then begin {Нашли такую точку} flFind:=True; Break; end; if flFind then WriteLn('Точка найдена') else WriteLn('Точка не найдена'); ReadKey; end. |
05.04.2012, 17:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Поищите информативные ответы в похожих темах Turbo Pascal, метод Симпсона Turbo Pascal с Turbo Vision Файл, файловый тип, Turbo Pascal Cтек, Turbo Pascal Turbo Pascal. Оператор CASE |
05.04.2012, 20:05 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|