Прес-центр проекту "Birchen Miracle" - Розв'язування задач з програмування

Дата: Середа, 01.02.2012, 17.55.04 | Повідомлення # 1

Суддя

Група: Друзі

Повідомлень: 135

Статус: Оффлайн

З метою підготовки до обласної олімпіади з інформатики пропоную розв'язати учасникам деякі задачі з програмування. Чекаю запитань.

Что у трезвого на уме, то у учителя информатики – на языке Паскаль.

Повідомлення відредагував Sirogka - Середа, 01.02.2012, 18.03.42

Дата: Четвер, 02.02.2012, 00.11.27 | Повідомлення # 2

Обозний

Група: Друзі

Повідомлень: 112

Статус: Оффлайн

Добрий вечір. Ви отримали мої розв'язки задач. Я заплутався у 5 задачі, як її робити, а то я пробував і у мене нічого не вийшло????? biggrin

Додано (02.02.2012, 00:07)
---------------------------------------------
Коли ви виставите розв'язки задач? Хтось ще є на форумі? happy happy cool

Додано (02.02.2012, 00:11)
---------------------------------------------
Динамо може опинитися в Лізі Європи на весні, в зв'язку з проблемами, які пов'язані з договірними матчами Бешекташа. Це круууууууто!!! cool cool cool cool cool

Дата: Четвер, 02.02.2012, 00.41.44 | Повідомлення # 3

Суддя

Група: Друзі

Повідомлень: 135

Статус: Оффлайн

Ярослав, розв'язки отримав, зараз тестую. А на рахунок Динамо, щось не віриться. До речі, Валік що заснув вже, щось його не чути взагалі.

Что у трезвого на уме, то у учителя информатики – на языке Паскаль.

Дата: Четвер, 02.02.2012, 00.47.55 | Повідомлення # 4

Обозний

Група: Друзі

Повідомлень: 112

Статус: Оффлайн

Я зним спілкувався у 21:30 він казав, що лягає спати. cool

Додано (02.02.2012, 00:47)
---------------------------------------------
А стосовно Динамо то я сам спочатку не вірив поки не прочитав інформації стосовно цього на Sport.ua. Президент Бешикташа сказав, що вони можуть відмовитися від участі в ЛЄ.

Дата: Четвер, 02.02.2012, 16.47.50 | Повідомлення # 5

Обозний

Група: Друзі

Повідомлень: 158

Статус: Оффлайн

Я ось трохи призабув команду зчитування чисел просто вона і в другій задачі потрібна)

S.T.A.L.K.E.R. ТЧ,ЧН,ЗП Fallout 3 and TES IV, Pоstal 2 - найкращі ігри які я грав но є ше багато класних. (Я геймер це як професія=))

Дата: Четвер, 02.02.2012, 19.14.15 | Повідомлення # 6

Суддя

Група: Друзі

Повідомлень: 135

Статус: Оффлайн

read(a) або readln(a) - зчитати (ввести) число а.
А першу задачу розв'язав? Опрацюй вхідне дане як рядок (string). Розглянь (перебери) в ньому всі елементи за допомогою циклу, де за умовою вибери потрібне.

Что у трезвого на уме, то у учителя информатики – на языке Паскаль.

Дата: Четвер, 02.02.2012, 19.22.13 | Повідомлення # 7

Обозний

Група: Друзі

Повідомлень: 158

Статус: Оффлайн

Я це знаю.... Як циклом зчитати правильно в другій задачі просто там треба щоб програма перевіряла два числа і якщо вони одинакові то вроді YES а якщо ні то NO просто як їх правильно порівняти я не пам'ятаю)

S.T.A.L.K.E.R. ТЧ,ЧН,ЗП Fallout 3 and TES IV, Pоstal 2 - найкращі ігри які я грав но є ше багато класних. (Я геймер це як професія=))

Дата: Четвер, 02.02.2012, 19.24.53 | Повідомлення # 8

Обозний

Група: Друзі

Повідомлень: 112

Статус: Оффлайн

Яку задачу ти розв'язав точно?

Дата: Четвер, 02.02.2012, 19.29.48 | Повідомлення # 9

Обозний

Група: Друзі

Повідомлень: 158

Статус: Оффлайн

Я розв'язав все по трохи )))

S.T.A.L.K.E.R. ТЧ,ЧН,ЗП Fallout 3 and TES IV, Pоstal 2 - найкращі ігри які я грав но є ше багато класних. (Я геймер це як професія=))

Дата: Четвер, 02.02.2012, 19.31.32 | Повідомлення # 10

Суддя

Група: Друзі

Повідомлень: 135

Статус: Оффлайн

Такі прості задачі по трохи розв'язувати не можна, Валік.

Что у трезвого на уме, то у учителя информатики – на языке Паскаль.

Дата: Четвер, 02.02.2012, 19.33.46 | Повідомлення # 11

Обозний

Група: Друзі

Повідомлень: 112

Статус: Оффлайн

На якій задачі ти зупинився?

Дата: Четвер, 02.02.2012, 19.34.33 | Повідомлення # 12

Суддя

Група: Друзі

Повідомлень: 135

Статус: Оффлайн

Пропоную такий розв'язок другої задачі:
var a,b,k1,k2:integer;
begin
readln(a,b);
case a of
1..9:k1:=1;
10..99:k1:=2;
100..999:k1:=3;
1000..9999:k1:=4 ;
end;
case b of
1..9:k2:=1;
10..99:k2:=2;
100..999:k2:=3;
1000..9999:k2:=4 ;
end;
if k1=k2 then writeln('1') else writeln('0')
end.
Попробуйте розв'язати простіше. Це лише один варіант.

Что у трезвого на уме, то у учителя информатики – на языке Паскаль.

Дата: Четвер, 02.02.2012, 19.35.22 | Повідомлення # 13

Обозний

Група: Друзі

Повідомлень: 112

Статус: Оффлайн

Сергій Олександроаич я розв'язав якусь задачу правильно чині.

Дата: Четвер, 02.02.2012, 19.37.20 | Повідомлення # 14

Обозний

Група: Друзі

Повідомлень: 158

Статус: Оффлайн

А чому?
Я зараз зупинився на самій першій) biggrin

S.T.A.L.K.E.R. ТЧ,ЧН,ЗП Fallout 3 and TES IV, Pоstal 2 - найкращі ігри які я грав но є ше багато класних. (Я геймер це як професія=))