Navigace: Hlavní stránka -> PASCAL -> 02 Jednoduché výpočty s podmínkou -> 02.02 Výpočet hodnoty funkce s koeficientem

MENU

02.02 Výpočet hodnoty funkce s koeficientem

Zadání:
Sestavte program, který vypočte z hodnoty x hodnotu y podle vzorce (a,b,c,d jsou parametry, zadávané z klávesnice):

Řešení:
Pomocí standardních funkcí programovacího jazyku vypočítat z hodnoty x a parametrů a,b,c,d hodnotu y.
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c,d,x,y:real;

begin

   write('Zadejte koeficient a: ');
   readln(a);
   write('Zadejte koeficient b: ');
   readln(b);
   write('Zadejte koeficient c: ');
   readln(c);
   write('Zadejte koeficient d: ');
   readln(d);
   write('Zadejte hodnotu x: ');
   readln(x);

   if c*x+d <> 0 then
   begin
      y:=(a*x+b)/(c*x+d);
      writeln('Hodnota funkce y=',y:0:3);
   end
   else
      writeln('Vypocet nelze provest');

  readln;

end.
program ke stažení
Pro studenty:
Při převodu do programovacího jazyku je třeba dát si pozor ve zlomcích na správné použití závorek.

Pro učitele:
Vysvětlit použití závorek ve zlomcích.
Lze také řešit v celých číslech