| Код |
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var r, p, L, V, K,d:real; // r-удельное сопротивление
i:byte;
begin
write('K: ');
readln(k);
write('V: ');
readln(v);
write('L: ');
readln(l);
write('r: ');
readln(r);
p:=0.5;
i:=1;
write('|');
write('#':3);
write('|':3);
write('p':3);
write('|':3);
write('d':3);
writeln('|':3);
while p<=5 do
begin
d:=1000000*sqrt(40*r*l*(k)/(pi*sqr(v)*p*(100-6)))/1000;
write('|');
write(i:3);
write('|':3);
write(p:3:1);
write('|':3);
write(d:3:1);
writeln('|':3);
i:=i+1;
p:=p+0.5;
end;
readln;
end.
|
не помню есть ли в паскале функция возведения в степень, потому написал вместо "10 в 6 степени" просто 1 лям.... я вроде писал функцию возведения в степень сам...
PS знаю, что есть способы проще, но щас думать влом, 4 дня бухал, спать хочеца... |
