Страница 1 из 1
Нужна помощь на языке Pascal.Тремя циклами.Каждую строчку с объяснением пожалуйста.
Добавлено: 25 дек 2014, 11:52
Olega1007
Библиотечный каталог имеет 15 наименований книг в заданном количестве каждого вида. Сколько наименований книг может предложить библиотека для группы N студентов,чтобы книга была хотя бы у каждого второго.Каков общий книжный фонд библиотеки?
Re: Нужна помощь на языке Pascal.Тремя циклами.Каждую строчку с объяснением пожалуйст
Добавлено: 11 авг 2015, 23:59
Key Breaker
Uses crt;
Var a, x, all, N: Integer;
NewA:Real;
c:Char;
{Здесь пременная а-количество наименований,NewA-необходимое кол-во наименований для обеспечения книгой каждого второго студента,
х-кол-во книг в каждом наименовании, all-весь фонд библиотеки, N-кол-во студентов}
Begin
a:=15;
{Задано значение а}
WriteLn('Введите количество книг в каждом наименовании:');
ReadLn(x);
{Задано значение х}
WriteLn('Введите количество студентов:');
ReadLn(N);
{Задано значение N}
begin
{Здесь начинается 1-я математическая часть}
If N Mod 2>0 then
NewA:=a*x*(N/2)+0.5;
If N Mod 2=0 then
NewA:=a*x*(N/2);
{Смотрим есть ли остаток от деления и вычисляем необходимое кол-во наименований для обеспечения книгой каждого второго студента}
WriteLn('Количество наименований = ', NewA);
end;
begin
{Здесь начинается 2-я математическая часть}
all:=a*x*N;
{Вычисляем фонд библиотеки}
WriteLn('Фонд библиотеки составляет: ', all);
end;
WriteLn('Для выхода нажмите Enter');
If c=#13 then
{Если нажата клавиша Enter, то осуществляется выход из программы}
End.
Re: Нужна помощь на языке Pascal.Тремя циклами.Каждую строчку с объяснением пожалуйст
Добавлено: 12 авг 2015, 00:07
Key Breaker
Key Breaker писал(а):
WriteLn('Для выхода нажмите Enter');
If c=#13 then
{Если нажата клавиша Enter, то осуществляется выход из программы}
End.
Надо еще отдебажить... А так работает, ибо весь остальной код уже пофиксен и отдебажен...
З.Ы.: А нахрена здесь циклы нужны были?
Re: Нужна помощь на языке Pascal.Тремя циклами.Каждую строчку с объяснением пожалуйст
Добавлено: 15 авг 2015, 22:19
somewhere
А нахрена здесь циклы нужны были?
По условию задачи для каждого наименования книги свое заданное количество. Отсюда массив и как следствие - циклы
Re: Нужна помощь на языке Pascal.Тремя циклами.Каждую строчку с объяснением пожалуйст
Добавлено: 20 авг 2015, 05:49
Сионист
Key Breaker, а теговать кто будет? Ладно ещё ТС подсветку увидит после копирожания через буфер в среду разработки. А может кто захочет попробовать предложить лучшее решение? Сначала ведь надо распарсить имеющееся, чтоб сравнить, а там ни подсветки, ни отступов. Причём, отсутствие отступов потом создаст проблемы и ТСу, когда он вернётся к этому коду, но уже будет читать не построчно, а искать, где заканчивается целый блок, чтоб внести уже свои изменения в связи с изменившейся задачей именно после блока, а не в середину его, так как ни одна среда отступы сама не расставляет.