LuZiK

Witam. Mam problem z drukarka. Model drukarki HP Deskjet F4180. Drukarka nie drukuje plikow z Worda i innych programow, ale drukuje strony testowe. Drukarka jest dobrze podlaczona, sterowniki sa zainstalowane. Wczesniej wszystko drukowala poprawnie. Moze ktos wie jak rozwiazac ten problem ? Pozdrawiam.

jeszcze nie poznalem petli case....of

Program sie kompiluje do samego konca. Po ostatnim punkcie chce zaczac pisac rozwiniecie do punktu b czyli rownan kwadratowych. Zaczynam program od IF wybor='b' THEN BEGIN tutaj pisze zawartosc END; wystepuje blad z ostatnim ENDem na koncu czyli z END. Tak jakby byl on zle zapisany. Pisze ze ma byc za nim ;. Nie wiem jak zaczac pisac rozwiniecie do tych rownan kwadratowych i do punktu c. PROGRAM OBLICZENIA; USES CRT; VAR a,b,c,d,P,Ob,r,h,l:real; x,y,k,wynik,odp:integer; wybor:char; BEGIN WRITELN('Witam w programie OBLICZENIA'); WRITELN('Program pomoze ci w niektorych obliczeniach'); WRITELN('a- GEOMETRIA'); WRITELN('b- ROWNANIA KWADRATOWE'); WRITELN('c- TEST'); READLN(wybor); IF wybor='a' THEN BEGIN WRITELN('1-pole kwadratu'); WRITELN('2-pole prostokata'); WRITELN('3-pole trojkata'); WRITELN('4-pole trapezu'); WRITELN('5-pole kola'); WRITELN('6-pole szescianu'); WRITELN('7-pole prostopadloscianu'); WRITELN('8-pole walca'); WRITELN('9-pole stozka'); READLN(wybor); END; IF wybor='1' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); P:=a*a; WRITELN('Pole kwadratu wynosi ',P:0:2); END; IF wybor='2' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); WRITELN('Wpisz dlugosc krawedzi b'); READLN(; P:=a*b; WRITELN('Pole prostokata wynosi ',P:0:2); END; IF wybor='3' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); WRITELN('Wpisz dlugosc wysokosci h'); READLN(h); P:=0.5*a*h; WRITELN('Pole trojkata wynosi ',P:0:2); END; IF wybor='4' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); WRITELN('Wpisz dlugosc krawedzi b'); READLN(; WRITELN('Wpisz dlugosc wysokosci h'); READLN(h); P:=0.5*a+0.5*b; P:=P*h; WRITELN('Pole trapezu wynosi ',P:0:2); END; IF wybor='5' THEN BEGIN WRITELN('Wpisz dlugosc promienia r'); READLN(r); Ob:=2*3.14*r; WRITELN('Obwod kola wynosi ',Ob:0:2); END; IF wybor='6' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); P:=a*a*a*a*a*a; WRITELN('Pole szescianu wynosi ',P:0:2); END; IF wybor='7' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); WRITELN('Wpisz dlugosc krawedzi b'); READLN(; WRITELN('Wpisz dlugosc wysokosci h'); READLN(h); P:=2*a*b+2*a*h+2*a*h; WRITELN('Pole calkowite prostopadloscianu wynosi ',P:0:2); END; IF wybor='8' THEN BEGIN WRITELN('Wpisz dlugosc promienia r'); READLN(r); WRITELN('Wpisz dlugosc wysokosci h'); READLN(h); P:=3.14*r*r+3.14*r*r+2*3.14*r*h; WRITELN('Pole calkowite walca wynosi ',P:0:2); END; IF wybor='9' THEN BEGIN WRITELN('Wpisz dlugosc promienia r'); READLN(r); WRITELN('Wpisz dlugosc l'); READLN(l); P:=3.14*r*r+3.14*r*l; WRITELN('Pole calkowite stozka wynosi ',P:0:2); END; READLN; END.

Witam. Pisze program na zaliczenie mam proglem. Chce zeby w moim programie mozna bylo przejsc z jednego menu do drugiego. Np. wybrac rownanie kwadratowe i pozniej wybrac jeden z punktow np. punkt b (jeszcze nie napisalem tego w programie). Gdy chcialem to napisac pisalem IF wybor='b' THEN BEGIN WRITELN('a-Rownanie kwadratowe z liczba dodatnia'); WRITELN('b-Rownanie kwadratowe z liczb ujemna); dalej pisalem wzor i zakonczylem wszystko END; Na koniec oczywiscie READLN; i END. po kompilacji wystepowal mi blad z enedem na koncu ze jest postawiony zly znak. wedlugo programu powinno byc napisane END; ale to tez nie dziala. prosze o pomoc jak zrobic taka rzecz ktora ja bym chcial umiescic w moim programie . Moj program PROGRAM OBLICZENIA; USES CRT; VAR a,b,c,d,P,Ob,r,h,l:real; x,y,k,wynik,odp:integer; wybor:char; BEGIN WRITELN('Witam w programie OBLICZENIA'); WRITELN('Program pomoze ci w niektorych obliczeniach'); WRITELN('a- GEOMETRIA'); WRITELN('b- ROWNANIA KWADRATOWE'); WRITELN('c- TEST'); READLN(wybor); IF wybor='a' THEN BEGIN WRITELN('1-pole kwadratu'); WRITELN('2-pole prostokata'); WRITELN('3-pole trojkata'); WRITELN('4-pole trapezu'); WRITELN('5-pole kola'); WRITELN('6-pole szescianu'); WRITELN('7-pole prostopadloscianu'); WRITELN('8-pole walca'); WRITELN('9-pole stozka'); READLN(wybor); END; IF wybor='1' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); P:=a*a; WRITELN('Pole kwadratu wynosi ',P:0:2); END; IF wybor='2' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); WRITELN('Wpisz dlugosc krawedzi b'); READLN(; P:=a*b; WRITELN('Pole prostokata wynosi ',P:0:2); END; IF wybor='3' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); WRITELN('Wpisz dlugosc wysokosci h'); READLN(h); P:=0.5*a*h; WRITELN('Pole trojkata wynosi ',P:0:2); END; IF wybor='4' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); WRITELN('Wpisz dlugosc krawedzi b'); READLN(; WRITELN('Wpisz dlugosc wysokosci h'); READLN(h); P:=0.5*a+0.5*b; P:=P*h; WRITELN('Pole trapezu wynosi ',P:0:2); END; IF wybor='5' THEN BEGIN WRITELN('Wpisz dlugosc promienia r'); READLN®; Ob:=2*3.14*r; WRITELN('Obwod kola wynosi ',Ob:0:2); END; IF wybor='6' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); P:=a*a*a*a*a*a; WRITELN('Pole szescianu wynosi ',P:0:2); END; IF wybor='7' THEN BEGIN WRITELN('Wpisz dlugosc krawedzi a'); READLN(a); WRITELN('Wpisz dlugosc krawedzi b'); READLN(; WRITELN('Wpisz dlugosc wysokosci h'); READLN(h); P:=2*a*b+2*a*h+2*a*h; WRITELN('Pole calkowite prostopadloscianu wynosi ',P:0:2); END; IF wybor='8' THEN BEGIN WRITELN('Wpisz dlugosc promienia r'); READLN®; WRITELN('Wpisz dlugosc wysokosci h'); READLN(h); P:=3.14*r*r+3.14*r*r+2*3.14*r*h; WRITELN('Pole calkowite walca wynosi ',P:0:2); END; IF wybor='9' THEN BEGIN WRITELN('Wpisz dlugosc promienia r'); READLN(r); WRITELN('Wpisz dlugosc l'); READLN(l); P:=3.14*r*r+3.14*r*l; WRITELN('Pole calkowite stozka wynosi ',P:0:2); END; READLN; END.

Witam. Niedawno zaczolem przygode z pascalem. Mam wzor jak napisac program gdzie urzytkownik bedzie mogl wybierac figure ktorej bedzie chcial obliczyc pole albo obwod. Zaczolem pisac program lecz nie dziala . Dziala tylko poczatek. Np. wciskam a potem enter i program sie wyłacza ;/ . Prosilbym o znalezienie beledu w programie bo niby wszystko jest ok ale tak naprawde nie jest. Moj program: PROGRAM GEOMETRIA; USES CRT; VAR a,b,c,P,Ob,r,h:real; wybor:char; BEGIN CLRSCR; WRITELN(' Witam w programie GEOMETRIA, ktory pomoze ci obliczyc pola i obwod figor'); WRITELN(' Wybierz interesujaca cie funkcje wybierajac jedna z opcji'); WRITELN(' a- pole kwadratu'); WRITELN(' b- pole trojkata'); WRITELN(' c- obwod kola'); IF wybor = 'a'THEN BEGIN WRITELN(' Wpisz dlugosc krawedzi b'); READLN(; P:=b*b; WRITELN(' Pole kwadratu=',P:0:2); END; IF wybor = 'b' THEN BEGIN WRITELN(' Wpisz dlugosc boku a'); READLN(a); WRITELN(' Wpisz dlugosc wysokosci h'); READLN(h); P:=0.5*a*h; WRITELN(' Pole trojkata=',P:0:2); END; READLN; END.