задача с оператором for

[Smirnov]

у меня паскаль первый раз в жизни и мне задали сделать лабораторную, которая мне никак не поддаётся..помогите пожалуйста укажите на ошибки что не так:
задание: определите изменение средней тепловой скорости электрона в кремнии при изменении температуры от 150К до 350К через 25К
(Mn*V^2)/2= 3*K*T/2
где mn – см. вариант 1;  – скорость; k – постоянная Больцмана (1.3810–23 Дж/К) Т –температура.где m0 – масса покоя электрона (9.1110 –31 кг); mn – эффективная масса электрона ( для кремния mn = 0.26m0

нужно решить с помощью оператора for
вот что у меня получилось:

const
       K=1.38e-23;
       Mn=9.11e-13 * 0.26;
var
 i:extended;
 Q,m,T1,T2:integer;
 V:extended;

begin
  T1:=150;
  T2:=350;
  m:=25;
  Q:=(T2-T1)/m;
  writeln (Q);
  for i:=1 to Q do
    begin
       T:=T1+(i-1)*m;
       V:=sqrt(3*K*T/Mn);
       Writeln (V);
    end;
end.

[rubius2008]

Замените

Q:=(T2-T1)/m;

на

Q:=(T2-T1) div m;

Q - целого типа простое деление нельзя использовать, т.к. результатом является вещественное число, поэтому использовать надо целочисленное деление.
переменная i должна быть целого типа (integer), т.к. используется в качестве счетчика цикла

[DiemonStar]

А нагляднее было бы организовать цикл так:

For T:= (150 div 25) to (350 div 25) do
  begin
     V:=sqrt(3*K*(T*25)/Mn);
     Writeln(V);
  end;

[Stilet]

step 25

Это в каком паскале появилось?

[DiemonStar]

Сообщение от Stilet

Это в каком паскале появилось?

Каюсь, грешен... последнее время в VBA много сижу...

поправил немножко, но эффект не тот...

[Smirnov]

а как решить такую же задачу только не при помощи For а при помощи rереаt и whilе
что нужно поменять?

[DiemonStar]

а что значит div в чём отличие от простого /

при обычном делении у вас на выходе реальное число, а после div - целое.

а как решить такую же задачу только не при помощи For а при помощи rереаt и whilе

T := 150;
While T <= 350 do
  begin
     V:=sqrt(3*K*(T*25)/Mn);
     Writeln(V);
     T := T + 25;
  end;

T := 150;
repeat
     V:=sqrt(3*K*(T*25)/Mn);
     Writeln(V);
     T := T + 25;
until T > 350;