Задача ** паскале. Пожалуйста, пишите всю! В первый час работы рабочий изготавливает а...

Question

Задача на паскале. Пожалуйста, пишите всю!

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

Answer 1

Const
  A = 10;
  d = 2;
Var k : integer;
Function Detali(dd,kk : Integer) : Integer;
Begin
  If kk>0 then Detali:=dd+Detali(dd+d,kk-1) else Detali:=0;
end;

Begin
  Readln(k);
  Writeln(Detali(A,k));
end.

Comments

Плюс по условию нужно переменные, ведь даны-то буквы = переменная

---

ну тогда ждём "оратора выше", пока он исправит свой код.

---

Вот в этом вся загвоздка. Нужно решать так, как предложил оратор выше, но вот составление формул - не мой конек.

---

только боюсь препод будет придираться не типу данных, а к реализации кода через рекурсию... )

---

Var A,d,k : integer;
Function Detali(dd,kk : Integer) : Integer;
Begin
If kk>0 then Detali:=dd+Detali(dd+d,kk-1) else Detali:=0;
end;

Begin
Readln(A,d,k);
Writeln(Detali(A,k));
end.

---

)) ну хорошо, сейчас изменю

---

ну, учитывая склад ума нашего учителя, оно указывается автоматом в голове :D

---

с чего Вы так решили? а как тогда должны указываться константы?

---

Ага, тут константы не нужны.
Я один раз самостоятельно на контрольной написал программу с константами - мне поставили 2 со словами "Явно списывал"

---

var a,k,i,d,m:integer; {m - запоминает значение a для конечной прибавки..}
begin
Writeln('За первый час - ');
Readln(a);
Writeln('За каждый последующий - ');
Readln(d);
Writeln('Сколько часов работал рабочий?');
Readln(k);
m:=a;
for i:=1 to k-1 do
begin
m:=m+d;
a:=a+m;
end;
Writeln('Рабочий изготовил ',a,' деталей')

Answer 2

Var a,k,i,d,m:integer; {m - запоминает значение a для конечной прибавки..}
begin 
Writeln('За первый час - '); 
Readln(a); 
Writeln('За каждый последующий - '); 
Readln(d); 
Writeln('Сколько часов работал рабочий?'); 
Readln(k); 
k:=k-1; 
m:=a; 
for i:=1 to k do   
a:=a+d; 
Writeln('Рабочий изготовил ',a+m,' деталей')
End.

Comments

ошибочка, за 3 часа цикл повторяется 2 раза, а уже в конце к значению полученному прибавляется изначальное значение(которое было за первый час, я ввел ещё 1 переменную за сохранение этого результата - m)

---

А я так думаю, возьмем пример: a=10, d =2 - по товему коду результат 24 детали, а на самом деле: 1 час - 10 деталей, 2 час - 10+2, 3 час - 12+2, итого 10+12+14 = 36 деталей

---

Надеюсь модераторы смогут перенести код в "ответы"

---

оно самое =(

---

var a,k,i,d,m:integer; {m - запоминает значение a для конечной прибавки..}
begin
Writeln('За первый час - ');
Readln(a);
Writeln('За каждый последующий - ');
Readln(d);
Writeln('Сколько часов работал рабочий?');
Readln(k);
m:=a;
for i:=1 to k-1 do
begin
m:=m+d;
a:=a+m;
end;
Writeln('Рабочий изготовил ',a,' деталей')
End.

---

Фильм случаем не "Вспомнить все"?

---

подожди, уже забыл =(

---

Ну тогда давай, "жги" :D

---

я смотрел фильм и посреди фильма стукнула в голову в чем ошибка..

---

В коде где-то ошибка. При a = 5 , d = 1 и k = 4 результат должен быть 26, программа выдает 13.
Весь день уже тоже голову ломаю