Составить программу!

[Glum]

Найти зависимость искомых величин от изменения определенного параметра и результаты вывести в виде таблицы
1.

2.


Искомые величины - t, n.
Изменяющийся параметр w= меняется от 30 до 35
Значения:
R= 1,35
М= 101
r= 13
ν= 50-60
F= 2.2
k= 0.63
Кто знает, помогите, а то не получается =(

[Leshii]

Так, а что не получается?

Вот, что-то набросал, я так понимаю вам формулы уже вывели, и работаете вы с конечными формулами.

Program Zav;
Uses crt;
const
 R= 1.35
 М= 101
 r= 13
 F= 2.2
 k= 0.63
 pi= 3.14;
var
 t, n, w: real;
begin
clrscr;
write('Enter w= ');readln(w);
t:=(w*sqr(R)*M)/(K*F*r);
n:=(sqr(w)*sqr(R)*M)/( 4*pi*k*F*r);
writeln('t= ',t:3:2,' ','n=',n:3:2);
readkey;
end.

не совсем понятно вот это

ν= 50-60

или же

Program Zav;
Uses crt;
const
 R= 1.35
 М= 101
 r= 13
 F= 2.2
 k= 0.63
 pi= 3.14;
var
 t, n, w: real;
 n, i: integer;
 q: text;
begin
clrscr;
Assign(q,'table.txt');
rewrite(q);
i:=0;
writeln('Enter n= ');//количество повторений
repeat
write('Enter w= ');readln(w);
t:=(w*sqr(R)*M)/(K*F*r);
n:=(sqr(w)*sqr(R)*M)/( 4*pi*k*F*r);
writeln('t= ',t:3:2,' ','n=',n:3:2);
writeln(q,'t= ',t:3:2,' ','n='n:3:2);
i:=i+1;
until i=n;
close(q);
readkey;
end.

Второй вариант мне нравится больше =)

[Glum]

а если W массив? в котором находятся числа [30..35], нужно обсчитать эти уравнения в 5и случаях когда w=30, w=31..w=35. Как это автоматизировать, а не вводить по очереди значения w ?

[Leshii]

посмотрите выше, я вам ещё второй вариант набросал.
Я вот не думаю что массив, скорее числа на интервале от ... до ... ( уже подсказка ). Но в формуле я того v не вижу или может я чего не понимаю.

ну тогда

вот вам вариант номер 3

Program Zav;
Uses crt;
const
 R= 1.35
 М= 101
 r= 13
 F= 2.2
 k= 0.63
 pi= 3.14;
var
 t, n: real;
 w: integer;
 q: text;
begin
clrscr;
Assign(q,'table.txt');
rewrite(q);
for w:=30 to 35 do begin 
t:=(w*sqr(R)*M)/(K*F*r);
n:=(sqr(w)*sqr(R)*M)/( 4*pi*k*F*r);
writeln('t= ',t:3:2,' ','n=',n:3:2);
writeln(q,'t= ',t:3:2,' ','n='n:3:2);
end;
close(q);
readkey;
end.

[Glum]

Второй вариант работает, но нужно массивом указать w, чтобы потом для результатов t1,t2..t5 и n1,n2..n5 дописать подпрограмму на вычисления максимального значения t и n. Под силу ли вам это?
Параметр v там есть, но кажется он там ошибочно, тоже не могу понять для чего он...

[Leshii]

Тогда вот вам вариант номер 4

Program Zav;
Uses crt;
const
 R= 1.35
 М= 101
 r= 13
 F= 2.2
 k= 0.63
 pi= 3.14;
var
 t, n: array [1..5] of real;
 max, min, imin, imax, w: integer;
 q: text;
begin
clrscr;
Assign(q,'table.txt');
rewrite(q);
for i:=1 to 5 do begin
  for w:=30 to 35 do begin 
       t[i]:=(w*sqr(R)*M)/(K*F*r);
       n[i]:=(sqr(w)*sqr(R)*M)/( 4*pi*k*F*r);
       writeln('# i  ','t= ',t[i]:3:2,' ','n=',n[i]:3:2);
       writeln(q,'# i  ','t= ',t[i]:3:2,' ','n='n[i]:3:2);
  end;
end;
close(q);
readkey;
end.

Попробуй данный вариант. Мин макс сам найдешь?

[Glum]

Не работает =( выводит слишком много значений, вместо 6 выводит штук 20. Разве делать вывод результатов на экран не проще? Зачем использовать CRT?

[Leshii]

Добрался до компа, сейчас разберёмся.

[Leshii]

Теперь оно? Там вывод и в консоль и в текстовый файл, в файл просто наглядно вывожу, а там как захотите.
Ответ на ваш вопрос по поводу модуля CRT. В данном случае я его использую ради вот этой функции clrscr;( очистка экрана ).

Program Zav;
Uses crt;
const
 R= 1.35
 М= 101
 rr= 13
 F= 2.2
 k= 0.63
 pi= 3.14;
var
 t, n: array [1..5] of real;
 w, i: integer;
 q: text;
begin
clrscr;
Assign(q,'table.txt');
rewrite(q);
w:=30;
for i:=1 to 5 do begin
  while w<=35 do begin
       t[i]:=(w*sqr(R)*M)/(K*F*rr);
       n[i]:=(sqr(w)*sqr(R)*M)/( 4*pi*k*F*rr);
       writeln('# i  ','t= ',t[i]:3:2,' ','n=',n[i]:3:2);
       writeln(q,'# i  ','t= ',t[i]:3:2,' ','n='n[i]:3:2);
       w:=w+1;
  end;
end;
close(q);
readkey;
end.

[Glum]

Работает, вопрос: как вы в массив размерностью 5 вместили 6 значений?)