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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Pascal, Задачки 
:(
    Опции темы
Рыжий
Дата 20.6.2005, 15:31 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Помешанный
***


Профиль
Группа: Завсегдатай
Сообщений: 1423
Регистрация: 19.9.2004

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



Здравствуйте!
Вот пару задач, для разминки мозгов 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



Это сообщение отредактировал(а) PHP-Script - 20.6.2005, 23:50
PM MAIL ICQ   Вверх
Pakshin A. S.
Дата 20.6.2005, 15:40 (ссылка)    | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Никак не въеду... Можно примеры (точнее тесты) программ?
PM   Вверх
Рыжий
Дата 20.6.2005, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Помешанный
***


Профиль
Группа: Завсегдатай
Сообщений: 1423
Регистрация: 19.9.2004

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



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

Даны два числа m и n. Известно, что m/n - неправильная дробь. Задача: сократить эту дробь и выделить целую часть. Входные параметры - два числа (m,n). выходные - целая часть и оставшаяся несократимая правильная дробь.
Пример:
Вход: 33 6
Выход:5 1 2 (5 - челая часть, и дробь 1/2)
Вопрос задал SPrograMMer



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

Множество символов I-ричной системы счисления (2 <= I <= 36) образуют символы 0, ..., 9, A, B, ..., Z. Если I < 36, то соответствующее количество последних букв латинского алфавита в качестве цифр не используются. Если I < 10, то не используются соответствующие цифры. Необходимо написть программу, которая по двум текстовым строкам, означающим одно и то же число в I-ричной и J-ричной системе счисления, определяет минимальные значения I и J.
Пример входных данных:
10
2
Пример выходных данных:
2 3



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

Имеется N точек и известны расстояния между некоторыми из них. Нужно написать программу, которая проверяет, можно ли эти точки расположить на плоскости так, чтобы указанные расстояния между ними сохранились.
INPUT
В файле исходных данных записано количество точчек N (1 <= N <= 100) и расстояния между некоторыми из них ы ыиде номер первой точки, нмер второй точки, расстояние. Расстояние - вещественное неотрицательное число, не превосходящее 1000. Номер точки - целое число из отрезка 1..N. Все числа разделяются проьелами и/или символами перевода строки.
OUTPUT
Ответом должно быть слово Yes или No соответственно.
EXAMPLE
INPUT:
3
1 2 10
2 3 20
3 1 100
OUTPUT:
No




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

  Составить программу SUBSETS, которая:
  а) вводит с клавиатуры строку текста длиной N символов,
      где каждый символ строки обозначает один элемент множества,
      состоящего из N элементов;
  б) выводит на экран число - количество подмножеств заданного
      множества;
  в) выводит на экран все подмножества заданного множества
      по одному подмножеству в строке (в произвольном порядке).

  Пример.
  Введенная строка: "ABC"
  Результаты:
                    8
                    <пустое множество>
                    A
                    B
                    C
                    AB
                    BC
                    AC
                    ABC
Вопрос задал Fedor



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

Составить программу, которая:
вводит с клавиатуры последовательность нечетных чисел.
Как только вводится четное число, программа прекращает работу.

Пример работы программы:

Введите число= 11
Введите число= 1
Введите число= 3
Введите число= 1
Введите число= 2
Программа закончилась.
Вопрос задал Fedor


Добавлено @ 15:49
Pakshin A. S.
Каких именно??
И еще, давай постить тут только задачки smile А если есть вопросы/замечания/пердложения - я всегда отвечаю на PM

Это сообщение отредактировал(а) PHP-Script - 21.6.2005, 00:05
PM MAIL ICQ   Вверх
Pakshin A. S.
Дата 20.6.2005, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Цитата

Каких именно??

Вот вторая партия нравится, т. к. есть примеры работы программы... надо бы также оформить и первую партию задач...

Ok... будем следить, чтобы никаких вопросов - только задачи... Просто предупреждать нужно... smile
PM   Вверх
SoWa
Дата 1.7.2005, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

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



Вот решите:
Цитата

