Keresés Kategóriák Kedvencek

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 - 14 éve, 3 hónapja

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

aronvad - 14 éve, 3 hónapja

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

kecske - 14 éve, 3 hónapja

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

aronvad - 14 éve, 3 hónapja

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

kecske - 14 éve, 3 hónapja

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