Модераторы: Alx, Fixin

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Pascal, Задачки 
:(
    Опции темы
sgentstuff
Дата 19.7.2006, 07:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 13.9.2005

Репутация: нет
Всего: 1



Задача r89_6
Составить  алгоритм  подсчета количества способов,  которыми  можно  разменять рубль медными монетами (достоинством 1, 2, 3, 5 копеек). 
--------------------
Тот, кто ищет миллионы, весьма редко их находит, но тот, кто их не ищет, не находит никогда.  
PM ICQ   Вверх
Palladin
Дата 22.7.2006, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17



Цитата(sgentstuff @  19.7.2006,  07:20 Найти цитируемый пост)
Задача r89_6
Составить  алгоритм  подсчета количества способов,  которыми  можно  разменять рубль медными монетами (достоинством 1, 2, 3, 5 копеек).



Вот эта мне понравилась smile ща буду решать, заодно и ТВИМС вспомню smile  


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
AlexST
Дата 3.8.2006, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 331
Регистрация: 30.4.2006
Где: Москва

Репутация: нет
Всего: 3



Прям неинтересно как-то.
Такие задачи решают в 5 классе по-моему.
В эту коллекцию "разминалок" могу кинуть еще пару примеров (кому интересно) типа:

Есть множество точек плоскости, соединить две из них отрезком так, чтобы с обоих сторон отрезка было равное количество точек.

или

Есть множество точек, составить из них несамопересекающуюся ломаную.

Хоть чуток посложнее  smile .
PM MAIL ICQ   Вверх
Berd
Дата 5.8.2006, 01:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 16.5.2006

Репутация: нет
Всего: нет



Для разнообразия тренирующихся.
Где-то когда-то вычитал:
...
"Составить программу, которая печатает сама себя. 
Программа должна иметь как можно меньший размер."
...
PM MAIL   Вверх
AlexST
Дата 5.8.2006, 01:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 331
Регистрация: 30.4.2006
Где: Москва

Репутация: нет
Всего: 3



Чё-то, как-то не ясно задание. Если я его правильно понял, то в чём сложность?
PM MAIL ICQ   Вверх
DarlkElfTen
Дата 13.10.2006, 20:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 16.3.2006

Репутация: нет
Всего: 1



Цитата(Рыжий @ 20.6.2005,  15:31)
Здравствуйте!
Вот пару задач, для разминки мозгов smile :

Задача №1
Цитата

Даны два ненулевых числа. Найти их сумму, разность, произведение и частное. 
пример входных данных:
6,3
пример выходных данных:
сумма - 9; произведение 18; частное 2.
Вопрос задал PHP-Script



Задача №2
Цитата

Человек вводит 10 чисел, замените 3 максимальным а 7 минимальным.

пример входных данных:
10,20,30,40,50,60,55,45,35,25;

пример выходных данных:
10,20,60,40,50,60,10,45,35,25;
Вопрос задал PHP-Script



Задача №3
Цитата

Дан номер месяца (1 — январь, 2 — февраль, ...10 - декабрь). Человек вводит номер месяца, Нужно вывести название соответствующего времени года ("зима", "весна" и т.д.). 

пример входных данных:
7
пример выходных данных:
"лето"
Вопрос задал PHP-Script



Задача№4
Цитата

Дано целое число в диапазоне 100 – 999. Вывести строку — словесное описание данного числа. пример входных данных:
256
пример выходных данных:
"двести пятьдесят шесть"
Вопрос задал PHP-Script



Задача №5
Цитата

Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (не включая сами эти числа), в порядке их убывания. 

пример входных данных:
5,10
пример выходных данных:
9,8,7,6
Вопрос задал PHP-Script


кхм...это же легко..=\
по моему это для тупых smile

Добавлено @ 20:19 
Цитата(sgentstuff @ 19.7.2006,  07:20)
Задача r89_6
Составить  алгоритм  подсчета количества способов,  которыми  можно  разменять рубль медными монетами (достоинством 1, 2, 3, 5 копеек).

эта интереснее)
--------------------
"Две башни"
PM MAIL ICQ   Вверх
aved
Дата 15.10.2006, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.6.2006
Где: г. Кострома

Репутация: нет
Всего: нет



DarlkElfTen, ещё 10, 15, 20, 50.

Задача
Цитата

Дано неизвестное количество блоков паралельно соеденённых резисторов, в кажом блоке неизвестное количество резисторов. Номинал резисторов вводится с клавиатуры. Отрицательное число - означает переход к следующему блоку, 0 - конец схемы. Найти общее сопротивление резисторов.

