Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Еще две задачки по Паскалю 
:(
    Опции темы
l4r4n
Дата 5.11.2010, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 19.10.2010

Репутация: -1
Всего: -1
Всем пламенный привет.
Если кто может помочь, помогите.
Дали вот такую вот задачку:
user posted image
Помогите решить его.
Заранее спс.
PM MAIL   Вверх
~FoX~
Дата 5.11.2010, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68
1.
Код

var
  x1, x2, y1, y2: integer;
  L1, L2: Real;
begin
  ClrScr;
  Write('x1=');
  ReadLn(x1);
  Write('y1=');
  ReadLn(y1);
  Write('x2=');
  ReadLn(x2);
  Write('y2=');
  ReadLn(y2);
  L1 := sqrt(Abs(x1)*Abs(x1)+Abs(y1)*Abs(y1));
  L2 := sqrt(Abs(x2)*Abs(x2)+Abs(y2)*Abs(y2));
  if L1<L2 then WriteLn('Point A')
  else if L1>L2 then WriteLn('Point B')
  else if L1=L2 then WriteLn('A ecual B');
end.


Это сообщение отредактировал(а) ~FoX~ - 5.11.2010, 14:42


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
l4r4n
Дата 6.11.2010, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 19.10.2010

Репутация: -1
Всего: -1
А второй Лис, плиз smile 
PM MAIL   Вверх
~FoX~
Дата 7.11.2010, 22:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68
l4r4n, Задолбал ты, военный (С) Дмб
Включай уже голову или бабло плати......
Код

var
 i, r: integer;
 Gen: array [0..3] of integer;
begin
  ClrScr;
  Write('M=');
  ReadLn(Gen[0]);
  Write('N=');
  ReadLn(Gen[1]);
  Write('P=');
  ReadLn(Gen[2]);
  Write('D=');
  ReadLn(Gen[3]);
  if Gen[0]=Gen[3] then WriteLn('M=D')
  else if Gen[0]=Gen[3] then WriteLn('N=D')
  else if Gen[0]=Gen[3] then WriteLn('P=D')
  else begin
    r := Gen[0]-Gen[3];
    for i := 1 to 2 do begin
     if r<Gen[i]-Gen[3] then r := Gen[i]-Gen[3];
    end;
    WriteLn(r);
  end;
end.



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
l4r4n
Дата 8.11.2010, 06:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 19.10.2010

Репутация: -1
Всего: -1
Спс тебе...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0649 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.