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

[nacer_alger]

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

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




Exercice :

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

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

[MHDM]

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

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

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

تقبل مروري









البرنامج

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]

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