נותנים אורכי הצעלות המבלן במשתנים A ו B
כתוב הוראה להשמת אורך האלכוסון של המלבן ב C ואת האלכסון יש לחשב באמצעות משפט פיתגורס
c=^a^2+B^2

תראו איך רשמתי
program Alahson;
uses wincrt;
var
a,b:real;
begin
writeln('please insert orki zlaot');
readln(a,b);
writeln(sqrt(sqr(a+b)));
end.

זה רץ הקטע זה לא עושה את השורש זה עושה לי את החזקה ומחבר!!
למה זה ככה?

תרגיל 4

נתונה התוכנית הבאה

program sod;
var
H,result:integer;
begin
readln(H);
result:=H div abs (H);
writeln(result:2);
end.

מה מטרת התוכנית בנה לפחות 2 טבלות מעקב עבור הקלטים המייצגים
שכלל את התוכנית רשום שמות משמעותיים למשתנים ,הסוף הודעה מתאימה למשתמש לפני הוראת הקלט וכו'. בדוק את התכונית במחשב והוצא פלט(הדפסה)