بسم الله الرحمان الرحيم
السلام عليكم
بلغة الباسكال
التطبيق الأول
حل معادلة من الدرجة الثانية
الكود هو :
[left]program calcule;[/left]
[left]usescrt;[/left]
[left]var[/left]
[left]a,b,c,d,:integer; [/left]
[left]x1,x2:real;[/left]
[left]begin[/left]
[left]clrscr;[/left]
[left]writeln('ENTREE LES TROIS NOMBRES A ET B ET C');[/left]
[left]read(a,b,c);[/left]
[left]if A<>0 then[/left]
[left]begin[/left]
[left]d:=(b*b)-4*(A*C); if D>0 then begin[/left]
[left]x1:=(-B-SQRT(D)); x2:=(-B+SQRT(D)/2*1); write(x1,x2); end [/left]
[left]ELSE[/left]
[left]begin[/left]
[left]x1:=((B)/2*A); x2:=x1; write(X1,X2);end[/left]
[left]else[/left]
[left]write('PAS DE SOLUTION'); end; REPEAT UNTIL KEYPRESSED;[/left]
[left] END.[/left]
-------------------------------------------------------------------------------------------------------------------------
التطبيق الثاني
برنامج لقراءة النص ويعلمنا كم فيه عدد الأحرف في كل سطر
الكود:
[left]PROGRAM COMPT;[/left]
[left]usescrt; var[/left]
[left]ch:chane; n:integer; begin[/left]
[left]while not EOF do[/left]
[left]begin [/left]
[left]{tratement d'une line }[/left]
[left]n:=0; while not eoln do[/left]
[left]begin[/left]
[left]read(ch); n:=n+1; end; write (n);readln; end;end[/left]
.
معناه نهاية السطر eoln
معناه نهاية الملف eof
.................................................
كود لبرنامج يقوم بحساب معدل 10 مترشحين و اضهار اسم احسن معدل
[LEFT] [/LEFT]
[LEFT]program myanne;
const n=4;
var
mg:real;
maxyn:real;
nom,nom_m:string[10];
i:integer;
begin
clrscr;
readln(nom);
readln(mg);
maxyn:=mg;
nom_m:=nom;
i:=2;
while i<=n do
begin
readln(nom);
readln(mg);
if mg >maxyn then
begin
maxyn:=mg;
nom_m:=nom;
end;
i:=i+1;
end;
writeln('nom_m,maxyn:2:2);
repeat until keypressed;
end.[/LEFT]