Перейти к содержимому



Купить ссылку здесь
Фотография
- - - - -

Парни, выручайте. Кто шарит за Паскаль

Форум ZiSMO.biz
1
В теме одно сообщение

OFFLINE Отправлено

Vanya Erokhin
группа пользователя
  • Онлайн:12ч 1м
0

Карочи, такое дело
надо написать

вводится 2 числа через любой знак и выводится в какой координатной четверти находится эта точка

 

Вот что я написал

var
x, y, i: integer;
a: array[-1000000..1000000] of string;
/// i: char ;
begin
writeln('Введите два числа через пробел');
x := 0;
read(i);
for i := 1 to length(a) do
begin
if (ord(a[i]) >= ord('0')) and (ord(a[i]) <= ord('9'))
then
x := x * 10 + strtoint(a[i]);
end;
if (x > 0) and (y > 0) then write('1');
if (x < 0) and (y > 0) then write('2');
if (x < 0) and (y < 0) then write('3');
if (x > 0) and (y < 0) then write('4');
end.

 

 

 

У меня выдает ошибку Program1.pas(14) : Нет перегруженной подпрограммы с такими типами параметров





    • 0
  • Наверх
  • Ответить

OFFLINE Отправлено

_Z_i_K_
группа пользователя
  • Онлайн:376д 13ч 26м
3 219

паскаль abc net ?


qdMqdIB.gif14.12.18 tufqcRb.gif18.12.18                 Бесплатные макросы для Bosslike - zismo.biz/topic/895893
REAJZdb.gif28.06.18 9ad979a3e9c4a86cec2f942d04762d7e.gif28.06.18                 Продажа поинтов ZISMO - zismo.biz/topic/832809

    • 0
  • Наверх
  • Ответить



Напишите сообщение