Navigace: Hlavní stránka -> PASCAL -> 02 Jednoduché výpočty s podmínkou -> 02.04 Obsah obdélníku

MENU

02.04 Obsah obdélníku

Zadání:
Sestavte program, ze zadaných stran obdélníku a,b vypočte jeho obsah.
Řešení:
Obsah obdélníku se vypočte podle vzorce S=ab
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,obsah:real;

begin

   write('Zadejte stranu a: ');
   readln(a);
   write('Zadejte stranu b: ');
   readln(b);

   if (a>0) and (b>0) then
   begin
      obsah:=a*b;
      writeln('Obsah obdelniku = ',obsah:0:3);
   end
   else writeln('Spatne zadani');
     
   readln;

end.
program ke stažení