Scribd
Upload
669 views

Pascal Examples1 PDF

This document contains 13 simple programs written in the Pascal programming language for beginners. The programs include: 1. A "Hello World" program that prints the greeting. 2. A program that sums two integer numbers. 3. A program that reads four numbers and finds the smallest using if conditions. 4. A program that reads and prints tables of multiplication for a given number.

Uploaded by

عمار جيدور
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
669 views

Pascal Examples1 PDF

This document contains 13 simple programs written in the Pascal programming language for beginners. The programs include: 1. A "Hello World" program that prints the greeting. 2. A program that sums two integer numbers. 3. A program that reads four numbers and finds the smallest using if conditions. 4. A program that reads and prints tables of multiplication for a given number.

Uploaded by

عمار جيدور
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 22

‫ﺗﻢ ﺗﺤﻤﻴﻞ ﺍﻟﻤﻠﻒ ﻣﻦ ﻣﻮﻗﻊ‬

‫ﺍﻟﺒﻮﺻﻠﺔ ﺍﻟﺘﻘﻨﻴﺔ‬
‫‪http://www.boosla.com‬‬
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﰲ ﻟﻐﺔ‬


Turbo Pascal

‫ﺑﻌﺾ ﺍﻟﱪﺍﻣﺞ ﺍﻟﺒﺴﻴﻄﺔ ﰲ‬

‫ﻟﻐﺔ ﺍﻟﱪﳎﺔ ﺑﺎﺳﻜﺎﻝ ﻟﻠﻤﺒﺘﺪﺋﲔ‬

‫ﺇﻋﺪﺍﺩ‬

‫ﺧﲑﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
:Hello World ‫ﺑﺮﻧﺎﻣﺞ ﻳﻘﻮﻡ ﺑﻄﺒﺎﻋﺔ ﻋﺒﺎﺭﺓ ﺍﻟﺘﺮﺣﻴﺐ‬-1

Program test_1;
Begin
Writeln('Hello World');
End.
:‫ﺑﺮﻧﺎﻣﺞ ﺟﻤﻊ ﻋﺪﺩﻳﻦ ﺻﺤﻴﺤﻴﻦ‬-2

