Модераторы: volvo877, Snowy, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задания Pascal. Поделитесь.... В целях изучения.... 
:(
    Опции темы
zetpilot
Дата 16.2.2006, 09:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



В целях изучения нового языка хотелось бы не просто читать книгу, ну и уже опробовать свои силы.

У кого нидубь есть интересные задания по Паскалю поделитесь если не жалко.

Желательно что б задачи не нуждались в графическом интерфейсе, ну и всяких других прибамбахов.

За ранее благодарю.
PM MAIL   Вверх
~FoX~
Дата 16.2.2006, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

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



Весь раздел по паскалю одни сполшные задачи smile Есть центр помощи, там их еще больше
На тебе для начала:
1. Пользователь вводит две строки, например "Best stage in the story" и "st".
Определить и вывести на экран сколько раз вторая строка встречается в первой.
2. Найдите самое длинное слово в предложении, введённом пользователем.
3. Пользователем введены два слова через пробел. Надо поменять их местами в строке.

Задачи из школьной вроде программы.


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Palladin
Дата 16.2.2006, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Вот тебе задачка не очень сложная но всёже:
Шестизначное число называется “счастливым”, если у него сумма первых трех цифр равна сумме последних трех цифр. Подсчитать количество “счастливых” шестизначных чисел, у которых суммы трех цифр равны 13.


Напиши здесь результат, я скажу правильно или нет


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


Шустрый
*


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

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



PM MAIL   Вверх
zetpilot
Дата 17.2.2006, 06:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



значит программа запрашивает цифру, а после введения цифры вылазиет следующие:

2 то

111
121
111

если 3 то
11111
11211
12321
11211
11111

....если 7
1111111111111
1111112111111
1111123211111
1111234321111
1112345423111
1123456543211
1234567654321
1123456543211
1112345423111
1111234321111
1111123211111
1111112111111
1111111111111

в любом случае со всех сторон должны быть единицы
создатель уверяет, что решение можно найти с помощью 2-ух циклов for
PM MAIL   Вверх
Innuendo
Дата 18.2.2006, 19:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Ну игру в слова все знают. Первая буква слова это последняя буква слова соперника.
с файла words.in считывается последовательность слов (каждое слово- 1 строка) и последовательность до 50 000).
В файл words.out надо вывести самую большую цепочку "игры в слова" из полученных слов.

Это сообщение отредактировал(а) Innuendo - 19.2.2006, 11:20


--------------------
=)
PM MAIL ICQ Jabber   Вверх
NewDima
Дата 20.2.2006, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

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



А как на это посмотришь:
в файле даны размеры двух параллелипипидов:
например 3 6 2
и второго
например 1 1 1
Первый параллелипипед по всем измерениям больше второго или равен.
на экран с помощью символов *, /, -, | вывести изображение, представляющее первую фигуру, из которой вырезана вторая
например:

Input: 3 5 3
1 2 1


Output:

*-----*
/ /|
/ / |
/ *--* |
/ /| | |
*-**--* |
| |/ / /
| *--* /
| |/
*-----*

Добавлено @ 12:21
извиняюсь, пробелы то не отображаются, ну что поделаешь. Может так понял? smile
Добавлено @ 12:24
.....*-----*
..../...... /|
.../ ....../ |
../ .*--* .|
./ ./| ...| |
*-**--* |
| .|/ ../. /
| .*--* /
| ......|/
*-----*
Так лучше?
PM ICQ   Вверх
Innuendo
Дата 20.2.2006, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



интересное задание smile
но рисунок как-то не очень впечатлил? можешь нарисовать в ворде к примеру и сделать скрин?
ну вроде понятно- жто прямые и косые стороны, а звёздочки это узлы...
вторая фигура вырещана по центру?


--------------------
=)
PM MAIL ICQ Jabber   Вверх
globus0nahok
Дата 21.2.2006, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



такая задачка: вывести на экран все последовательности из p положительных
целых чисел, у которых i-ый член не превосходит i. P вводится с клавы.
PM MAIL   Вверх
armageddon
Дата 21.2.2006, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



задачка:
вывести числа до n такие, что числа делятся на свои знаки
например(1-9,11,12,15);
13 не делится на 3 поэтому мы её не выводим
надеюсь задание ясно
(из задач 9 класса фмл )

PM MAIL   Вверх
Innuendo
Дата 21.2.2006, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



