Turbo Pascalda düstur

Mehman Elxanoglu

1

(17:57, 28/05/2012 ) #15950

Misal o qədər qısa və o qədər sadədir ki, tam anlamaq olmur nə istədiyinizi… Üstəlik burada x dəyişənindən əsər-əlamət belə yoxdur. Yaxşı olar ki, misalın əllə yazılmış variantının şəklini çəkib, upload edəsiniz. Mövzu nədir, bu düstur fizikanın hansı bölməsinə aiddir, hansı məqsədlər üçün istifadə edilir bu düsturdan və s. bu kimi geniş izahatlar versəniz daha yaxşı olar. Ondan sonra inanıram ki, proqramlaşdırma işinə (kod hissəsində) köməklik göstərmək olar.

Mehman Elxanoglu

2

(22:45, 28/05/2012 ) #15972

Düzünə qalsa, yenə başa düşmədim, riyazi biliklərimə əsaslansam, belə başa düşmək olar ki, d = (d0+delta_c)*x – ə bərabərdir. Proqram sonda ədəd qaytaracaqsa, deməli, Sizə törəmə funksiya yox, törəmə funksiyanın nöqtədəki qiyməti lazımdır, onu da ki, d0+delta_c kimi göstərmisiniz. Birtəhər özümün başa düşdüyü kimi yazacam.

program Dustur;
const pi2=9.8696044010893586188344909998762;
var dd, d0, delta_c, Ks, h, M0, L0, r, w, Lr: Real; i,n: Integer;
begin
  writeln('d0 = '); readln(d0);
  writeln('delta_c'); readln(delta_c);
  dd:=d0+delta_c;
  writeln('dd = ',dd);
  writeln('n = '); readln(n);
  writeln('h = '); readln(h);
  writeln('i = '); readln(i);
  writeln('M0 = '); readln(M0);
  writeln('L0 = '); readln(L0);
  writeln('r = '); readln(r);
  writeln('w = '); readln(w);
  writeln('Lr = '); readln(Lr);
  Ks:=0.5*pi2*(dd/n)*(h*i/n)*M0/(L0*sqrt(1+sqr(r/(w*Lr))));
  writeln('Ks = ', Ks);
end;