Решение задачек на Turbo Pascal

Дошкольникам, школьникам, студентам и абитуриентам
Георгий
Сообщения: 5327
Зарегистрирован: 22 ноя 2003, 05:33
Откуда: Смоленск, Кловка
Благодарил (а): 0
Поблагодарили: 0
Контактная информация:

re:тЕЫЕОЙЕ ЪБДБЮЕЛ ОБ Turbo Pascal

Сообщение Георгий »

Наверное такие задачи задают в пед. институте. Совершенно дурацкие и не имеющие практического значения. Кому какое дело является ли чило N натуральным? Лучше бы что-то полезное и интересное попросили сделать, ну там хотя бы Web-страницу простенькую или базу данных, хотя бы вести учет задач, типа календаря/шедулера, ну или учет там расходов/доходов. Век интернета уже наступил, а задачи остались на уровне 80-ых годов прошлого века.

Сорри за такое категоричное сообщение, но жутко ненавижу бесполезный примитивизм которым пичкают в учебных заведениях по устаревшей во всех отношениях программе. Ведь практической ценности от подобного рода задач совсем нет и выпускник такого учебного заведения решавший только математические задачи про натуральные числа вряд ли приживется в программистской среде. В лучшем случае будет работать учителем в сельской школе и обучать детей алгоритмам нахождения натуральных чисел.
Аватара пользователя
Aleksey
Сообщения: 4475
Зарегистрирован: 26 дек 2003, 19:09
Откуда: поповка
Благодарил (а): 0
Поблагодарили: 0
Контактная информация:

re:тЕЫЕОЙЕ ЪБДБЮЕЛ ОБ Turbo Pascal

Сообщение Aleksey »

Георгий, а решение? :wink:
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

эх...........лень копаться в старых записх :?
Георгий
Сообщения: 5327
Зарегистрирован: 22 ноя 2003, 05:33
Откуда: Смоленск, Кловка
Благодарил (а): 0
Поблагодарили: 0
Контактная информация:

re:тЕЫЕОЙЕ ЪБДБЮЕЛ ОБ Turbo Pascal

Сообщение Георгий »

Ни за какие коврижки не стану заниматься этой задачей. Ну разве что коврижек будет очень много, скажем на сумму 4-5 баксов в час :)
Storm
Сообщения: 4784
Зарегистрирован: 19 ноя 2004, 11:44
Откуда: Smolensk
Благодарил (а): 0
Поблагодарили: 3 раза
Контактная информация:

re:тЕЫЕОЙЕ ЪБДБЮЕЛ ОБ Turbo Pascal

Сообщение Storm »

Георгий,
Ну, ну. Решатель! Может сразу комплексную задачу документооборота задавать (причем в общем виде) и на паскале!
А такие задания и служат для того, чтобы люди особо не напрягаясь, разобрались в структуре языка и простейших конструкциях.


Кстати по первым прикидкам задача на 10 мин :) Посмотрю.
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

Ни за какие коврижки не стану заниматься этой задачей. Ну разве что
коврижек будет очень много, скажем на сумму 4-5 баксов в час
То есть, рублей за 5 ты ее решишь? :lol: :lol: :lol:
Аватара пользователя
DimAce
Сообщения: 1457
Зарегистрирован: 21 июл 2005, 13:47
Откуда: Смоленск-Ярцево
Благодарил (а): 0
Поблагодарили: 0
Контактная информация:

Re: re:тЕЫЕОЙЕ ЪБДБЮЕЛ ОБ Turbo Pascal

Сообщение DimAce »

Георгий писал(а):Ни за какие коврижки не стану заниматься этой задачей. Ну разве что коврижек будет очень много, скажем на сумму 4-5 баксов в час  :)
4-5 баксов в час делим на 6 (задача на 10 минут) ~ 20 р.
Ваше Солнце, поставь ему пива :)
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

program Project1;

uses
Crt;

