تطبيقات في الباسكال

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: آذار 25, 2009, 12:32:17 مسائاً
بسم الله الرحمان الرحيم
السلام عليكم

بلغة الباسكال
التطبيق الأول
حل معادلة من الدرجة الثانية
                  الكود هو  :

 
[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'); endREPEAT  UNTIL KEYPRESSED;[/left]
 [
leftEND.[/left]
-------------------------------------------------------------------------------------------------------------------------
التطبيق الثاني
برنامج لقراءة النص  ويعلمنا كم فيه عدد  الأحرف في كل سطر
الكود:

 
[left]PROGRAM COMPT;[/left]
 [
left]usescrt;   var[/left]
 [
left]ch:chanen:integerbegin[/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]


يوسف الضادي

  • Hero Member
  • *****
    • مشاركة: 5333
    • مشاهدة الملف الشخصي
    • http://www.sou9dz.com
    • البريد الالكتروني
رد #1 في: آذار 25, 2009, 01:12:39 مسائاً
بارك الله فيك أخي


lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: آذار 25, 2009, 01:20:18 مسائاً
بارك الله فيك أخي أشرف ... و جعلها في ميزان حسناتك ان شاء الله


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: آذار 25, 2009, 01:57:54 مسائاً
بارك الله فيك على مرورك الطيب..جزاك الله خير