Program rieši jednoduchú rovnicu
Delphi & Pascal (česká wiki)
Kategórie: KMP (Programy mladých programátorů)
Program: Jednoducha_rovnica.pas
Soubor exe: Jednoducha_rovnica.exe
Program: Jednoducha_rovnica.pas
Soubor 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.