10 10 -1 10 10 0 = 10 Ом 

user posted image




Это сообщение отредактировал(а) aved - 9.12.2006, 10:54
PM ICQ   Вверх
AligatorV
Дата 5.12.2006, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 20.11.2006

Репутация: нет
Всего: нет



Ученые астрономы, сообщили правительство, что ровно через T секунд на
планете Олимпиада начнется метеоритный дождь. Правительство планеты срочно
начало эвакуацию людей и
важного оборудования - телескопических установок.
Для защиты телескопу его нужно транспортировать в специально отведенное
место - хранилище. В одном хранилище может вместиться лишь один телескоп.
Необходимо рассчитать максимальное количество телескопов которые можно
успеть спрятать к началу метеоритного дождя.

Входные данные (файл METEOR.DAT):
В первой строке число T - количество секунд через которую метеориты
упадут на планету.
Во второй строке число N - количество телескопов.
В третьей строке находится 2*N чисел - координаты телескопов (x, в)
В четвертой строке число M - количество хранилищ.
В пятой строке находится 2*M чисел - координаты хранилищ (x, в)
В шестой строке число V - скорость транспортировки телескопов.

Примечание:
0<T<1000000 ; 0<N,M<100 ; -30000 <= x,y <=30000 ; 0<V<1000
T, N, M, x, в - цели.

Выходные даны: (файл METEOR.SOL):
В единственную строку файла записать максимальное количество телескопов,
которые могут быть спрятанные к началу падения метеоритов.


Пример METEOR.DAT:
10
4
1 7 3 7 5 7 100 100
2
2 7 4 7
0.1

Пример METEOR.SOL:
2
PM MAIL ICQ   Вверх
AligatorV
Дата 5.12.2006, 23:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 20.11.2006

Репутация: нет
Всего: нет



Взрывное устройство, которое было заложено неизвестным террористом, имеет N - лампочек, и M - переключателей.
Каждый переключатель изменяет состояние некоторых лампочек на противоположный. Для обезвреживания бомбы, необходимо выключить все лампочки.
Напишите программу, которая спасет мир.

Входные данные: (файл BOMBA.DAT):
В первой строке число N. (0<N<=100)
Во второй строке содержится N чисел, которые помечают состояние каждой лампочки (0 - выключенная, 1 - включенная).
В третьей строке содержится число M. (0<M<=100)
В каждом из следующих M строк содержится число K (количество лампочек состояние которых изменяет данный переключатель) и K чисел - номера соответствующих лампочек.
Выходные даны: (файл BOMBA.SOL):
Если бомбу обезвредить невозможно, запишите в исходный файл "NO" (без кавычек).
Если возможно спасти мир, то в первую строку запишите "YES" (без кавычек), а во вторую строку запишите номера переключателей которые необходимо задействовать.
Пример BOMBA.DAT:
5
0 1 1 0 1
4
3 2 3 4
3 1 4 5
2 4 5
2 2 4
PM MAIL ICQ   Вверх
aved
Дата 9.12.2006, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.6.2006
Где: г. Кострома

Репутация: нет
Всего: нет



Дана матрица из нулей и единиц, найти количество областей состоящих из единиц ("пятна")

Н-р:
1 1 1 0 1 1 0 0 0 0
1 0 1 1 1 0 1 1 0 0
1 1 0 0 1 0 0 1 1
0 0 1 0 0 0 1 0 1 0
0 0 1 1 1 0 0 1 1 1
0 0 1 0 1 0 0 1 0 0
0 1 0 0 1 0 0 0 0 0

Ответ: 3



Это сообщение отредактировал(а) aved - 12.12.2006, 23:52
PM ICQ   Вверх
Kann
Дата 16.12.2006, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.12.2006

Репутация: нет
Всего: нет



Цитата(aved @ 9.12.2006,  10:52)
Дана матрица из нулей и единиц, найти количество областей состоящих из единиц ("пятна")

Н-р:
1 1 1 0 1 1 0 0 0 0
1 0 1 1 1 0 1 1 0 0
1 1 0 0 1 0 0 1 1
0 0 1 0 0 0 1 0 1 0
0 0 1 1 1 0 0 1 1 1
0 0 1 0 1 0 0 1 0 0
0 1 0 0 1 0 0 0 0 0

Ответ: 3

Код

const n=7;
      m=10;
