• 

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

  2009. november 24. 16:52:03 |

  Készítette: aronvad

  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;
  

Statisztika