Program rieši jednoduchú rovnicu

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: KMP (Klub mladých programátorov)

Program: Jednoducha_rovnica.pas
Súbor exe: Jednoducha_rovnica.exe

Program rieši jednoduchú rovnicu. x=((a*a)-b)/c
{ JEDNODUCHA_ROVNICA.PAS                                            }
{ Program riesi jednoduchu rovnicu.                                 }
{                                                                   }
{ Autor: Neznami                                                    }
{ Datum:25.11.2008                             http://www.trsek.com }
 
program Riesenie_rovnic;
uses CRT;
VAR x:real;
    a:real;
    b:real;
    c:real;
    y:real;
begin
 clrscr;
 Writeln('Program na riesenie rovnice x=((a*a)-b)/c');
 delay(500);
 
 writeln('zadaj a');
 readln(a);
 
 writeln('zadaj b');
 readln(b);
 
 writeln('zadaj c');
 readln(c);
 
 x:=((a*a)-b)/c;
 writeln('neznama x=');
 writeln(x);
 
 readln;
end.