Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: zadanie domowe

W dół

Od 1 do 4 z 4

  1.  
    • CommentAuthorssdd
    • CommentTime19 May 2008
     
    Witam wszystkich!!!Trzeba napisać program, który wyświetli wzór funkcji liniowej prostopadłej do danej prostej przechodzącej przez punkt o współrzędnych x,y a drugie zadanie dopisać funkcję obliczającej wzór funkcji liniowej równoległej o współrzędnych x,y
    • CommentAuthorsteficzek
    • CommentTime22 May 2008
     
    no faktycznie, trzeba napisać... więc do roboty!
    • CommentAuthorssdd
    • CommentTime23 May 2008
     
    Pomoże mi ktoś ??
    • CommentAuthorjanox79
    • CommentTime23 May 2008 zmieniony
     
    Napisałem program liczący wzór funkcji równoległej do danej i przechodzącej przez wybrany punkt: uses crt; var a,b,c,d,Ax,Ay : integer; begin clrscr; writeln('Podaj współczynnik a funkcji y = ax + b'); write('a = '); readln(a); writeln('Podaj współczynnik b funkcji y = ax + b'); write('b = '); readln(b); writeln('Podaj współrzędną x punktu A = (x,y) :'); write('Ax = '); readln(Ax); writeln('Podaj współrzędną y punktu A = (x,y) :'); write('Ay = '); readln(Ay); clrscr; writeln('Wzór nowej funkcji y = cx + d :'); c:=a; d:=Ay-(a*Ax); write('y = '); if c=1 then write(''); if c<>1 then write(c); if d<0 then write('x - '); if d=0 then write('x'); if d>0 then write('x + '); write(abs(d)); readln; end. lub wersja II z opcją powtarzania liczenia: uses crt; var a,b,c,d,Ax,Ay : integer; control : char; begin repeat clrscr; writeln('Podaj współczynnik a funkcji y = ax + b'); write('a = '); readln(a); writeln('Podaj współczynnik b funkcji y = ax + b'); write('b = '); readln(b); writeln('Podaj współrzędną x punktu A = (x,y) :'); write('Ax = '); readln(Ax); writeln('Podaj współrzędną y punktu A = (x,y) :'); write('Ay = '); readln(Ay); clrscr; writeln('Wzór nowej funkcji y = cx + d :'); c:=a; d:=Ay-(a*Ax); write('y = '); if c=1 then write(''); if c<>1 then write(c); if d<0 then write('x - '); if d=0 then write('x'); if d>0 then write('x + '); write(abs(d)); writeln(''); writeln('Chcesz spróbować jeszcze raz T/N?'); control:=readkey; until ((control='n') or (control='N')); end.

Od 1 do 4 z 4

  1.