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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задания Pascal. Поделитесь.... В целях изучения.... 
:(
    Опции темы
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   Вверх
Страницы: (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.1489 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


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

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