Borland Turbo Paskal

[nikita134]

помогите пожалуйста решить.
определитель:
Z=(A-2)во 2 степени - ((А-2)в 4 степ. )/2! + ((А-2)в 6 степ.)/4! - ((A-2)в 8 степ.)/6!



известно А, для которого выполняется условие 3≥lАl>2

[Greblin]

И что же не получается? Формулу вбить не можете?
Преобразовываем по схеме Горнера, получаем

var A, Z, x: real;
...
x := (A-2)*(A-2); //или x := sqr(A-2);
Z := x*(1 - x / 2 * (1 + x / 12 * (1 - x / 30)));

[nikita134]

а вы не могли бы расписать всю программу. зарание спасибо

[Greblin]

program prog1;
var A, Z, x: real;
begin
write('Vvedite A: ');
readln(A);
x := (A-2)*(A-2);
Z := x*(1 - x / 2 * (1 + x / 12 * (1 - x / 30)));
writeln(Z:1:4);
end.

[nikita134]

а имеет ли смысл это решение?
program z5;
label M1;
var
A, Zn, i : integer;
ch, z, f : real;
begin
M1 : writeln('Vvedite A: ');
readln (A);
if ((abs(A)>3) or (abs(A)<=2)) then goto M1;
ch:=sqr(A-2);
z:=0; zn:=-1; ch:=1; f:=1;
for i:=1 to 4 do begin
ch:=ch*sqr(A-2);
zn:=zn*(-1);
f:=f*i;
if (i=3) then f:=f*(i+1);
if (i=4) then f:=f*(i+1)*(i+2);
z:=z+zn*ch/f;
end;
writeln('z = ',z:8:6);
end.

[nikita134]

помогите решить через модуль:
дан список слов S1...S20 каждое не более 20ти символов. напечатать слова и их порядковые номера, состоящии из 5ти букв, состоящие из семи букв , состоящие из 4ёх букв.

сама задача:

uses crt;
var
S:array [1..20] of string[20];
i,k:byte;f:text;
BeGiN clrscr;
assign(f,'Z9.TXT');reset(f); writeln('spisok slov:');
for i:=1 to 20 do readln(f,S[i]);
for i:=1 to 20 do write(' ',S[i]); writeln;
writeln;writeln('slova iz 4 bykv:');k:=0;
for i:=1 to 20 do
if length(S[i])=4 then writeln(i,') ',S[i]) else k:=k+1;
if k=20 then writeln('net');
writeln;writeln('slova iz 5 bykv:');k:=0;
for i:=1 to 20 do
if length(S[i])=5 then writeln(i,') ',S[i]) else k:=k+1;
if k=20 then writeln('net');
writeln;writeln('slova iz 7 bykv:');k:=0;
for i:=1 to 20 do
if length(S[i])=7 then writeln(i,') ',S[i]) else k:=k+1;
if k=20 then writeln('net');
close(f);readln;EnD.

зарание спасибо!