Program test_2;
Var x,y,z:integer;
Begin
Writeln('Enter the Number");
Readln(x,y);
Z:=x+y;
Writeln('Z=',Z);
End.

if ‫ ﺑﺮﻧﺎﻣﺞ ﻳﻘﺮﺃ ﺃﺭﺑﻌﺔ ﺃﻋﺪﺍﺩ ﻭﻳﺠﺪ ﺍﻷﺻﻐﺮ ﺑﻴﻨﻬﻢ ﺑﺎﺳﺘﺨﺪﺍﻡ ﺍﻟﺸﺮﻁ‬-3

Program test_4;
Var a,b,c,d,Max:integer;
Begin
Write('Enter Four Number');
Readln(a,b,c,d);
If(a<b) and (a<c) and(a<d) then
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
Min:=a;
Else if(b<a) and (b<c) and (b<d) then
Min:=b;
Else if(c<a) and (c<b) and (c<d) then
Min:=c;
Else
Min:=d;
Writeln('Min=',Min);
End.
:‫ ﺑﺭﻧﺎﻣﺞ ﻳﻘﺭﺃ ﺃﺭﺑﻌﺔ ﺃﻋﺩﺍﺩ ﻭﻳﻁﺑﻊ ﺍﻷﻛﺑﺭ ﺑﻳﻧﻬﻡ‬-4
Program test_4;
Var a,b,c,d,Max:integer;
Begin
Write('Enter Four Number');
Readln(a,b,c,d);
If(a>b) and (a>c) and(a>d) then
Max:=a;
Else if(b>a) and (b>c) and (b>d) then
Max:=b;
Else if(c>a) and (c>b) and (c>d) then
Max:=c;
Else
Max:=d;
Writeln('Max=',Max);
End.
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
:‫ ﺑﺭﻧﺎﻣﺞ ﻳﻁﺑﻊ ﺟﺩﻭﻝ ﺍﻟﺿﺭﺏ ﻟﻌﺩﺩ ﻣﺩﺧﻝ ﻣﻌﻳﻥ‬-5
Program test_5;
Var n,I,prod:integer;
Begin
Write('n=');
Readln(n);
For:=1 to 10 do
Prod:=n*I;
Writeln(prod);
End.

:‫ ﺑﺭﻧﺎﻣﺞ ﻳﻁﺑﻊ ﺟﺩﻭﻝ ﺍﻟﺿﺭﺏ ﻟﻌﺩﺩ ﻣﺩﺧﻝ ﻣﻌﻳﻥ‬-6


Program Test_6;
Var n,i:integer;
Begin
Write('n=');
Readln(n);
For:=1 to 10 do
Writeln(I,'*',n,'=',i*n);
End.

:‫ ﺑﺭﻧﺎﻣﺞ ﺇﺩﺧﺎﻝ ﻋﺩﺩﻳﻥ ﻭﺇﻳﺟﺎﺩ ﻣﺟﻣﻭﻋﻬﻣﺎ‬-7


Program test_7;
Var x,y,z:integer;
Begin
Write('x=');
Readln(x);
Write('y=');
Readln(y);
Z:=x+y;
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
Writeln('z=',z);
End.

:‫ ﺑﺭﻧﺎﻣﺞ ﻳﺩﺧﻝ ﺍﺳﻡ ﻭﻳﻁﺑﻊ ﺑﻌﺩﻩ ﻋﺑﺎﺭﺓ ﻧﺻﻳﺔ ﻣﻌﻳﻧﺔ‬-8


Program test_8;
Var name:String;
Const Stu=' is A good Man';
Begin
Write('Enter the Name ');
Readln(name);
Writeln('………………');
Writeln(Name,Stu);
End.

:y=x+1 ‫ ﺑﺭﻧﺎﻣﺞ ﺇﺩﺧﺎﻝ ﻋﺩﺩ ﻭﺯﻳﺎﺩﺓ ﻫﺫﺍ ﺍﻟﻌﺩﺩ ﺑﻣﻘﺩﺍﺭ ﻭﺍﺣﺩ ﻭﻓﻕ ﺍﻟﻣﻌﺎﺩﻟﺔ‬-9
Program test_9;
Var x,y:integer;
Begin
Write('x=');
Readln(x);
y:=x+1;
Writeln('y=',y);
Readln;
End.
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
:‫ ﺑﺭﻧﺎﻣﺞ ﺇﺩﺧﺎﻝ ﻋﺩﺩﻳﻥ ﺣﻘﻳﻘﻳﻳﻥ ﻭﺍﻟﺗﺑﺩﻳﻝ ﺑﻳﻥ ﻗﻳﻣﺗﻳﻬﻣﺎ‬-10
Program test_10;
Var a,b,temp:Real;
Begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Temp:=a;
a:=b;
b:=temp;
Writeln('a=,a);
Writeln('b=',b);
End.

:Z=x^2*y^2 ‫ ﻣﻥ ﺧﻼﻝ ﺍﻟﻌﻼﻗﺔ‬Z ‫ ﺑﺭﻧﺎﻣﺞ ﻟﺣﺳﺎﺏ ﻗﻳﻣﺔ‬-11


Program test_11;
Var z,y,x:integer;
Begin
Write('x=');
Readln(x);
Write('y=');
Readln(y);
Z:=sqr(x)+sqr(y);
Writeln('z=',z);
End.
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
:‫ ﺑﺭﻧﺎﻣﺞ ﻟﻁﺑﺎﻋﺔ ﺍﻟﻌﺩﺩ ﺍﻷﺻﻐﺭ ﺑﻳﻥ ﻋﺩﺩﻳﻥ ﺻﺣﻳﺣﻳﻥ‬-12
Program test_12;
Var x,y,Min:integer;
Write('x=');
Readln(x);
Write('y=');
Readln(y);
If x<y then
Min:=x;
Else
Min:=y;
Writeln('Min",Min);
End.

‫ ﻭﺇﺫﺍ ﻛﺎﻧﺕ ﺍﺻﻐﺭ ﻳﻁﺑﻊ‬Successful ‫( ﻳﻁﺑﻊ‬60) ‫ ﺑﺭﻧﺎﻣﺞ ﻋﻼﻣﺔ ﻁﺎﻟﺏ ﺇﺫﺍ ﻛﺎﻧﺕ ﺍﻛﺑﺭ ﻣﻥ‬-13
:Filling
Program test_13;
Var x:integer;
Begin
Write('Pleas Enter Your Mark');
Readln(x);
If X>60 then
Writeln('Seccessfull');
Else
Writeln('Failing');
End.
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
:a=√b^2+c^2 ‫ ﺑﺭﻧﺎﻣﺞ ﻟﺣﺳﺎﺏ ﻁﻭﻝ ﺍﻟﻭﺗﺭ ﻓﻲ ﺍﻟﻣﺛﻠﺙ ﺍﻟﻘﺎﺋﻡ ﻭﻓﻕ ﺍﻟﻌﻼﻗﺔ‬-14
Program test_14;
Var a,b,c:integer;
Begin
Write('Enter b,c);
Readln(b,c);
a:=sqrt(sqr(b)+sqr(c));
Writeln('a=',a);
End.

:(‫ ﺑﺭﻧﺎﻣﺞ ﻳﻁﺑﻕ ﻋﻼﻗﺔ ﻓﻳﺛﺎﻏﻭﺭﺱ )ﻣﺟﻣﻭﻉ ﻣﺭﺑﻌﻲ ﺍﻟﺿﻠﻌﻳﻥ ﺍﻟﻘﺎﺋﻣﺗﻳﻥ = ﻣﺭﺑﻊ ﺍﻟﻭﺗﺭ‬-15
Program test_15;
Var a,b,c:integer;
Begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);

C:=Sqr(a)+Sqr(b);
Writeln('C=',C);
End.
2 / ‫ ﺍﻻﺭﺗﻔﺎﻉ‬x ‫ ﻣﺳﺎﺣﺔ ﺍﻟﻣﺛﻠﺙ =ﺍﻟﻘﺎﻋﺩﺓ‬:‫ ﺑﺭﻧﺎﻣﺞ ﻟﺣﺳﺎﺏ ﻣﺳﺎﺣﺔ ﺍﻟﻣﺛﻠﺙ ﻣﻥ ﺧﻼﻝ ﺍﻟﻌﻼﻗﺔ‬-16
Program test_16;
Var Base,Hight:integer;
Area:Real;
Begin
Write('Base=');
Readln(Base);
Write('Hight=');
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
Readln(Hight);
Area:=(Base*Hight)/2;
Writeln('Area=',Area);
End.

area = ∗ ^ : ‫ﺑﺭﻧﺎﻣﺞ ﻟﺣﺳﺎﺏ ﻣﺳﺎﺣﺔ ﺍﻟﺩﺍﺋﺭﺓ ﻣﻥ ﺧﻼﻝ ﺍﻟﻌﻼﻗﺔ‬-17


Program test_17;
Var Area,R:Real;
Const pi=3.14;
Begin
Write('R=');
Readln(R);
Area:=pi*R*R;
Writeln('Area=',Area);
End.
C=2πR:‫ ﺑﺭﻧﺎﻣﺞ ﻟﺣﺳﺎﺏ ﻣﺣﻳﻁ ﺍﻟﺩﺍﺋﺭﺓ ﻣﻥ ﺧﻼﻝ ﺍﻟﻌﻼﻗﺔ‬-18
Program test_18;
Var C,R:Real;
Const Pi=3.14;
Begin
Write('R=');
Readln(R);
C:=2*Pi*R;
Writeln('C=',C);
End.
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
:‫ ﺍﻟﺯﻣﻥ‬/ ‫ ﺍﻟﺳﺭﻋﺔ = ﺍﻟﻣﺳﺎﻓﺔ‬:‫ ﺑﺭﻧﺎﻣﺞ ﻟﺣﺳﺎﺏ ﺍﻟﺳﺭﻋﺔ ﻭﻓﻕ ﺍﻟﻌﻼﻗﺔ‬-19
Program test_19;
Var L,S:integer;
Speed:Real;
Begin
Write('L=');
Readln(L);
Write('S=');
Readln(S);
Speed:=L/S;
Writeln('Speed=',Speed);
End.

Odd ‫ ﻭﺇﺫﺍ ﻛﺎﻥ ﺳﺎﻟﺏ ﻳﻁﺑﻊ‬Positive ‫ ﺑﺭﻧﺎﻣﺞ ﻳﺧﺗﺑﺭ ﺭﻗﻡ ﺇﺫﺍ ﻛﺎﻥ ﻣﻭﺟﺏ ﻳﻁﺑﻊ‬-20
Program test_20;
Var x:integer;
Begin
Write('x=');
Readln(x);
If x mod 2=0 then
Writeln('Even');
Else
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
Writeln('Odd');
End.

Negative ‫ ﻭﺍﺫﺍ ﻛﺎﻥ ﺳﺎﻟﺏ ﻳﻁﺑﻊ‬Positive ‫ ﺑﺭﻧﺎﻣﺞ ﻳﺧﺗﺑﺭ ﺭﻗﻡ ﺇﺫﺍ ﻛﺎﻥ ﻣﻭﺟﺏ ﻳﻁﺑﻊ‬-21
Program test_21;
Var x:integer;
Begin
Write('Enter x=');
Readln(x);
If X>0 then
Writeln('Positive');
Else
Write('Negative');
End.

‫ ﺑﺭﻧﺎﻣﺞ ﻹﺩﺧﺎﻝ ﻋﺩﺩﻳﻥ ﺣﻘﻳﻘﻳﻳﻥ ﻭﺭﻣﺯ ﺍﻟﻌﻣﻠﻳﺔ ﺍﻟﺣﺳﺎﺑﻳﺔ ﺍﻟﻣﺭﺍﺩ ﺗﻧﻔﻳﺫﻫﺎ ﻋﻠﻰ ﺍﻟﻌﺩﺩﻳﻥ‬-22
Case ‫ﺑﺎﺳﺗﺧﺩﺍﻡ ﺗﻌﻠﻳﻣﺔ ﺗﻌﺩﺩ ﺍﻟﺣﺎﻻﺕ‬
Program test_22;
Var a,b:Real;
Ch:Char;
Begin
Write('a=');
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
Readln(a);
Write('b=');
Readln(b);
Write('Input Operation');
Raedln(Ch);
Case ch of
Begin
'+':Writeln('a+b=',a+b);
'-':Writeln('a-b=',a-b);
'/': Writeln('a/b=',a/b);
'*':Writeln('a*b=',a*b);
Else
Writeln('Error in Operation');
End;
Readln;
End.

ax+b=0 ‫ ﺣﻝ ﻣﻌﺎﺩﻟﺔ ﻣﻥ ﺍﻟﺩﺭﺟﺔ ﺍﻷﻭﻟﻰ ﻣﻥ ﺍﻟﺷﻛﻝ‬-23


Program test_23;
Var a,b,x:Real;
Begin
Write('Enter a=');
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
Readln('a');
Write('Enter b=);
Readln(b);
X:=b/a;
Writeln('x=',x);
End.

:‫ ﺑﺭﻧﺎﻣﺞ ﻁﺑﺎﻋﺔ ﺭﺳﺎﻟﺔ ﻧﺻﻳﺔ ﻋﺩﺩ ﻣﺣﺩﺩ ﻣﻥ ﺍﻟﻣﺭﺍﺕ‬-24


Program test_24;
Var x,i:integer;
Begin
Readln(x);
For i:= 1 to X do
Writeln('Turbo Pascal');
End.

:aX^2+bX+C=0 ‫ ﺑﺭﻧﺎﻣﺞ ﻟﺣﻝ ﻣﻌﺎﺩﻟﺔ ﻣﻥ ﺍﻟﺩﺭﺟﺔ ﺍﻟﺛﺎﻧﻳﺔ ﻣﻥ ﺍﻟﺷﻛﻝ‬-25


Program test_25;
Var a,b,c,d,x1,x2:Real;
Begin
Write('a=');
Readln(a);
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
Write('b=');
Readln(b);
Write('c=');
Readln(C);
d:=sqr(b)-4*a*c;
if d<0 then
Writeln('No Real Root');
Else If d=0 then
Begin
X1:=-b/(2*a);
Writeln('x1=x2=',x1);
End;
Else
Begin
X1:=(-b+sqrt(d))/(2*a);
X2:=(-b-sqrt(d))/(2*a);
Writeln('x1=',x1);
Writeln('x2=',x2);
End;
End.
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
:For ‫ ﺑﺭﻧﺎﻣﺞ ﻁﺑﺎﻋﺔ ﻋﺑﺎﺭﺓ ﻧﺻﻳﺔ ﻋﺩﺩ ﻣﺣﺩﺩ ﻣﻥ ﺍﻟﻣﺭﺍﺕ ﺑﺎﺳﺗﺧﺩﺍﻡ ﺍﻟﺣﻠﻘﺔ‬-26
Program test_26;
Var x,i:integer;
Name:String;
Begin
REadln(name);
Readln(x);
For i:= 1 to X do
Writeln(i,name);
End.

:‫ ﺑﺭﻧﺎﻣﺞ ﻳﻁﺑﻊ ﺃﺳﻣﺎء ﺛﻼﺙ ﻁﻼﺏ ﻭﻋﻼﻣﺎﺗﻬﻡ ﻓﻲ ﺛﻼﺙ ﻣﻭﺍﺩ‬-27


Program test_27;
Var K,I,j:integer;
Name:String;
Begin
For i:= 1 to 3 do
Begin

Writeln('Enter Student Name And His Mark');


Readln(name);
Writeln(name);
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
For j:= 1 to 3 do
Begin
Writeln('Enter Mark',j);
Readln(K);
End;
End;
End.

: 75 – 50 ‫ ﺑﺭﻧﺎﻣﺞ ﻟﻁﺑﺎﻋﺔ ﺍﻷﻋﺩﺍﺩ ﺍﻟﻔﺭﺩﻳﺔ ﺍﻟﻣﺣﺩﺩﺓ ﺑﻳﻥ ﺍﻟﺭﻗﻣﻳﻥ‬-28


Program test_28;
Var i:integer;
Begin
For i:= 50 to 75 do
Begin
If (I mod 2<>0) then
Writeln(i);
End;
End.
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
:30 – 10 ‫ ﺑﺭﻧﺎﻣﺞ ﻹﻳﺟﺎﺩ ﻣﺟﻣﻭﻉ ﺍﻷﺭﻗﺎﻡ ﺍﻟﺯﻭﺟﻳﺔ ﺍﻟﻣﺣﺩﺩﺓ ﺑﻳﻥ ﺍﻟﺭﻗﻣﻳﻥ‬-29
Program test_29;
Var I,sum:integer;

Begin
Sum:=0;
For i:= 10 to 30 do
If (I mod 2=0) then
Sum:=Sum+i;
Writeln(Sum);
End.
:‫ﺍﻟﺗﻛﺭﺍﺭﻳﺔ‬While ‫ ﺑﺎﺳﺗﺧﺩﺍﻡ ﺍﻟﺣﻠﻘﺔ‬10 ‫ ﺇﻟﻰ‬1 ‫ ﺑﺭﻧﺎﻣﺞ ﻳﻘﻭﻡ ﺑﻁﺑﺎﻋﺔ ﺍﻷﺭﻗﺎﻡ ﻣﻥ‬-30
Program test_30;
Var i:integer;
Begin
I:=0;
While (i<10) do
Begin
I:=i+1;
Writeln(i);
End;
End.
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
‫ ﺑﺭﻧﺎﻣﺞ ﻳﻘﻭﻡ ﺑﺈﻳﺟﺎﺩ ﻣﺟﻣﻭﻉ ﺧﻣﺳﺔ ﺃﻋﺩﺍﺩ ﻣﺩﺧﻠﺔ ﻋﻥ ﻁﺭﻳﻕ ﻟﻭﺣﺔ ﺍﻟﻣﻔﺎﺗﻳﺢ ﺑﺎﺳﺗﺧﺩﺍﻡ‬-31
:While
Program test_31;
Var I,x,sum:integer;
Begin
I:=1;

Sum:=0;
While ( i<=5) do
Begin
Readln(x);
Sum:=sum+x;
I:=i+1;
End;
Writeln('sum=',sum);
Readln;
End.

:While ‫ﻋﺩﺩ ﻣﻥ ﻟﻭﺣﺔ ﺍﻟﻣﻔﺎﺗﻳﺢ ﻭﻳﻭﺟﺩ ﺍﻟﻣﺟﻣﻭﻉ ﺑﺎﺳﺗﺧﺩﺍﻡ ﺍﻟﺣﻠﻘﺔ‬N ‫ ﺑﺭﻧﺎﻣﺞ ﻳﻘﻭﻡ ﺑﺈﺩﺧﺎﻝ‬-32
Program test_32;
Var I,x,sum,n:integer;
Begin
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
I:=1;
Sum:=0;
Readln(n);
While ( i<=n) do
Begin
Readln(x);
Sum:=sum+x;
I:=i+1;
End;
Writeln('sum=',sum);
Readln;
End.

‫ ﺑﺭﻧﺎﻣﺞ ﻳﻁﻠﺏ ﻣﻥ ﺍﻟﻣﺳﺗﺧﺩﻡ ﺇﺩﺧﺎﻝ ﺭﻗﻣﻳﻥ ﻭﻣﻥ ﺛﻡ ﺇﻳﺟﺎﺩ ﺍﻷﻋﺩﺍﺩ ﺍﻟﺯﻭﺟﻳﺔ ﺍﻟﻣﺣﺻﻭﺭﺓ ﺑﻳﻥ‬-33
:‫ﻫﺫﻳﻥ ﺍﻟﺭﻗﻣﻳﻥ‬
Program Test_33;
Var First,Last,R : Integer;
Begin
Write('Enter First Number');
Readln(First);
Writeln('Enter Last Number');
Readln(Last);
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
For R:= First To Last Do
IF (R Mod 2=0 ) then
Writeln(R);
End;
Readln;
End.

‫ ﺑﺭﻧﺎﻣﺞ ﻳﻁﻠﺏ ﻣﻥ ﺍﻟﻣﺳﺗﺧﺩﻡ ﺇﺩﺧﺎﻝ ﺭﻗﻣﻳﻥ ﻭﻣﻥ ﺛﻡ ﺇﻳﺟﺎﺩ ﺍﻷﺭﻗﺎﻡ ﺍﻟﻔﺭﺩﻳﺔ ﺍﻟﻣﺣﺻﻭﺭﺓ ﺑﻳﻥ‬-34
:‫ﻫﺫﻳﻥ ﺍﻟﺭﻗﻣﻳﻥ‬
Program Test_34;
Var First,Last,R : Integer;
Begin
Write('Enter First Number');
Readln(First);
Writeln('Enter Last Number');
Readln(Last);
For R:= First To Last Do
IF (R Mod 2=1 ) then
Writeln(R);
End;
Readln;
End.
This PDF is Created by Simpo Word to PDF unregistered version - http://www.simpopdf.com

‫ ﺧﻴﺮﺍﻟﺪﻳﻦ ﺍﻟﺴﻌﻴﺪ‬: ‫ﺇﻋﺪﺍﺩ‬ ‫ﺗﻄﺒﻴﻘﺎﺕ ﺑﺴﻴﻄﺔ ﺑﻠﻐﺔ ﺑﺎﺳﻜﺎﻝ‬


----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
‫ ﺣﻳﺙ ﺍﻥ ﺍﻟﻣﺳﺗﺧﺩﻡ ﻳﺩﺧﻝ ﻧﺎﺗﺞ ﺍﻟﺟﻣﻊ ﻭﻳﻘﻭﻡ ﺍﻟﺑﺭﻧﺎﻣﺞ ﻳﺈﻳﺟﺎﺩ ﺍﻟﺭﻗﻣﻳﻥ ﺍﻟﻣﺟﻣﻭﻋﻳﻥ)ﻋﻛﺱ‬-35
:(‫ﺑﺭﻧﺎﻣﺞ ﺟﻣﻊ ﺍﻟﻌﺩﺩﻳﻥ‬
Program test_35;
Var a,b,c:Real;
Begin
Write('Pleas Enter a');
Readln(a);
b:=a/2;
c:=a-b;
Writeln('a=',a);
Writeln('b=',b);
Writeln('c=',c);
End.

You might also like