Дано N (N<=32000). Определить последнюю цифру числа N^N.


Это сообщение отредактировал(а) SoWa - 1.7.2005, 12:10


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
SoWa
Дата 12.9.2005, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

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



Классная задача:
Дано N, на выход дать матрицу, представляющую из себя магический квадрат со стороной N или выдать, что решений нет.


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
EdgarJ
Дата 15.1.2006, 00:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Вот вам несколько задачь от меня. Эти задачи довались нам на школьной олимпиаде по информатики(программированию). Выполнить задания можно было на С, Turbo Pascal 7.0, QBasic. Звёздочки показывают сложность задачь.

1) *

"Осадки"

Вам даётсья задача зделать программу, которая работает с двумя текстовыми файламы (osadki.dat и osadki.rez) и делает при этом несколько вычислений. В 1. файл записаваетсья несколько строк. Первая строка содержит количество дней N, после которой следует количество строк (N). Начиная со второй строки в каждой записано два числа (отделены между собой пробелои) - температура воздуха и количество (в мм) осадков в день. Принимая во внимание, что
1) N <= 1000000
2) количество осадков не меньше 0 и не боль ше 100 мм
3) температура воздуха была между -50 и 50 градусами
4) если Температура меньше нуля падал снег,а во стольных случайах лил дождь
в файле osadki.rez надо вывести два числа отделённых между собой побелами - общая количество снега за все дни и общее количество дождя.
Пример
osadki.dat
3
-1 30
0 3
20 15

osadki.rez
30 18

2)**

"Дамы и кони"

На шахматном столе находятсья дамы (ферзи они же королевы) и кони. Надо узнать количество дам которые под ударам как минимум одного коня и количество коней которые находятсья под ударам как минимум одного коня. Края шахматного стола обозначаютсья числами 1,2,3,4,5,6,7,8 и латинскими буквами a,b,c,d,e,f,g,h. Тем самым получаетсья, что у каждога поля есть обазначение - буква+число (а3, h2).

Программа должна работать с двумя файлами - dk.dat и dk.rez. В первом файле в первой строке дано 2 числа (отделяемых пробелам) - количество дам(D) и коней(K) соответсвенно. В последующих строках D даны координаты дам, а после идут cтроки K с координатами коней. В файле dk.rez надо вывести два числа - количество дам, которые под ударам как минимум одного коня и количество коней, которые под ударам как минимум одной дамы. Количество фигур характиризуетсья так - 1<=K, D <= 64. Общее количество фигур не меньше 2 и не больше 64.
Пример
dk.dat
2 4
d3
d1
e1
c1
c2
h1

dk.rez
1 3

Я потом выложу задания 3., 4. и 5. уровней сложности.

Это сообщение отредактировал(а) EdgarJ - 15.1.2006, 00:39
PM MAIL   Вверх
Алиса
Дата 15.6.2006, 23:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Такие задачки предлагает, а грамотно писать так и не научился... 
PM MAIL   Вверх
Рыжий
Дата 16.6.2006, 00:32 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Помешанный
***


Профиль
Группа: Завсегдатай
Сообщений: 1423
Регистрация: 19.9.2004

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



Алиса, Уточняйте пожалуйста личность мерзавца...

Или, Вы, имели ввиду ошибки такого плана:
Цитата(EdgarJ @  15.1.2006,  00:38 Найти цитируемый пост)
Вам даётсья задача зделать программу

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


Опытный
**


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

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



А решения этих задач здесь постить ненадо??? или это чисто для себя, чтоб не забыть smile  


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


Опытный
**


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

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



Вот моя задачка:

Код

Найти первые N простых чисел, цикл не должен содежать "пустых" итераций!!!
 

Это сообщение отредактировал(а) dvamaster - 5.8.2006, 10:02


--------------------
Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/
PM MAIL WWW ICQ   Вверх
sgentstuff
Дата 17.7.2006, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Предлагаю помимо задач выкладывать также и решения этих задач! Каждый, кто хочет решает задачу, выкладывает свое решение, чтобы можно было посмотреть чье решение эффективнее! В данный момент решаю вот эту задачу, пока не решил, давайте вместе ее решать, потом следующую и т.д., а то умирает эта тема!

