Найти ошибку в моей проге

18.10.2009, 17:35. **Показов** 726. **Ответов** 8

Author24 — интернет-сервис помощи студентам

Помогите решить задачу или хоть подскажите, где ошибки
Для выработки вакцины на заводе планируют выращивать культуру бактерий. Известно: если бактерий х грамм, то через день их масса увеличится на х(a-bx) грамм, где a,b зависят от вида бактерий. Каждый день завод будет забирать для нужд производства m грамм бактерий. Для сложения плана необходимо знать, как изменится масса бактерий через 1,2...365 дней. Дайте ответ на этот вопрос. Желательно рашить в Паскале АБЦ. Но можно и так, я сама переведу. Вот моё решение

Pascal

program z5;
uses crt;
var X, a, b, m, M1, M2 :real;
i :integer;
begin
clrscr;
write('X:');readln(X);
write('a:');readln(a);
write('b:');readln(b);
write('m:');readln(m);
for i:=1 to 365 do
begin
M1:=X*(a*X-m);
 
M2:=X*(b*X-m);
 
end;
Readln(M1);
Readln(M2);
end.

@Aurum Flare · 18.10.2009, 17:53

а в чем проблема?

@Ivan1986 · 18.10.2009, 17:56

Readln(M1);
Readln(M2);

может

writele(M1);
writele(M2);

?

и формула неправильная конечно

@Aurum Flare · 18.10.2009, 18:01

writeln(M1);
writeln(M2);

это полюбому

@Ivan1986 · 18.10.2009, 18:01

Pascal

uses crt;
var
     x0, x, a, b, m :real;
     i :integer;
begin
clrscr;
write('x0:');readln(x0);
write('a:');readln(a);
write('b:');readln(b);
write('m:');readln(m);
x:=x0;
for i:=1 to 365 do
begin
  x := x*(a - b*x);
  x := x - m;
  writeln(i, " день ", x);
end;
writeln("в конце ",x);
end.

примерно так, если я не забыл еще синтаксис паскаля

@Aurum Flare · 18.10.2009, 18:02

еще если я правильно понял задание необходимо получать результат для какого-то определенного дня 1,2,3,365... так?

@Ivan1986 · 18.10.2009, 18:07

если так, то нужно добавить переменную n и цикл от 1 до n
еще вроде немного ошибся с фразой "увеличится на х(a-bx)"
должно быть так

Pascal

1	x := x + x(a - bx);

@Aurum Flare · 18.10.2009, 18:11

да цикл от 1 до n самое оно...

@tururui · 18.10.2009, 20:31

Написано коряво, но алгоритм примерно должен быть таким

Pascal

 const a=2; b=0.01;
  var
     s, x, m :real;
     i,n:integer;
begin
writeln('x:');readln(x);
writeln('m:');readln(m);
s:=0;
 if m = x*(a-b*x) then
writeln('Zagruzocin massa bakterii post i ravna ',x:5:2);
 if m < x*(a-b*x) then
 begin
 writeln('Massa bact rastet. Vvedite kol dnei');
 readln(n);
for i:=1 to n do
  begin
  x := x*(a - b*x)-m;
  s:=s+x;
  end;
     writeln('Na ', n, ' deni budet ', s:5:2,' gramm bakterii');
 end;  readln;
 if m > x*(a-b*x) then
 writeln('Zavod beret slishkom mnogo');
readln;
end.

@Aurum Flare 2 / 2 / 0 Регистрация: 14.10.2009 Сообщений: 22
	18.10.2009, 17:53	2
	а в чем проблема? 0

@Ivan1986 0 / 0 / 0 Регистрация: 24.09.2009 Сообщений: 6
	18.10.2009, 17:56	3
	Readln(M1); Readln(M2); может writele(M1); writele(M2); ? и формула неправильная конечно 0

@Aurum Flare 2 / 2 / 0 Регистрация: 14.10.2009 Сообщений: 22
	18.10.2009, 18:01	4
	writeln(M1); writeln(M2); это полюбому 0

@Aurum Flare 2 / 2 / 0 Регистрация: 14.10.2009 Сообщений: 22
	18.10.2009, 18:02	6
	еще если я правильно понял задание необходимо получать результат для какого-то определенного дня 1,2,3,365... так? 0

@Aurum Flare 2 / 2 / 0 Регистрация: 14.10.2009 Сообщений: 22
	18.10.2009, 18:11	8
	да цикл от 1 до n самое оно... 0

	18.10.2009, 20:31