ممكن مساعدة في حل هذه التمارين

[nacer_alger]

السلام عليكم
اريد ان ان اقارن بين محاولتي لحل هذه التمارين

ممكن مساعدة في حلها بباسكال وغوارزميات




Exercice :
قم بانشاء برنامج دلفي يسمح بادخال عرض (largeur) و طول (longueur ) مستطيل ثم يقوم بحساب مساحته.
علما ان مساحة (surface ) =العرض في الطول .
-قم بانشاء برنامج دلفي يسمح بحساب المحيط علما ان : المحيط (périmetre)=
2* (العرض + الطول) .



ملاحظة: هناك احد اعضاء بارك الله فيه قام باعطائي الحل بالدالفي جزاه الله خيرا

[MHDM]

حساب المساحة ب VB.NET

تفضل البرنامج والكود

اعرف انه ليس طلبك VB.NET لاكن اردت مشاركتك فقط

تقبل مروري


http://im38.gulfup.com/S8Z9Y.png

http://im38.gulfup.com/XSFJV.png



:19:
البرنامج (http://www.gulfup.com/?vN5L1i)


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Function print(ByVal x As Double, ByVal y As Double) As Integer
Dim result As Double
If x = Val("") Then
result = 1 * y
Else
result = x * y
End If
MsgBox(result)
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y As Double
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
print(x, y)
End Sub
End Class

[nacer_alger]

مشكور اخي الفاضل ممكن بالبسكال و خورزميات

[MHDM]

انا لا اجيد الباسكال انا مركز على VB.net

اتمنى ان يساعدوك الاعضاء المختصين في الباسكال

[nacer_alger]

merci merci

[you92cef]

program ex;
uses wincrt;
var i,j,a,b:real;
begin
writeln('Entrez longeur:');
readln(i);
writeln('Entrez largeur:');
readln(j);
a:=i*j;
b:=(i+j)*2;
writeln('la surface est:',a);
writeln('pirimetre est:',b);
end.

[you92cef]

algorithme ex;
var i,j,a,b:real;
deput
ecrire ('donner longeur:');
lire(i);
ecrire('donner largeur');
lire(j);
a:=i*j;
b:=(a+b)*2;
ecrire('surface est'');
ecrire(a);
ecrire('pirimetre est:');
ecrire(b);
fin.

[nacer_alger]

بارك الله فيك اخي الكريم و زادكا لله في لعلم و الحسنات