VPF::[Pascal] Помогите написать программу на паскале

Айнур

Дата 6.12.2010, 23:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Помогите пожжалуйста написать программы!!! со 2 по 12!!! Очееень срочно надо!!! Буду очень благодарен smile

Вот ссылка на фотку!!!! там проги)))

darkart

Дата 7.12.2010, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 26
Всего: 31

Номер 2...

Код


program task;

function TestCircle( x, y : real ) : boolean;
{проверка на принадлежность к кругу}
const
  RADIUS = 5.0;
  SHIFT_X = 1.0;
begin
  TestCircle := sqr( x - SHIFT_X ) + sqr( y ) <= sqr( RADIUS );
end;

function TestTriangles( x, y : real ) : boolean;
{проверка на принадлежность к треугольникам}
const
  SHIFT = 6.0;
begin
  TestTriangles :=
  ( ( x > 0.0 ) and ( x < SHIFT ) and ( y > 0.0 ) and ( y < SHIFT - x ) ) or
  ( ( x > -SHIFT ) and ( x < 0.0 ) and ( y > -SHIFT - x ) and ( y < 0.0 ) );
end;

var
  x, y : real;{координаты точки}
  inCircle, inTrinangles : boolean;{результаты проверок областей}

begin
  writeln( 'Please enter x:' );
  readln( x );{ввод x}
  writeln( 'Please enter y:' );
  readln( y );{ввод y}
  inCircle := TestCircle( x, y );{попала ли в круг}
  inTrinangles := TestTriangles( x, y );{попала ли в треугольники}
  {печать результата - если попало в одну область и не попало в другую - то true, иначе - false}
  writeln( 'Result:' );
  if( inCircle and ( not inTrinangles ) ) or ( inTrinangles and ( not inCircle ) ) then
    writeln( 'true' )
  else
    writeln( 'false' );
  readln;{ожидаем ввода}
end.

P.S.:
Читайте правила форума и разделов.
С такими "вопросами" - в Центр помощи.
Один топик - один вопрос.

Rrader

Дата 8.12.2010, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 14
Всего: 191

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »