Помогите блондинке,в паскале ваще не разбираюсь

[BlonDino4Ka]

Ребят а вы мне еще не поможете ???
В заранее спасибки

[BlonDino4Ka]

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

Ребят а вы мне еще не поможете ???
В заранее спасибки

Некто не знает что ль ??
Обидно

[puporev]

uses crt;
var x,sm1,sm2,sm3,u:real;
    i,j,n:byte;
function Fact(n:byte):longint;//функция для вычисления факториала
var i:byte;
    k:longint;
begin
k:=1;
for i:=1 to n do
k:=k*i;
Fact:=k;
end;
begin
clrscr;
write('n=');readln(n);//n больше 12 не берите
write('x=');readln(x);
sm1:=0;
for i:=1 to 6 do //считаем числитель, вверху
sm1:=sm1+sin(i-x*x);
sm2:=0;
for i:=1 to 6 do //в двойном цикле считаем знаменатель, внизу
   begin
     sm3:=0;
     for j:=1 to 8 do
     sm3:=sm3+sqr(i+j)+Fact(n);
     sm2:=sm2+sm3;
   end;
u:=cos(sm1)/sm3; //считаем косинус числителя/знаменатель
write('U=',u:0:5);
readln
end.

[BlonDino4Ka]

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

uses crt;
var x,sm1,sm2,sm3,u:real;
    i,j,n:byte;
function Fact(n:byte):longint;//функция для вычисления факториала
var i:byte;
    k:longint;
begin
k:=1;
for i:=1 to n do
k:=k*i;
Fact:=k;
end;
begin
clrscr;
write('n=');readln(n);//n больше 12 не берите
write('x=');readln(x);
sm1:=0;
for i:=1 to 6 do //считаем числитель, вверху
sm1:=sm1+sin(i-x*x);
sm2:=0;
for i:=1 to 6 do //в двойном цикле считаем знаменатель, внизу
   begin
     sm3:=0;
     for j:=1 to 8 do
     sm3:=sm3+sqr(i+j)+Fact(n);
     sm2:=sm2+sm3;
   end;
u:=cos(sm1)/sm3; //считаем косинус числителя/знаменатель
write('U=',u:0:5);
readln
end.

Спасибки зай большое,уже не первый раз выручаешь,чтоб я без тебя бы делала

[BlonDino4Ka]

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

uses crt;
var x,sm1,sm2,sm3,u:real;
    i,j,n:byte;
function Fact(n:byte):longint;//функция для вычисления факториала
var i:byte;
    k:longint;
begin
k:=1;
for i:=1 to n do
k:=k*i;
Fact:=k;
end;
begin
clrscr;
write('n=');readln(n);//n больше 12 не берите
write('x=');readln(x);
sm1:=0;
for i:=1 to 6 do //считаем числитель, вверху
sm1:=sm1+sin(i-x*x);
sm2:=0;
for i:=1 to 6 do //в двойном цикле считаем знаменатель, внизу
   begin
     sm3:=0;
     for j:=1 to 8 do
     sm3:=sm3+sqr(i+j)+Fact(n);
     sm2:=sm2+sm3;
   end;
u:=cos(sm1)/sm3; //считаем косинус числителя/знаменатель
write('U=',u:0:5);
readln
end.

а блок схемку помогите плиз чет не как самой

[BlonDino4Ka]

ну ребят оч надо=(