делятся на свои цифры?
так это не так сложно...
мой покойный учитель информатики в 7 классе дал мне задачку найти числа Армстронга в заданном диапозоне...
Интересные числа.. я потом писал работу по нахождению особых чисел в диапозоне(просто бывают очень интересные числа). так вот:
Число армстронга: это сумма всех его цифр в степени кол-ва цифр...
Помню только одно: 153 = 1*1*1+5*5*5+3*3*3 = 1+125+27 = 153 smile


--------------------
=)
PM MAIL ICQ Jabber   Вверх
armageddon
Дата 23.2.2006, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



innuendo:
я не спорю, что это не так уж сложно,
но в целях изучения подойдет
zetpilot:
тебя задачи о чем больше интересуют?

PM MAIL   Вверх
SoWa
Дата 23.2.2006, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Я понял, сюда кладем задачи?
Тогда в раздел Занимательные задачи перенести тему.

Задача, простая:
Найти, сколько нулей в конце числа:
1^n + 2^n + 3^n + 4^n

Сложнее
1^n + 2^n + ... + n^n
(Я еще не решил)


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


Опытный
**


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

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



SoWa,
то есть?
пользователь заводит n. Производится действие, и сколько нулей в конце у полученного результата?


--------------------
=)
PM MAIL ICQ Jabber   Вверх
Guedda
Дата 24.2.2006, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


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

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



Да. Именно так. Это, конечно, простое задание.


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Innuendo
Дата 24.2.2006, 19:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Цитата(SoWa @ 23.2.2006, 22:34 Найти цитируемый пост)
ложнее
1^n + 2^n + ... + n^n
(Я еще не решил)

я попробовал:
Код

         program new;
uses crt;
procedure MyPower(var a:longint; power:integer);
var i:integer;
    a2:longint;
 begin
 a2:=a;
  for i:=2 to power do
    a:=a*a2;
 end;
 var
  n,i:integer;
  s,x:longint;
  begin
   clrscr;
    s:=0;
    write('Vvedite n: '); readln(n);
     for i:=2 to n do
      begin
       x:=i;
       MyPower(x,n);
       s:=s+x;
      end;
      s:=s+1;
      writeln(s);
   readln;
  end.


только вот когда завожу n больше чем 12, то получается уже отрицательное значение- то есть longinta не хватает.. Проверил с 2-кой и тройкой(ну посчитал сам), вроде прально выдаётsmile

Это сообщение отредактировал(а) Innuendo - 24.2.2006, 19:21


--------------------
=)
PM MAIL ICQ Jabber   Вверх
SoWa
Дата 24.2.2006, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Первое- халява.
А второе? Я его еще не решил, ибо на ходу выдумал smile


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


Опытный
**


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

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



ну первое я не начинал (во второе введи n=4, и получишь первый номер, если n=4)smile
а вот второе предложил решение.. но вот говорю, что когда заводишь n больше 12, то выходит за рамки longint'а smile

Это сообщение отредактировал(а) Innuendo - 24.2.2006, 23:29


--------------------
=)
PM MAIL ICQ Jabber   Вверх
NewDima
Дата 27.2.2006, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

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



Цитата

вторая фигура вырещана по центру?

Формулируешь непонятно. она вырезана из верхнего ближнего к нам угла справа
PM ICQ   Вверх
Innuendo
Дата 27.2.2006, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



я опечатался... не "вырещана", а вырезана... Ок.. теперь понятно. веррхний, правый юлижний угол.


--------------------
=)
PM MAIL ICQ Jabber   Вверх
SoWa
Дата 27.2.2006, 20:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Цитата(Innuendo @ 24.2.2006, 23:26 Найти цитируемый пост)
то выходит за рамки longint'а

smile Это по детски- решать перебором. Надо алгоритм найти.


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


Опытный
**


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

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



ааа.. блин, я просто условие не так прочёл smile
там спрашивается сколько нулей... тогда да.. можно не вычисляя само число это делать... но вот тока как? ну подумаем)


--------------------
=)
PM MAIL ICQ Jabber   Вверх
Akina
Дата 28.2.2006, 09:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Цитата(Innuendo @ 28.2.2006, 01:48 Найти цитируемый пост)
но вот тока как?

идея (в Паскалях не силен, не помню как получить остаток от целочисленного деления):

Код

digit := 1;
for i := 1 to n do
begin
  digit := digit * n;
  dec := digit / 10;
  digit := digit - dec * 10;
end;



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Ozzя
Дата 28.2.2006, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Цитата(Akina @ 28.2.2006, 09:03 Найти цитируемый пост)
не помню как получить остаток от целочисленного деления

mod

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


