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

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

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

 
Closed Topic Открыть новую тему 
> Решение задач
сообщение
Сообщение #1





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

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


С клавиатуры последовательно вводятся количество загружаемого товара и его единичная масса.Ввод автоматически прекращается, как только общая масса введенного товара превзойдет грузоподъемность трейлера(V0).вычислить суммарное количество единиц отправляемого товара.
Помогите написать пожалуйста))))) smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Бывалый
***

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

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


НАСТОЯТЕЛЬНО советую попробовать вначале разобраться самому - это пока самое начало - потом начнуться массивы, строки, матрицы... - разобраться будет значительно труднее.

Посмотри, что у меня получилось, попробуй понять.
var
k,l,n,s,b:integer;

begin

writeln('vvedite gruzopodemnost treilrera');
readln(k);


s:=0; {inizializaziya}
b:=0;

repeat

writeln('vvedite edini4nuy massy tovara');
readln(l);

writeln('vvedite koli4estvo edinic etogo tovara');
readln(n);

b:=b+n; {s4itaem koli4estvo ediniz tovara}
s:=s+l*n; {s4itaem massy vsego tovara, 4toby proverit' vlazit ona v treiler ili net}

until s>=k;

writeln('v treiler vlezlo ',b-n,' ediniz tovara'); {b-n - 4toby ne y4ityvat' tot tovar kotoryi yzhe ne vlazit}

end.


Смени тему, сделай ее информативной!, читай правила!.

Сообщение отредактировано: Вячеслав Людской -


--------------------
Само знание есть сила
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Большое спасибо... good.gif
 К началу страницы 
+ Ответить 

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

 





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