Составить  алгоритм  заполнения  прямоугольной таблицы размером N*N целыми числами от 1 до N*N  по  спирали.
Пример для N=5.
1    2    3    4    5
16    17    18    19    6
15    24    25    20    7
14    23    22    21    8
13    12    11    10    9

Добавлено @ 11:36 
SoWa, RooR и все остальные подключайтесь! 
--------------------
Тот, кто ищет миллионы, весьма редко их находит, но тот, кто их не ищет, не находит никогда.  
PM ICQ   Вверх
sgentstuff
Дата 17.7.2006, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Вобщем решил я эту задачку решение ниже.

Предлагаю помимо задач выкладывать также и решения этих задач! Каждый, кто хочет решает задачу, выкладывает свое решение, чтобы можно было посмотреть чье решение эффективнее! В данный момент решаю вот эту задачу, пока не решил, давайте вместе ее решать, потом следующую и т.д., а то умирает эта тема!

Составить  алгоритм  заполнения  прямоугольной таблицы размером N*N целыми числами от 1 до N*N  по  спирали.
Пример для N=5.
1    2    3    4    5
16    17    18    19    6
15    24    25    20    7
14    23    22    21    8
13    12    11    10    9

Ршение
Код

procedure TForm1.Button1Click(Sender: TObject);
const n=4;
var
ur,g,i,s:integer;
a:array[1..n,1..n] of integer;
str:string;
begin
//
g:=1;
s:=0;
while s<>n*n do
begin
        for i:=g to n-g+1 do
        begin
        inc(s);
        a[g,i]:=s;
        end;
        for i:=g to n-g do
        begin
        inc(s);
        a[i+1,n-g+1]:=s;
        end;
        for i:=n-g downto g do
        begin
        inc(s);
        a[n-g+1,i]:=s;
        end;
        for i:=n-g downto g+1 do
        begin
        inc(s);
        a[i,n-(n-g)]:=s;
        end;

inc(g);

end;
for i:=1 to n do
begin
str:='';
for g:=1 to n do
str:=str+IntToStr(a[i,g])+'  ';
memo1.Lines.add(str);
end;
end;

Кто может предложить более изящное решение, чем с 5- циклами?



 
--------------------
Тот, кто ищет миллионы, весьма редко их находит, но тот, кто их не ищет, не находит никогда.  
PM ICQ   Вверх
sgentstuff
Дата 18.7.2006, 07:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Задача r89_4
 По  кругу стоят N спортсменов с номерами от 1 до N. Начиная с какого-то человека, по кругу удаляется каждый k-ый спортсмен. После каждого удаления круг смыкается.  Составить алгоритм определения последовательности номеров удаляемых спортсменов. 
--------------------
Тот, кто ищет миллионы, весьма редко их находит, но тот, кто их не ищет, не находит никогда.  
PM ICQ   Вверх
sgentstuff
Дата 19.7.2006, 06:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Решение r89_4 

Код

procedure TForm1.Button1Click(Sender: TObject);
const n = 6;
var
k,i:integer;
s,s1:TStringList;
begin
//
s:= TStringList.Create;
s1:= TStringList.Create;
for i:=0 to n do
s.Add(inttostr(i));
k:=0;
while s.Count>1 do
begin
  if k >= s.Count then
  begin
  k:=k-s.Count;[quote]

[/quote]
  end;
        if k=s.Count then
        begin
        s1.Add(s.Strings[k-1]);
        s.Delete(k-1);
        continue;
        end;
        s1.Add(s.Strings[k]);
        s.Delete(k);
        inc(k,2);
end;
memo1.Lines.Add(s1.Text);
end;
 
--------------------
Тот, кто ищет миллионы, весьма редко их находит, но тот, кто их не ищет, не находит никогда.  
PM ICQ   Вверх
Страницы: (3) Все [1] 2 3 
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Интересные и занимательные задачи по программированию | Следующая тема »


 




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


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

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