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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> задача на условие IF, вроде легкая но я запуталась 
V
    Опции темы
luna
Дата 30.3.2007, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Помогите пожалуйста...столько вариантов перпробывала и не получается....
а истина где то рядом....
текс задачи: 
Задайте два числа a и b. и проверте...если точка с координатами (a;b) попадает в область рисунка, то проверить на условие: 
a>b, то z=b-2;
если нет то z=a*a-b.
если не попадает на область рисунка, то z=a+b.
Рисунок тут: 
http://www.e1.ru/fun/photo/view_album.php?...&page=0#top
файл прикреплю...

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

Добавлено через 11 минут и 19 секунд
я запуталась в условиях...где то лишее написала..где то не знаю, что дописать...

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  CONTROL1.BAK 0,76 Kb
PM MAIL ICQ   Вверх
powerfox
Дата 30.3.2007, 22:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


I wanna fork()
****


Профиль
Группа: Комодератор
Сообщений: 3990
Регистрация: 1.10.2005
Где: Санкт-Петербург

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

program coords;
var
a,b,z:Integer;
begin
if (not ( (a>0) and (b>0) ) ) and ( (a*a+b*b) = 36) then
 if a > b then
    z:=b-2
 else
    z:=a*a-b
else
 z:=a+b;
end.


Добавлено через 2 минуты и 22 секунды
Поправил, забыл про окружность.

Это сообщение отредактировал(а) powerfox - 30.3.2007, 22:38


--------------------
user posted image
PM WWW   Вверх
luna
Дата 30.3.2007, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
это так и писать....или там еще надо Begin дописывать где-то?*?
PM MAIL ICQ   Вверх
powerfox
Дата 30.3.2007, 22:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


I wanna fork()
****


Профиль
Группа: Комодератор
Сообщений: 3990
Регистрация: 1.10.2005
Где: Санкт-Петербург

Репутация: нет
Всего: 97
luna, это полный код. Если будешь дописывать внутрь ифоф свои writeln'ы, то операторные скобки (begin/end) потребуются.


--------------------
user posted image
PM WWW   Вверх
luna
Дата 30.3.2007, 22:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
спасибо щас...допишу и проверю...если все как надо....тогда супер....

Добавлено через 9 минут и 36 секунд
хм....ен получается....
при проверке: 
a=-2
b=-3
он должен писать: Попадает в область, z=-5.
а он пишет не попадает
и так со всеми другими координатами...выдает не правильные ответы...
прикрепляю файл который изменила...

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  CONTROL1.PAS 0,55 Kb
PM MAIL ICQ   Вверх
powerfox
Дата 30.3.2007, 23:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


I wanna fork()
****


Профиль
Группа: Комодератор
Сообщений: 3990
Регистрация: 1.10.2005
Где: Санкт-Петербург

Репутация: нет
Всего: 97
Неправильно расставили операторные скопки.

Код

Program kontrolnaya;
uses crt;
var a,b,z:integer;
Begin
clrscr;
Writeln('a: ');
Readln(a);
Writeln('b: ');
Readln(b);

    If (not ( (a>0) and (b>0))) and ((a*a+b*b)<=36) then
     begin
    Writeln('Point (a;b) is on the image area');
           if a>b then
        begin
        z:=b-2;
        writeln('a>b. We count z like z:=b-2');
        end
           else
        begin
        writeln('a<b, so z:=a*a - b');
        z:=a*a-b;
        end;
     end
    else
      begin
      writeln('Point (a;b) is not on the image area');
      z:=a+b;
      end;
Writeln('z:=',z);
Readln;

end.



Добавлено @ 23:18
Пожалуйста, форматируйте нормально ваш код!

Это сообщение отредактировал(а) powerfox - 31.3.2007, 11:37


--------------------
user posted image
PM WWW   Вверх
luna
Дата 30.3.2007, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
 smile 
черт не получается
а что за сообщения в скобках на англ.языке?
я просто новичок в паскале...вроед понимаю все что написано...а с проверкой не сходиться... smile 

Это сообщение отредактировал(а) luna - 30.3.2007, 23:45
PM MAIL ICQ   Вверх
powerfox
Дата 31.3.2007, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


I wanna fork()
****


Профиль
Группа: Комодератор
Сообщений: 3990
Регистрация: 1.10.2005
Где: Санкт-Петербург

Репутация: нет
Всего: 97
Цитата(luna @  31.3.2007,  00:40 Найти цитируемый пост)
черт не получается

Что именно? Я проверил, всё пашет...


Цитата(luna @  31.3.2007,  00:40 Найти цитируемый пост)
а что за сообщения в скобках на англ.языке?


Цитата(powerfox @  31.3.2007,  00:17 Найти цитируемый пост)
Point (a;b) is on the image area

Точка (a;b) лежит в области рисунка


Цитата(powerfox @  31.3.2007,  00:17 Найти цитируемый пост)
a<b, so z:=a*a - b

a<b, поэтому z:=...


Цитата(powerfox @  31.3.2007,  00:17 Найти цитируемый пост)
a>b. We count z like z:=b-2

a>b. Мы находим z, как z:=b-2


Цитата(powerfox @  31.3.2007,  00:17 Найти цитируемый пост)
Point (a;b) is not on the image area

Точка (a;b) не принадлежит области рисунка.

Добавлено через 4 минуты и 12 секунд
Виноват, я поставил = вместо <= + end один забыл, когда дописывал writeln; Исправил.



--------------------
user posted image
PM WWW   Вверх
luna
Дата 1.4.2007, 10:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

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

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

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

3. Оффтопить

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

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

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


 




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


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

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