|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
09.11.2008, 01:39 | #1 |
Пользователь
Регистрация: 02.05.2008
Сообщений: 15
|
Помогите пожалуйста сделать задачки в Delphi
Здравствуйте мне очень нужна помощь по решению некоторых задачек в Delphi заранее благодарен =)
1.На плоскости даны координаты точеи. Определить, лежит ли точка в нутри кольца, с внутренним радиусом R1 и внешним R2. 2. Даны три числа. Выведите их на экран в порядке возрастания их значений. |
09.11.2008, 10:48 | #2 |
Пользователь
Регистрация: 08.11.2008
Сообщений: 47
|
Вторая задача
Код большой, но зато все предельно понятно.
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var m,a,b,c:longint; Function max(x,y:longint):longint; begin if x>y then max:=x else max:=y; end; begin readln(a,b,c); {max(a,max(b,c)) это максимальное число} if max(a,max(b,c))=a then begin {max число-a} if b<c then write(b,' ',c) else write(c,' ',b); end else if max(a,max(b,c))=b then begin {max число-b} if a<c then write(a,' ',c) else write(c,' ',a); end else if max(a,max(b,c))=c then begin {max число-c} if b<a then write(b,' ',a) else write(a,' ',b); end; write(' ',max(a,max(b,c))); {вывели самое большое число} readln; end.
Я не знаю, как должно быть, но вы делаете всё не правильно ©
|
09.11.2008, 12:22 | #3 |
Форумчанин
Регистрация: 15.02.2008
Сообщений: 621
|
Задача про кольцо:
Код:
Спасибо написать не забудь, двоешник ^_^
Помог? Ну так нажми на весы!
|
09.11.2008, 13:26 | #4 |
Пользователь
Регистрация: 02.05.2008
Сообщений: 15
|
Спасибо огромнейшое )))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
2 простенькие задачки на С++. Помогите пожалуйста. | Above_men | Общие вопросы C/C++ | 1 | 25.04.2008 15:16 |
Помогите решить 2 задачки,пожалуйста!!!!(С++) | Студентка@ | Помощь студентам | 1 | 21.03.2008 18:28 |