Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.09.2011, 15:32   #1
ank1ne
Пользователь
 
Регистрация: 09.09.2011
Сообщений: 15
По умолчанию поиска неизвестных в pascal

Всем добрый день. Перешел в Информ-технологический класс и тут же столкнулся с проблемой.
Помогите решить задачу:
Код:
Одно число в 2 раза больше другого, а их сумма =93.
Найти эти числа.
X=2Y
X+Y=93
Я понимаю, что задача очень легкая и простая, но все же я испытываю некие трудности с ней. Прошу написать в несложном виде, так как я не смогу её понять.
Всем благодарен заранее.
ank1ne вне форума Ответить с цитированием
Старый 09.09.2011, 16:06   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

как-то так, например:
Код:
for x:=1 to 93 do
begin
   y:=93-x;
   if (x=y*2) then break; //выход из цикла когда нашли решение
end;
вывод х и у;
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 09.09.2011, 16:24   #3
Step_UA
Форумчанин
 
Аватар для Step_UA
 
Регистрация: 09.06.2011
Сообщений: 388
По умолчанию

y:=trunc(93/3);
x:=2*y;
на неконкретные вопросы даю неконкретные ответы ...
Step_UA вне форума Ответить с цитированием
Старый 09.09.2011, 16:27   #4
ank1ne
Пользователь
 
Регистрация: 09.09.2011
Сообщений: 15
По умолчанию

Alex11223
спасибо, я понимаю конечно что закончить эту программу легче простого, но так как я немного глуповат в информатике, прошу написать её целиком, если вам не составит это большого труда
ank1ne вне форума Ответить с цитированием
Старый 09.09.2011, 16:31   #5
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

А зачем тогда пошли в "информ-технологический класс"?))

Собственно заканчивать почти нечего. В объявлении переменных (var) х и у какого-нибудь целочисленного типа, x, y:integer , например. И там где вывод с помощью write или writeln вывести в консоль.
write('x=', x)
для у сами допишете?)
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 09.09.2011, 16:33   #6
ank1ne
Пользователь
 
Регистрация: 09.09.2011
Сообщений: 15
По умолчанию

нас просто так поделили так, не по собственному желанию. спасибо
ank1ne вне форума Ответить с цитированием
Старый 09.09.2011, 16:37   #7
ank1ne
Пользователь
 
Регистрация: 09.09.2011
Сообщений: 15
По умолчанию

тему можно закрывать, информатика сразу вы поняли не мое)
спасибо Alex11223
ank1ne вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дерево поиска maxim43k Общие вопросы C/C++ 0 07.09.2011 22:22
Форма поиска - задать диапазон поиска VictorM Microsoft Office Excel 9 21.04.2011 00:12
Задача где неизвестных больше чем известных. poolt Microsoft Office Excel 17 01.12.2010 02:28
Организация поиска) insomnia87 Microsoft Office Excel 9 22.01.2009 11:56