Programozás Pascalban: Téglalap átlójának kiszámítása

Készítette: aronvad
2009. november 24. 16:52:03 - 6853 megtekintés

Ebben a tippben egy olyan Pascal program megírását fogom bemutatni, amely a Pitagorasz-tétel segítségével kiszámolja egy téglalap átlóját.
Amire szükségünk lesz

Pascal
Téglalap átlójának kiszámítása
A freepascal.org oldalról töltsük le a programot. Indítsuk új dokumentumot a programot, nevezzük el. Mindig pontosvesszővel zárjuk le a sort.

program pit001;

uses crt;

var a,b,c,d:word;

begin
Clrscr;
Writeln("A kocka elhossza?");
Readln(a);
b:=Sqr(a)*2;
Write('A kocka lapatloja: ');
Writeln(b);
c:=Sqrt(b);
d:=Sqr(a)+Sqr(c);
Write('A kocka testatloja: ');
Writeln(d);
Readln;
Címkék:
pascal pitagorasz

Cartman01 - 15 éve

Köszi!
Nemrég tanultuk Pitagorasz tételét jóljön majd leckéhez

aronvad - 15 éve

örülök hogy végül sikerült

kecske - 15 éve

köszi mindent de én voltam hülye elírtam vagy 3 dolgot kijavítottam és igy már jó lett

aronvad - 15 éve

ismét mondom: legalul van a hibaüzenet, a progrma alján

kecske - 15 éve

amikor rányomokhogy run akkor kiiirja hogy: compile failed
de lehet hogy félreirtam valamit de ujrairtam vagy 1 szer és ugy sem megy...

Tovább