 |
www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
 Wysłany: Wto 16:27, 04 Gru 2007 Temat postu: Lista 4 - zad 1 mgr D |
|
|
| Kod: | program Project6;
{$APPTYPE CONSOLE}
uses
SysUtils;
///////////////////////////////
function sprawdz(pk,r,x,y,odleglosc: real; var polozenie:real):real;
begin
if pk=0 then begin
if (r>odleglosc) then polozenie:=1;
if (r<odleglosc) then polozenie:=-1;
if (odleglosc=0) then polozenie:=0;
end
else begin
if (x>y) then polozenie:=1;
if (x<y) then polozenie:=-1;
if (x=y) then polozenie:=0;
end;
result:=polozenie;
end;
///////////////////////////////
///procedura wczytaj //////////
procedure wczytaj (pk : integer; var r,x,y,odleglosc:real);
begin
writeln('Podaj x punktu');
readln(x);
writeln('Podaj y punktu');
readln(y);
writeln;
writeln('Podales punkt(',x:0:2,' , ',y:0:2,')');
if pk=0 then begin
writeln('Podaj promien okregu na ktorym mamy robic obliczenia');
readln(r);
odleglosc:=sqrt(sqr(0-x)+sqr(0-y));
end;
end;
/////////
///pisz/////
procedure pisz(pk,polozenie:real);
begin
if pk=0 then begin
if polozenie=1 then writeln('Punkt lezy poza okregiem');
if polozenie=-1 then writeln('Punkt lezy w okregu');
if polozenie=0 then writeln('Punkt lezy w srodku okregu umieszczonym w poczatku ukladu');
end;
if pk=1 then begin
if polozenie=1 then writeln('punkt lezy ponad prosta x=y');
if polozenie=0 then writeln('punkt lezy na prostej x=y');
if polozenie=-1 then writeln('punkt lezy ponizej prostej x=y');
end;
end;
////////////
var
pk:byte;
koniec:string;
r,x,y,odleglosc,polozenie:real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
repeat
writeln('Dla operacji na okregu podaj 0 dla operacji na prostej podaj 1');
readln(pk);
writeln('podaj punkt w ukladzie wspolrzednych');
wczytaj(pk,r,x,y,odleglosc);
sprawdz(pk,r,x,y,odleglosc,polozenie);
pisz(pk,polozenie);
writeln;
writeln;
writeln('Czy chcesz zakonczyc program ?? t/n');
readln(koniec);
until (koniec='t');
end.
|
No i nie wiem czy o takie cos chodzilo czy nie 
Jak ktos juz cos naskrobal pls o komentarz i ewentualne poprawki albo inny kod dla porownania
Pozdro
|
|
| Powrót do góry |
|
 |
|
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
stramik
Administrator
Dołączył: 02 Gru 2007
Posty: 126
Przeczytał: 0 tematów
Skąd: Grodków
|
| Wysłany: Wto 18:07, 04 Gru 2007 Temat postu: |
|
|
hehehe
Ostro pracujesz Krystian. Ja nie mam czasu na przeczytanie polecenia do zadania, a Ty juz prawie wszystko nam rozwiazales Chyba bede mogl sobie pozwolic na blogie lenistwo 
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
stramik
Administrator
Dołączył: 02 Gru 2007
Posty: 126
Przeczytał: 0 tematów
Skąd: Grodków
|
| Wysłany: Wto 18:12, 04 Gru 2007 Temat postu: |
|
|
|
Nom, czasami mam problem ze zrozumieniem polecen do zadan, ale w tym wypadku mysle, ze jest wszystko ok napisane.
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
| Wysłany: Wto 18:13, 04 Gru 2007 Temat postu: |
|
|
heh
No w kazdej chwili cos tam mozna napisac. Mam nadzieje ze niedlugo wiecej ludzi zacznie sie udzielac no i kozystac z forum. Ja przekazalem adres wszystkim osoba jakie mialem w kontaktach - a nie bylo ich za wiele z PWSZ wiec przeslijcie to innym.
Ps nie rozleniwiaj sie zabardzo  bedziesz mi musial z matma pomoc troszke
pozdro
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Siwy
Gaduła
Dołączył: 02 Gru 2007
Posty: 93
Przeczytał: 0 tematów
|
| Wysłany: Wto 21:23, 04 Gru 2007 Temat postu: |
|
|
| Kod: | program zadanie6;
{$APPTYPE CONSOLE}
uses
SysUtils;
procedure wyswietlenie(wynik:byte);
begin
if (wynik=1) then writeln('punkt lezy w okregu');
if (wynik=2) then writeln('punkt lezy na okregu');
if (wynik=3) then writeln('punkt lezy poza okregiem');
if (wynik=4) then writeln('punkt lezy ponad prosta');
if (wynik=5) then writeln('punkt lezy na prostej');
if (wynik=6) then writeln('punkt lezy ponizej prostej');
if (wynik=7) then writeln('punkt lezy w srodku okregu');
end;
function podaj(x,y,a,r,odleglosc:real; var wynik:byte):byte;
begin
writeln('podaj punkt w ukladzie wspolrzednych');
writeln('Podaj x punktu');
readln(x);
writeln('Podaj y punktu');
readln(y);
writeln;
writeln('Podales punkt(',x:2:0,' , ',y:2:0,')');
writeln;
if (a=1) then begin
writeln('Podaj promien okregu na ktorym mamy robic obliczenia');
readln(r);
writeln;
odleglosc:=sqrt((0-x)*(0-x)+(0-y)*(0-y));
if (odleglosc<r) then wynik:=1;
if (odleglosc=r) then wynik:=2;
if (odleglosc>r) then wynik:=3;
if (odleglosc=0) then wynik:=7;
result:=wynik;
end;
if (a=2) then begin
if (x<y) then wynik:=4;
if (x=y) then wynik:=5;
if (x>y) then wynik:=6;
result:=wynik;
end;
end;
var
x,y,r,odleglosc:real;
wynik,a:byte;
koniec:char;
begin
{ TODO -oUser -cConsole Main : Insert code here }
repeat
writeln('Chcesz obliczyc polozenie wzgledem okregu (1) czy prostej (2) ??');
readln(a);
podaj(x,y,a,r,odleglosc,wynik);
wyswietlenie(wynik);
writeln;
writeln('Czy chcesz zakonczyc program ?? t/n');
readln(koniec);
until (koniec='t');
end.
|
a oto moja wersja
|
|
| Powrót do góry |
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
|
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
