Serjant0007

Помогите пожалуйста решить мне хоть сколько нибудь задач, мне нужно до завтрашнего дня решить. Так если поможете то я точо успею.
1. Составить программу для вычисления числа с точностью до 0,000001 по формуле 1+1/1!+1/2!+1/3!+...1/n!
s:=0;
for i:=1 to n do
begin
f:=1;
for j:=1 to i do
f:=f/j;
s:=s+i*f;
end;
Writeln('полученное число= ',s:10:6);
Readln
End.
2. Начав тренировки спортсмен в первый день пробежал 10км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего лня. Какой суммарный путь пробежит спортсмен за 7 дней? В какой день впервые спортсмен пробежит более 20 км? В какой день впервые суммарный путь превысит 60 км? Ну вот на первый вопрос про 7 дней я знаю а вот остальные. Мои наработки добавтье решение на остальные вопросы.
program dddf;
uses crt;
var
den, i : Integer;
dlina, summa, prozent, a : Real;
begin
ClrScr;
dlina := 10;
summa := 0;
prozent := 10;
if den = 1 then
begin
WriteLn('Дистанция = ', 10.000:10:3,' м');
WriteLn('Суммарный пробег = ', 10.000:10:3,' м')
end
else
begin
for i := 1 to 7 do
begin
a := (dlina / 100) * prozent;
dlina := dlina + a;
summa := summa + dlina
end;
WriteLn('Дистанция =', dlina:10:3,' м');
WriteLn('Суммарный пробег =', (summa+10):10:3,' м')
end;
WriteLn;
ReadLn
end.
3. С помощью оператора Repeat напишите программу которая требует у вас пароль, например 111, и если пароль правильный то печатает сообщение "Молодец". Типа a:='vvedi parol'; Repeat a Until a=111???
4. Составьте программу вычисления степени числа a с натуральным показателем n. (Записать варианты программы с разными видами циклов while, repeat, for).
uses crt;

var
A, N, I : Integer;
Res : Extended;
BEGIN
clrscr;
write('Введите число A: ');
read(A);
write('Введите показатель степени N: ');
read(N);

Res := 1;

For I := 1 to N do
begin
Res := Res * A; {считаем степень}
end;

write(A,'^',N,' = ',Res : 3 : 1); {вывод результата}
readkey;
END.


uses crt;

var
A, N, I : Integer;
Res : Extended;
BEGIN
clrscr;
write('Введите число A: ');
read(A);
write('Введите показатель степени N: ');
read(N);

Res := 1;

while I < N do {пока I < N}
begin
Res := Res * A; {считаем степень}
Inc(I); {инкремент счётчика}
end;

write(A,'^',N,' = ',Res : 3 : 1); {вывод результата}
readkey;
END.


uses crt;

var
A, N, I : Integer;
Res : Extended;
BEGIN
clrscr;
write('Введите число A: ');
read(A);
write('Введите показатель степени N: ');
read(N);

Res := 1;

repeat {повторять}
begin
Res := Res * A; {считаем степень}
Inc(I); {инкремент счётчика}
end;
until I = N; {пока I не будет ровняться N}

write(A,'^',N,' = ',Res : 3 : 1); {вывод результата}
readkey;
END.
5. Составьте программу суммирующую штрафное время команд при игре в хоккей. Выводить на экран суммарное штрафное время обеих команд после любого его изменения. После окончания игры выдать итоговое сообщение. (Не знаю вообще как и что).
6.Каждая бактерия делится на две в течении одной минуты. В начальный момент времени имеется одна бактерия. Составьте программу, которая подсчитывает количество бактерий на заданное вами целочисленное значение момента времени.
s:=0;
for i:=1 to n do
begin
f:=1/2;
s:=s+1;
end;
Writeln('кол-во бактерий за ',n,'секунд составляет: ',s);
Readln
End.
7. Составьте программу получения в порядке убывания всех делителей данного числа.
for i:=n downto 1 do
if (n mod i) = 0 then writeln(i); Остальную часть задачи не знаю как.

shrek=)

Мне представляется это так. Опять же если не правильно поправьте меня.

Vladimir_S

Vladimir_S

В принципе правильно, только мне представляется, что всё-же логичнее для пароля использовать строковую переменную.

Serjant0007

эту вот ввобще не представляю как.
Составьте программу определения наибольшего общего делителя двух натуральных чисел. (Реализовать в виде программы следующий вариант алгоритма Эвклида нахождения наибольшего общего делителя двух натуральных чисел: пока числа не станут равными, большее заменяется на разность большего и меньшего чисел. Когда числа станут равными одному и тому же числу d, то вычисления прекращаются: d равно наибольшему общему делителю исходных чисел).

Vladimir_S

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

Serjant0007

Я же не прям решать вас полностью прошу свои наработки я выкладываю. А то скажите что я просто так ничего делать не хочу и спрашиваю.

Vladimir_S

Хорошо. Только есть подозрение, что некоторые (если не все) из Ваших "наработок" - это что-то сляпанное кое-как наспех. А так программировать бессмысленно - компьютер ошибок не прощает.
Ну ладно, давайте разбираться с "наработками".

Задача 4. Тут всё более ли менее сносно, только несколько замечаний:
1. При вводе чисел A и N следует использовать не оператор read, а оператор readln. С read могут возникнуть проблемы. Да и ввод в таком варианте получается аккуратнее.
2. В вариантах программы 2 и 3 лучше в явном виде указать исходное значение переменной счетчика I (до или сразу после строки Res:=1), в данном случае I:=0; Полагаться на транслятор в этом плане не следует.
3. Оператор Repeat ... Until не требует внутри себя операторных скобок begin ... end, поскольку всё, что заключено между Repeat и Until, и есть тело оператора. Это не ошибка, но просто загромождать программу лишними значками не нужно.

Задача 5.
К сожалению, в хоккее (равно как и в футболе) ничего не понимаю, а потому тоже не знаю, что и как.

Задача 6. Извините, но Ваша т.н. "наработка" - это просто бездумный, сляпанный по принципу "шаляй-валяй" набор каких-то символов. Что такое f? Вы что же, и вправду полагаете, что удвоение количества бактерий равнозначно прибавлению к этому количеству единицы? В общем, должно быть что-то в таком роде:
Задача 7. А никакой "остальной части" и не надо - всё правильно. Осталось только дооформить: создать раздел описания переменных да останов в конце приделать.

Задача 8. В принципе, в условии задачи алгоритм расписан, так что остается только его формализовать. Например, так:

Serjant0007

Спасибо ОГРОМНОЕ!!!!!!!!!!!! Особенно за объяснение)))