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

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Помогите с задачами на паскале срочно
сообщение
Сообщение #1





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

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


Народ помогите стучите в асю <cut by Lapp>
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


mea culpa
*****

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

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


Может, ещё и условие попросить? lol.gif Если что-то нужно, переименуй тему и пиши условия сюда.


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


Задача Рігзі. В першому півріччі навчального року заняття проходять з 1 по 8 та з 10 по 17 тижні (дев'ятий тиждень - канікули). В розкладі одного з класів п'ять днів на тиждень (від понеділка до п'ятниці) відбувається по шість уроків щодня, всього 480 уроків за півріччя. Всі ці уроки перенумеровані. Складіть програму, що визначає, на якому тижні та в який день тижня відбувається урок з даним номером N.

smile.gif Задача Зесопсі. Позначимо через Рі і-те просте число (Р1=2, Р2=3, Р3=5 тощо). Для даного числа п розглянемо вираз: Р1 / Р2 / РЗ / ... / Рп. Напишіть програму, яка б підраховувала скільки різних раціональних чисел можна отримати, розставляючи в даному виразі дужки Напр., якщо п=4, то таких чисел буде теж 4: (((2/3)/5)/7 = 2/105, 2/(3/(5/7)) = 10/21, (2/3)/(5/7)=14/15 та 2/((3/5)/7) = 70/3. Технічні умови. Програма ЗесопсІ читає з клавіатури ціле число п (від 2 до 100) і виводить н а екран кількість можливих раціональних чисел

smile.gif Задача Тпіго". В класі навчається 0 (1<=0<=25) дівчат та Н (0 <= Н <= 25) хлопців (всього й+Н <= 35). Перенумеруємо дівчат від 1 до й, а хлопців (якщо вони є в класі) від й+1 до й+Н. В класі утворилося К дружніх компаній (в кожній з яких не менше двох осіб), які не мають таємниць один від одного, причому всі друзі дівчат дізнаються про новину через дві години після того, як дізналась вона, а друзі хлопців через п'ять (незалежно від часу дня та ночі). Одна особа може входити до складу різних компаній. Дочка вчительки літератури (її номер в класі 1) зовсім випадково о 13 годині першого грудня дізналася про тему контрольного твору. Якого числа та о котрій годині весь клас вперше буде знати цю тему?

Ну кто порвет звиняйте не перевел плисс поскорее
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


mea culpa
*****

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

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


Это к тем, кто украинский знает..


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





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

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


я ща переведу ты сделаеш?

Добавлено через 2 мин.
В первом полугодии учебного года занятия проходят с 1 по 8 и с 10 по 17 недели (девятая неделя - каникулы). В расписании одного из классов пять дней на неделю (от понедельника к пятнице) происходит по шесть уроков каждый день, всего 480 уроков за полугодие. Все эти уроки перенумерованы. Составьте программу, которая определяет, на котором недели и в какой день недели происходит урок с данным номером N.

Обозначим через Рі і-те простое число (Р1=2, Р2=3, Р3=5 и т.п.). Для данного числа п рассмотрим выражение: Р1 / Р2 / РЗ / ... / Рп. Напишите программу, которая бы подсчитывала сколько разных рациональных чисел можно получить, расставляя в данном выражении дужки Напр., если п=4, то таких чисел будет тоже 4: (((2/3)/5)/7 = 2/105, 2/(3/(5/7)) = 10/21, (2/3)/(5/7)=14/15 и 2/((3/5)/7) = 70/3. Технические условия. Программа Зесопсі читает из клавиатуры целое число п (от 2 до 100) и выводит н а экран количество возможных рациональных чисел

Задача Тпіго". В классе учится 0 (1<=0<=25) девчат и Н (0 <= Н <= 25) ребят (всего и+Н <= 35). Перенумеруем девчат от 1 к и, а ребят (если они являются в классе) от и+1 к и+Н. В классе образовалось К дружеских компаний (в любой из которых не меньшее двух лиц), которые не имеют тайн один от другого, причем все друзья девчат узнают о новости через два часа после того, как узнала она, а друзья ребят через пять (независимо от времени дня и ночи). Одна лицо может входить в состав разных компаний. Дочь учительницы литературы (ее номер в классе 1) совсем случайно в 13 часу первого декабря узнала о теме контрольного произведения. Какого числа и в котором часе весь класс впервые будет знать эту тему?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


mea culpa
*****

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

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


Я сделал 1ю, с использованием трёхмерного массива, но она "немного" некорректно работает blink.gif smile.gif Завтра днём буду исправлять, сейчас поздно уже smile.gif


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


mea culpa
*****

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

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


const a=16;b=5;c=6;
var mas1:array[1..a,1..b,1..c] of integer;
d,e,f,x:integer;
begin
for d:=1 to a do
for e:=1 to b do
for f:=1 to c do
begin
mas1[d,e,f]:=x;
inc(x);
end;
writeln('Vvedite nomer uroka dlya poiska');
readln(x);
for d:=1 to a do
for e:=1 to b do
for f:=1 to c do
begin
if mas1[d,e,f]=x then begin
writeln('Urok #',x,' bil na nedele #',d,' v den #',f);
break;
end;
end;
readln;
end.


Это первая.

Сообщение отредактировано: Unconnected -


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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