var f:text;
    a:array[1..n,1..m,0..1] of byte;
    i,j,p:integer;
procedure search(i,j:integer);
begin
if i<>1 then if (a[i-1,j,0]=1) and (a[i-1,j,1]=0) then
begin
a[i-1,j,1]:=a[i,j,1];
search(i-1,j);
end;

if i<n then if (a[i+1,j,0]=1) and (a[i+1,j,1]=0) then
begin
a[i+1,j,1]:=a[i,j,1];
search(i+1,j);
end;

if j<>1 then if (a[i,j-1,0]=1) and (a[i,j-1,1]=0) then
begin
a[i,j-1,1]:=a[i,j,1];
search(i,j-1);
end;

if j<m then if (a[i,j+1,0]=1) and (a[i,j+1,1]=0)  then
begin
a[i,j+1,1]:=a[i,j,1];
search(i,j+1);
end;

end;
function ch(i,j:integer):boolean;
begin
ch:=false;
if not i>n then if a[i+1,j,0]=1 then ch:=true;
if not i<1 then if a[i-1,j,0]=1 then ch:=true;
if not j>m then if a[i,j+1,0]=1 then ch:=true;
if not i<1 then if a[i,j-1,0]=1 then ch:=true;
end;
begin
assign(f,'c:\in.txt');
reset(f);
for i:=1 to n do
for j:=1 to m do
read(f,a[i,j,0]);
p:=1;
for i:=1 to n do
for j:=1 to m do
if  ch(i,j) then
if (a[i,j,0]=1) and (a[i,j,1]=0) then
begin
a[i,j,1]:=p;
inc(p);
search(i,j);
end;
dec(p);
writeln(p);
end.


PM MAIL ICQ   Вверх
Strannik
Дата 28.1.2007, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.1.2007

Репутация: нет
Всего: 2



Вот чуть более эффективная реализация:
Код

const md: array [1..4,1..2] of shortint=((0,1),(1,0),(-1,0),(0,-1));
var a: array [1..100,1..100] of byte;
      i,j,kol,n,m: longint;

procedure search(x,y: integer);
var tx,ty,i: integer;
begin
 a[x,y]:=0;
 for i:=1 to 4 do
  begin
   tx:=x+md[i,1];
   ty:=y+md[i,2];
   if a[tx,ty]=1 then
    begin
     search(tx,ty);
    end;
  end;
end;

begin
 assign(input,'input.txt');
 reset(input);
 readln(m,n);
 fillchar(a,sizeof(a),0);
 for i:=1 to m do
  for j:=1 to n do
    read(a[i,j]);
 kol:=0; 
 for i:=1 to m do
  for j:=1 to n do
   if (a[i,j]=1) then
    begin
     inc(kol);
     search(i,j);
    end;
 writeln(kol); 
 close(input);
end.


П.С. Не компилировал и не тестировал, так что за описки не пинать а идея и так понятна...

Добавлено @ 20:04 
Ну и от меня задачка:

На шахматной доске есть два коня, они делают ходы одновременно. Определить за какое минимальное кол-во ходов они могут встретиться на одной клетке. Если не могут - вывести "-1"

input.txt
a1 a3
-------
a1 a2

output.txt
1
-----
-1

Добавлено @ 20:07 
Я вам этих задач столько напихать могу.... Если кому нечем мозги занять - обращайтесь, подыщем индивидуальную программу!
PM MAIL   Вверх
Michael_Rybak
Дата 30.1.2007, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 30.12.2006

Репутация: 1
Всего: 1



Расскажи откуда пихать будешь smile
PM MAIL   Вверх
Strannik
Дата 30.1.2007, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.1.2007

Репутация: нет
Всего: 2



У-у-у.... в сети столько этого добра (ну не мне ж тебе рассказывать). Плюс задачи которые точно мало кто видел (например наша район-область прошлых годов). Да и дело не в том что тут будет что-то эксклюзивное... Просто человек например не будет специально искать архивы задач, а здесь увидит парочку, может быть заинтересуется этим делом...
PM MAIL   Вверх
Michael_Rybak
Дата 30.1.2007, 23:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 30.12.2006

Репутация: 1
Всего: 1



Ну я думал может ресурс какой-нить в мою коллекцию новый smile
PM MAIL   Вверх
Страницы: (3) Все 1 [2] 3 
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Интересные и занимательные задачи по программированию | Следующая тема »


 




[ Время генерации скрипта: 0.1652 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.