Опытный
**


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

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



Парни вот нашёл интересные задачки 2 штуки:

ЗАДАЧА №1 "Гепотеза Гольтбаха"


В 1772 году немецкий учёный Кристиан Гольдбах выдвинул предположение, езвестное как гепотеза Гольдбаха:любое чётное число, начиная с 4, можно представить в виде суммы двух простых чисел.
Давайте убедимся в справедливости гипотезы Гольдбаха для чисел, не >20
4=2+2
6=3+3
8=3+5
10=3+7=5+5
12=5+7
14=3+11=7+7
16=3+13=5+11
18=5+13=7+11
20=3+17=7+13


Как видно, некоторые числа могут быть представлены в виде суммы двух простых несколькими способами. Из всех возможных разложений произвольного чётного числа выберем наименьшее простое число. Среди раобраных примеров это будут: 2для 4, 5для 12 и18, 3 для всех остальных чисел. определить наибольшее число из наименьших простых состовляющих для всех чётных чисел от 4 до N


Задача№2 "Верёвочный телеграф"

Тимур и его друзья, приехав летом на свои дачи, решили устроить на время своего отдыха игру. они организовали команду, чтобы тайно помогать жителям дачного городка в их повседневных делах. Дачный городок- довольно большой, и дома, в которых живут друзья Тимура, расположены далеко друг от друга. Как быстро передавать друг другу сообщения? Как собирать ребят на совет? тимур решил проложить верёвочный телеграфф, который связал бы все домики, в которых живут ребята из его команды.
Всего домиков N. По карте ребята вычислили координаты каждого дома(Хi,Yi) в целых числах и выписали на бумаге. ЗА единицу измерения координат они взяли один метр. Однако возник вопрос, какие домики нужно соединять верёвочным телеграфом, чтобы связь была между всеми домами, а общая длинавсех верёвок была как можно меньше?

Определить по заданному кол-ву домиков и их координатам минимальную общую длину всех верёвок, соединяющих все домики между собой!?

P.S. Ну как задачки, плизз варианты решения засветите, а то мы в группе решали, из 24 человек решило 4 и у всех разный подход был к каждой из задач

smile smile smile smile smile smile smile smile


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


Опытный
**


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

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



Задача: Даны 2 числа (неважно целые или другие). Нужно присвоить первому числу значение второго, а второму - первого, короче поменять, но без использования третьей переменной.
PM MAIL WWW Jabber   Вверх
SoWa
Дата 6.3.2006, 06:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



IamDreamer, ерунда smile
Код

a:=a+b;
b:=a-b;
a:=a-b;

Вот и все!


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


Опытный
**


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

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



Цитата(SoWa @ 6.3.2006, 06:03)
IamDreamer, ерунда smile
Код

a:=a+b;
b:=a-b;
a:=a-b;

Вот и все!

Когда мне эту задачу дали, способ решения у меня был тот же. Никто не говорил, что задача сложная.
PM MAIL WWW Jabber   Вверх
Aisena
Дата 8.3.2006, 02:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Воть..задачка...на Паскале... smile

Работа с текстовым файлом (форматированный и не форматированный ввод). Вывод на внешние устройства.
Создать текстовый файл, содержащий строки информации смешанного типа (числовые и строковые; 5-6 строк). Надо считать информацию из текстового файла в массив записей, а затем вывести эту информацию в табличном виде по желанию пользователя на: экран, принтер, в новый текстовый файл, добавить в конец исходного файла, выход.
Блок действия по выводу должен быть единственным (через процедуру).
PM MAIL   Вверх
SoWa
Дата 8.3.2006, 06:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Aisena, И это задача?! Тут интересные математические задачи выкладываем!


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


Новичок



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

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



SoWa...могбы и помочь..раз для тебя это даже не задача..
PM MAIL   Вверх
~FoX~
Дата 22.3.2006, 10:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

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



Цитата(RooR @ 2.3.2006, 01:33 Найти цитируемый пост)
Задача№2 "Верёвочный телеграф"

Тимур и его друзья, приехав летом на свои дачи, решили устроить на время своего отдыха игру. они организовали команду, чтобы тайно помогать жителям дачного городка в их повседневных делах. Дачный городок- довольно большой, и дома, в которых живут друзья Тимура, расположены далеко друг от друга. Как быстро передавать друг другу сообщения? ..............


Элиментарная задача на поиск кратчайшегоь пути в графе.... Тем по этому вопросу полно.



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Страницы: (3) [Все] 1 2 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




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


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

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