 Задача на паскаль |
Здравствуйте, гость ( Вход | Регистрация )
  |
| fonaruk |
 21.1.2012, 8:39
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 2 Регистрация: 21.1.2012 Город: чебоксары Учебное заведение: ЧГУ Вы: школьник  |
1)В клуб приходят m мальчиков и n девочек. Мальчик активен только тогда когда рядом с ним с обих сторон сидят девочки,а девочка активна только тогда когда с рядом с ней сидит мальчик, а с другой стороны девочка. Надо написать программу, которая по заданным числам m n выведет такой способ размещения, при котором макс кол-во человек будет активно. Выходной файл должен содержать строку с расположенными m символами В и n символами G. Входной файл 1 2 выходной BGG.
2)В вольере находятся цапли. Петя пересчитал их ноги и у него получилось число а. У маши через некоторое время получилось число b. Все изза того что цапли умеют стоять на одной ноге. Написать прогу которая выведет макс и мин кол-во цапель. Помогите пожалуйста, друг попросил помочь, а я в этом не разбираюсь. |
   |
 
|
| -Владимир- |
30.1.2012, 19:30
Сообщение
#2
|
|
Новичок Группа: Продвинутые Сообщений: 4 Регистрация: 30.1.2012 Город: Волгоград |
Цитата(fonaruk @ 21.1.2012, 8:39)  1)В клуб приходят m мальчиков и n девочек. Мальчик активен только тогда когда рядом с ним с обих сторон сидят девочки,а девочка активна только тогда когда с рядом с ней сидит мальчик, а с другой стороны девочка. Надо написать программу, которая по заданным числам m n выведет такой способ размещения, при котором макс кол-во человек будет активно. Выходной файл должен содержать строку с расположенными m символами В и n символами G. Входной файл 1 2 выходной BGG. 2)В вольере находятся цапли. Петя пересчитал их ноги и у него получилось число а. У маши через некоторое время получилось число b. Все изза того что цапли умеют стоять на одной ноге. Написать прогу которая выведет макс и мин кол-во цапель. Помогите пожалуйста, друг попросил помочь, а я в этом не разбираюсь. Доброго вечера! С первой задачей не понял что именно ты хочешь. А для второй набросал кодик: Код Program Heron; var a,b:integer; min,max:real; l:boolean; begin writeln('Сколько ног цапель увидел Петя? '); readln(a); writeln('Сколько ног цапель увидела Маша? '); readln(b); if a=b then begin l:=odd(a); if l=true then begin min:=a/2; max:=a end else max:=a; min:=(a-1)/2+1; end else if a>b then begin l:=odd(b); max:=a; if l=false then min:=b/2 else min:=(b-1)/2+1; end else begin l:=odd(a); max:=b; if l=false then min:=a/2 else min:=(a-1)/2+1; end; writeln('Максимально возможно число цапель ',max); writeln('Минимально возможное число цапель ',min); end. Успехов в учебе! (IMG:style_emoticons/default/bigwink.gif) |
|
|
|
| fonaruk |
30.1.2012, 19:33
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 2 Регистрация: 21.1.2012 Город: чебоксары Учебное заведение: ЧГУ Вы: школьник |
Цитата(-Владимир- @ 30.1.2012, 22:30) Доброго вечера! С первой задачей не понял что именно ты хочешь. А для второй набросал кодик: Код Program Heron; var a,b:integer; min,max:real; l:boolean; begin writeln('Сколько ног цапель увидел Петя? '); readln(a); writeln('Сколько ног цапель увидела Маша? '); readln(b); if a=b then begin l:=odd(a); if l=true then begin min:=a/2; max:=a end else max:=a; min:=(a-1)/2+1; end else if a>b then begin l:=odd(b); max:=a; if l=false then min:=b/2 else min:=(b-1)/2+1; end else begin l:=odd(a); max:=b; if l=false then min:=a/2 else min:=(a-1)/2+1; end; writeln('Максимально возможно число цапель ',max); writeln('Минимально возможное число цапель ',min); end. Успехов в учебе! (IMG:style_emoticons/default/bigwink.gif) Спасибо большое. Надо было, наверное, удалить тему. Это была региональная олимпиада по информатике. Друг попросил, хотя я уверял его не идти, т.к. сам я больше него понимаю, но идти или помогать было лень. Таки он не прошел. P.S. Можно тут как-то рейтинг повысить или на "Спасибо" нажать?) |
|
|
|
| tig81 |
30.1.2012, 19:48
Сообщение
#4
|
|
Академик Группа: Преподаватели Сообщений: 15 617 Регистрация: 15.12.2007 Город: Украина, Запорожье Учебное заведение: ЗНУ Вы: преподаватель |
Цитата(fonaruk @ 30.1.2012, 21:33) P.S. Можно тут как-то рейтинг повысить или на "Спасибо" нажать?) Нет, такая функция на данном форуме не предусмотрена, можно просто сказать "спасибо" |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 25.5.2025, 10:26 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2025 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru