پاسکال.برنامه.پروژه.حل مسائل

پاسخ : پاسکال.برنامه.پروژه.حل مسائل

روش لاگرانژ برای پیدا کردن مقدار تابع با داشتن چند نقطه از آن تابع

[FONT=arial, helvetica, sans-serif]

program lagrange;
uses crt;
var
i,j,n:integer;
x,h,f:array[1..100] of real;
x0,s,g:real;
begin
clrscr;
write ('How many points exist ?==>');
readln (n);
write ('Insert x0:Specail point==>');
readln (x0);
writeln ('Insert x first & Insert f late');
for i:=1 to n do
begin
readln (x);
gotoxy (7,3+i);
readln (f);
end;
for i:=1 to n do
begin
h:=f;
for j:=1 to n do
if j<>i then
g:=(x0-x[j])/(x-x[j]);
h:=h*g;
s:=s+h;
end;
writeln ('f(',x0:4:2,')=>',s:5:2);
readln;
end.​

[/FONT]

 

پاسخ : پاسکال.برنامه.پروژه.حل مسائل

ضرب داخلی یا نقطه ای یا اسکالر دو بردار

uses crt;
var
A:array [1..100] of real;
B:array [1..100] of real;
i,j,n:integer;
C:real;
begin
clrscr;
writeln ('what is degree');
readln (n);
clrscr;
writeln ('write arrays of A');
for i:=1 to n do
readln (A);
writeln('write arrays ofB');
for i:=1 to n do
readln(B);
clrscr;
for i:=1 to n do
begin
write (A:10:1);
writeln (B:10:1);
C:=A*b+C;
end;
writeln;
writeln ('A.B=',C:1:1);
readln;
end

 

پاسخ : پاسکال.برنامه.پروژه.حل مسائل

نوشتن دنباله فيبوناچي fibonacci

توضیح:۲ جمله اول این دنباله عدد یک هست. جمله های بعدی مجموع دو جمله قبل آن جمله هستند.

program fibonatchi;
uses crt;
var
a,b:integer;
c,d,e:real;
begin
clrscr;
readln(a);
c:=1;
d:=1;
for b:=1 to a-1 do
begin
e:=c+d;
c:=d;
d:=e;
writeln(e:1:0);
end;
readln;
end.​

 

پاسخ : پاسکال.برنامه.پروژه.حل مسائل

بسط سری تیلور سينوس ايكس sin x و مقايسه آن با مقدار حقيقي

[FONT=Tahoma, Arial, Helvetica, sans-serif]uses crt;[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]var[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]n,i:integer;[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]y,x,a,s:real;[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]begin[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]writeln ('insert x,n');[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]readln (x,n);[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]y:=(x*Pi)/180;[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]s:=y;[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]a:=y;[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]for i:=2 to n do[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]begin[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]a:=a*(((-1)*(y*y))/((2*i-1)*(2*i-2)));[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]s:=s+a;[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]end;[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]writeln (('tailor=>'):10,s);[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]writeln (('computer=>'):10,sin(y));[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]readln;[/FONT]​

[FONT=Tahoma, Arial, Helvetica, sans-serif]end.[/FONT]

 

پاسخ : پاسکال.برنامه.پروژه.حل مسائل

به توان طبیعی رساندن یک عدد حقیقی

program power;
var
j,a:real;
i,n:integer;
begin
writeln ('insert a,n in a^n');
readln (a,n);
j:=1;
for i:=1 to n do
j:=j*a;
writeln (j:5:2);
readln;
end

 

پاسخ : پاسکال.برنامه.پروژه.حل مسائل

برنامه فاکتوریل

program factorial;
uses crt;
var
f:real;
n,i:integer;
begin
clrscr;
f:=1;
writeln ('insert n');
readln (n);
for i:=1 to n do
f:=i*f;
writeln ('n!=',f);
readln;
end