var
n,i:integer;
e: boolean;
begin
e:=false;
repeat
write('Type ntural N ');
readln(n);
until n>0;
for i:=2 to (n div 2) do
begin
while (n mod i)=0 do
begin
writeln('Divider = ',i);
n:= n div i;
end;
e:= true;
end;
if not(e) then writeln(n,'=1*',n);
readln;
end.


Это если подразумевалось разложение на простые множители. :-)
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

Наверное такие задачи задают в пед. институте. Совершенно дурацкие и
не имеющие практического значения. Кому какое дело является ли чило
N натуральным? Лучше бы что-то полезное и интересное попросили
сделать, ну там хотя бы Web-страницу простенькую или базу данных,
Георгий, у тебя немного неправильные сведения про пед. университет :)
- там и Web-страницы делают и базы данных. Но и такие задачи тоже
нужны, там все-таки учителей информатики готовят, а Паскаль в
программах наших школ еще никто не отменял.
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

спасибо!
Никогда не слышал про такой напиток. :beer: :D
Аватара пользователя
njc
Сообщения: 114
Зарегистрирован: 04 сен 2005, 02:20
Откуда: Я не помню...
Благодарил (а): 0
Поблагодарили: 0
Контактная информация:

re:тЕЫЕОЙЕ ЪБДБЮЕЛ ОБ Turbo Pascal

Сообщение njc »

ММММ,я помогу всегда ты только пиши,и в асе отвечай ато ваще молчишь))
lameli
Сообщения: 2337
Зарегистрирован: 09 дек 2004, 15:03
Благодарил (а): 0
Поблагодарили: 0

re:тЕЫЕОЙЕ ЪБДБЮЕЛ ОБ Turbo Pascal

Сообщение lameli »

njc, ЭЭЭЭЭ... не нравишься ты ей :)
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

За мной не заржавеет (тем более, что это только начало) :roll:
Звучит многообещающе... :D
lameli
Сообщения: 2337
Зарегистрирован: 09 дек 2004, 15:03
Благодарил (а): 0
Поблагодарили: 0

re:тЕЫЕОЙЕ ЪБДБЮЕЛ ОБ Turbo Pascal

Сообщение lameli »

Harmer, Смотри аккуратнее! А то тоже перейдешь в разряд хороших милых мальчиков!
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

lameli, хех.. Я уже давно не мальчик.
:D
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

1.Последовательность чисел откуда берется? С клавы вводим?
2. Не понял. Что за
3d d5
3.
y=sin(x), x>0; cos(x), xd0
Это что значит? Если х>0, то синус? А xd0 это чего?
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

не знаю, наверное. а откуда они вообще беруться?
Ну, либо с клавы, либо из файла. И сразу вопрос тогда. Считаем, что
n<100 (например), или заморачиваемся с динамическим выделением
памяти?
ЗЫ Можно не мыло. Можно аську. Если срочно.
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

Может мыло дашь, чтобы форум не захламлять? А то мне с зеркала твой
профиль не виден.
Anonymous
Благодарил (а): 0
Поблагодарили: 0

re:Решение задачек на Turbo Pascal

Сообщение Anonymous »

Хм.. А ты в аське вообще ни с кем не разговариваешь?
Аватара пользователя
njc
Сообщения: 114
Зарегистрирован: 04 сен 2005, 02:20
Откуда: Я не помню...
Благодарил (а): 0
Поблагодарили: 0
Контактная информация:

re:тЕЫЕОЙЕ ЪБДБЮЕЛ ОБ Turbo Pascal

Сообщение njc »

Ваше Солнце, а ты каким клиентом пользуешься?
Storm
Сообщения: 4784
Зарегистрирован: 19 ноя 2004, 11:44
Откуда: Smolensk
Благодарил (а): 0
Поблагодарили: 3 раза
Контактная информация:

re:тЕЫЕОЙЕ ЪБДБЮЕЛ ОБ Turbo Pascal

Сообщение Storm »

Хватит халявить! Первые две задачи решаются в три оператора (хоть и составных :) )! Третья тоже :) Попробуй хоть что нибудь написать сама и выкладывай сюда.
Хинт: мало кто с клавиатуры введет больше 1000 чисел :lol:
Ответить Пред. темаСлед. тема