IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Помогите пожалуйста написать прогу, математическая задача
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской

Репутация: -  0  +


Доброго времени суток !
Условие: дано 2 натуральных числа a и b, притом a<b. Найти их сумму, среднее арифметическое, количество чисел. Использовать нужно цикл Repeat - Until, While - Do.
Может кто - то помочь с написанием этой программы в паскале ? Очень нужно.
Спасибо заранее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Цитата
количество чисел

может количество цифр?

Что-нибудь пытался делать? Какие мысли есть? Делись))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской

Репутация: -  0  +


Да да, количество цифр, например если а = 4, б=6, кол-во цифр будет 2, будет считаться при а =4 и при а=5. Так же будет считаться общая сумма и среднее арифметическое этих чисел, тоесть а+б/2. А вот как этот код записать используя данные циклы я не знаю, repeat(далее должны быть все варианты когда а<б)......until(до того пока а не будет =б), я так понимаю, а вот while , do ваше не знаю как испольвзовать, помогите..

Сообщение отредактировано: Juhn -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Цитата(Juhn @ 22.12.2007 17:13) *
а вот while , do ваше не знаю как испольвзовать, помогите..
например для поиска количества цифр...
var i, a:integer;
begin
readln(a);
i:=0;
while a<>0 do begin
inc(i);
a:=a div 10;
end;
writeln(i);
end.




--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской

Репутация: -  0  +


Для суммы наверное надо считать не в цикле, а отдельно, так же как и ср. арифметическое (а+б/2), в цикле же нужно что бы он посчитать результат, при а и б. Только вначале он должен запросить введите а и б, и затем в зависимости от этих чисел в цикле должен посчитать ответ подставляя каждый раз вместо а на 1 больше, начиная с того числа которые ввели изначально, и до тех пор пока а будет < чем б. А вот после этого цика уже нужно использовать какой - то другой код, для сложения всех етих полученных результатов, тоесть нахождение суммы. Ну и нужен код для вычисления арифметического чисел а и б, как я понимаю тех, которые мы вводили изначально. И потом уже другим наверное кодом, он должен посчитать кол-во цифр, в зависимости какие были а и б, например если а=4, б=6, то кол-во цифр 2, так как он подставлял а=4 и а=5, а=6 это уже а неменьше чем б получается, значит не нужно. Вот что нужно, помогите подалуйста, не знаю как это написать, как я вижу программа не маленького размера должна получиться, так как много чего нужно находить. Но может кому - то не трудно это сделать, а то я не имею представления как её написать :/ Пожалуйста помогите.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Juhn   Помогите пожалуйста написать прогу   22.12.2007 17:52
Айра   может количество цифр? Что-нибудь пытался делать…   22.12.2007 19:16
Juhn   Да да, количество цифр, например если а = 4, б=6, …   22.12.2007 22:13
compiler   а вот while , do ваше не знаю как испольвзовать, п…   22.12.2007 22:28
Juhn   Для суммы наверное надо считать не в цикле, а отде…   23.12.2007 15:36
compiler   честно говоря, первую часть твоего поста я непонял…   23.12.2007 17:58
Juhn   Ну и програмка :blink: Проверил, компьютер запра…   23.12.2007 18:26
compiler   добавь, если тебе надо, в конце(перед end.) readln…   23.12.2007 18:33
Juhn   Спасибо, теперь всё работает. Ввёл а =2, б=4, посч…   23.12.2007 18:57
Juhn   Где здесь находится формула рассчёта суммы ? Нужно…   23.12.2007 19:37
Айра   Хм.. по-моему это отличается от задания, которое …   23.12.2007 22:06
Juhn   Ну это я так сам думаю, так как с таким циклом я н…   23.12.2007 23:30
Айра   наверно вот для этого: repeat writeln('в…   24.12.2007 3:42
Juhn   Спасибо, понял ;] А как описать строки: function s…   24.12.2007 17:30
Ozzя   function sar(const a, b:integer):real; // описа…   24.12.2007 19:09
Juhn   Спасиб ;]   24.12.2007 19:52
Juhn   http://816.sytes.net/bitbucket/_jg_gj_g_1198517129…   25.12.2007 0:27


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 5.09.2025 1:51
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name