Skocz do zawartości
Forum komputerowe PC Centre

Ganja

Użytkownicy
  • Zawartość

    1
  • Rejestracja

  • Ostatnia wizyta

Reputacja

0 Neutralny

O Ganja

  • Tytuł
    Jestem tu nowy
  1. Witam wszystkich Potrzebuje pomocy w stworzeniu programu do obliczania równania liniowego Do tej pory udało mi się stworzyć to ale programik nie działa tak jak powinien Program Rownanie; uses crt; var a: real; b: real; x: real; begin Clrscr; write ('wprowadz wspolczynnik kierunkowy a: '); readln(a); write ('wprowadz wspolczynik b: '); readln(b); if( a=0 and b=0 ) then writeln ('Nieskonczenie wiele rozwiazan') if ( a=0 and b<>0 ) then writeln ('brak rozwiazania;) else x:=-b/a writeln ('x=' ,x:2:2); end. Proszę o pomoc z tym problemem
×
×
  • Dodaj nową pozycję...