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

[Георгий]

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

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

[Aleksey]

Георгий, а решение?

[Anonymous]

эх...........лень копаться в старых записх :?

[Георгий]

Ни за какие коврижки не стану заниматься этой задачей. Ну разве что коврижек будет очень много, скажем на сумму 4-5 баксов в час :)

[Storm]

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


Кстати по первым прикидкам задача на 10 мин :) Посмотрю.

[Anonymous]

Ни за какие коврижки не стану заниматься этой задачей. Ну разве что
коврижек будет очень много, скажем на сумму 4-5 баксов в час

То есть, рублей за 5 ты ее решишь? :lol: :lol: :lol:

[DimAce]

Ни за какие коврижки не стану заниматься этой задачей. Ну разве что коврижек будет очень много, скажем на сумму 4-5 баксов в час  :)

4-5 баксов в час делим на 6 (задача на 10 минут) ~ 20 р.
Ваше Солнце, поставь ему пива :)

[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]

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

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

[Anonymous]

спасибо!

Никогда не слышал про такой напиток. :D

[njc]

ММММ,я помогу всегда ты только пиши,и в асе отвечай ато ваще молчишь))

[lameli]

njc, ЭЭЭЭЭ... не нравишься ты ей :)

[Anonymous]

За мной не заржавеет (тем более, что это только начало) :roll:

Звучит многообещающе... :D

[lameli]

Harmer, Смотри аккуратнее! А то тоже перейдешь в разряд хороших милых мальчиков!

[Anonymous]

lameli, хех.. Я уже давно не мальчик.
:D

[Anonymous]

1.Последовательность чисел откуда берется? С клавы вводим?
2. Не понял. Что за

3d d5

3.
y=sin(x), x>0; cos(x), xd0

Это что значит? Если х>0, то синус? А xd0 это чего?

[Anonymous]

не знаю, наверное. а откуда они вообще беруться?

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

[Anonymous]

Может мыло дашь, чтобы форум не захламлять? А то мне с зеркала твой
профиль не виден.

[Anonymous]

Хм.. А ты в аське вообще ни с кем не разговариваешь?

[njc]

Ваше Солнце, а ты каким клиентом пользуешься?

[Storm]

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