![]() |
||
Nagrywarki |
Pliki |
Dyski twarde |
Recenzje |
Księgarnia |
Biosy |
Artykuły |
Nagrywanie od A do Z |
Słownik |
FAQ
|
||
|
Off topic Forum poświęcone wszelkim innym tematom. |
![]() |
|
Opcje związane z dyskusją | Tryby wyświetlania |
|
![]() |
#1 |
...niepoprawny marzyciel.
Data rejestracji: 25.06.2002
Lokalizacja: Poznań
Posty: 4,752
![]() |
2 programy w PASCAL`u
Witam.
mam do napisania 2 programy w Pascalu. Ten pierwszy sobie powininem poradzic chcialem to zrobic IF`em chociaz poczekam na lepsze koncepcje bo nie znam dobrze Pascala 1) napisac program ktory po wpisaniu numeru kom. powie mi w jakiej jest sieci (nie obowiazuje przenoszenie numeru) np. wpisze 602xxxxxx to napisze ERA, wpisze 888xxxxxx heyah,885xxxxxx sami swoi... itp. i wynik np. zapisany do pliku wynik.txt 2)troche bardziej skomplikowany...(na plikach) i jezeli ktos juz go wykona to taki maly opis operacji czyli komentarze...bylbym wdzieczny Rozwiązuje n równań liniowych z n niewiadomymi (sorka za jakosc ale na szybko w paintcie zrobilem...tam jest dla n=2 tak wyglada rownanie) ![]() Czy mniej wiecej dobrze wyjasnilem co potrzebuje? Czy nie za bardzo? ![]() Napewno niczego nie zadam, ale prosze, bo jestem w maturalnej klasie i nie mam czasu za barzdo na nauke Pascala :/ Dzieki z gory!
__________________
Pozdrawiam! ![]() |
![]() |
![]() |
#ads | |
CDRinfo.pl
Reklamowiec
Data rejestracji: 29.12.2008
Lokalizacja: Sieć globalna
Wiek: 31
Posty: 1227
|
|
![]() |
![]() |
#2 |
samotność
Data rejestracji: 08.08.2004
Lokalizacja: Klimontów
Posty: 2,940
![]() ![]() ![]() ![]() ![]() |
a do kiedy te programiki są do napisania ?
pierwszy na jutro napiszę ![]()
__________________
|
![]() |
![]() |
![]() |
#3 |
Recydywista - Wielokrotny
Zlotowicz
CDRinfo VIP Data rejestracji: 17.01.2003
Lokalizacja: Wawa
Posty: 5,265
![]() ![]() |
1) Diabel tkwi we wczytaniu danych z wejscia, zeby sie potem nie bawic. Niestety 888xxxxxx to wiecej niz Word (taki Integer bez znaku, ale za to 2x dluzszy) w Pascalu. Wiec IMO tego nie da sie na raz wczytac (czyba ze do INT64, ale na tym chyba nie dzialaja podstawowe operacja nawet). Ale jezeli mozesz wczytac najpierw 3 cyfry, czyli np. numer postaci xxx xxx xxx to juz jestes w domu. Wczytujesz pierwsza liczbe na Inta i If'ujesz lub lepiej case'ujesz.
2) W zasadzie zadanie sprowadza sie do odwrocenia macierzy A i wymnozenia. Ja nie pamietam jak sie odwraca macierz A, tzn umialbym to zrobic teraz, ale to daje znowu uklad wspolrzednych i zapetlenie koncepcyjne ![]() Jezeli mozna pojsc inaczej w zad2 to proponuje gaussa, czyli pozbywasz sie w kazdym kroku jednej zmiennej. We wszystkich rownaniach mnozysz tak, by jedna zmienna zawsze miala ten sam wspolczynnik i potem podejmujesz piersze rownanie od drugiego, drugie od trzeciego itd. tworzac uklad n-1 rownan z n-1 niewiadomymi, bo jedna sie zredukowala. Zagrozeniem jest wyjscie poza zakres i ewentualne liczby niewymierne. Ostatnio zmieniany przez pawelblu : 20.02.2006 o godz. 10:20 |
![]() |
![]() |
![]() |
#4 | ||
samotność
Data rejestracji: 08.08.2004
Lokalizacja: Klimontów
Posty: 2,940
![]() ![]() ![]() ![]() ![]() |
Cytat:
Cytat:
Orange (Idea) to łatwizna: pierwszy znak = 5 PLUS: pierwszy 6 i trzeci nieparzysty ERA: pierwszy 6 i trzeci parzysty HEYAH: 888, 880, 88... (nie znam wszystkich prefiksów) SAMI SWOI: nie znam prefiksów oprócz 885 (zawsze można dopisać)
__________________
|
||
![]() |
![]() |
![]() |
#5 | |
Recydywista - Wielokrotny
Zlotowicz
CDRinfo VIP Data rejestracji: 17.01.2003
Lokalizacja: Wawa
Posty: 5,265
![]() ![]() |
Cytat:
Jezeli ten ciag bylby wpisywany ze spacjami tak jak pokazywalem to jestesmy w domu. Zreszta tak czy inaczej jakies zalozenia trzeba przyjac w jakim formacie jest numer (xxxxxxxxx, xxx-xxx-xxx, xxx xxx xxx, xxx xxxxxx), lub obslugiwac wszystkie. |
|
![]() |
![]() |
![]() |
#6 |
samotność
Data rejestracji: 08.08.2004
Lokalizacja: Klimontów
Posty: 2,940
![]() ![]() ![]() ![]() ![]() |
Jest jeszcze coś takiego jak readkey i możemy zrobić tablicę 9 elementową typu byte. każdy wczytany znak przekształcamy do liczby i po sprawie, żaden format wprawdzanych danych nas nie interesuje.
Gdybym w pracy miał kompilator i moje domowe przykłady to napisałbym to, a tak to na jutro.
__________________
|
![]() |
![]() |
![]() |
#7 |
...niepoprawny marzyciel.
Data rejestracji: 25.06.2002
Lokalizacja: Poznań
Posty: 4,752
![]() |
program jest na 9 marca... ale chcialem go teraz skonczyc. Ten drugi jest na 16.03...
Nie mialem podane jak ma byc numer wpisywany, ale przyjmijmy ze bez spacji... co do drugiego zadania, mam podane zagadnienia > metoda eliminacji gaussa, macierz odwrotna, mnozenie macierzy)
__________________
Pozdrawiam! ![]() |
![]() |
![]() |
![]() |
#8 |
samotność
Data rejestracji: 08.08.2004
Lokalizacja: Klimontów
Posty: 2,940
![]() ![]() ![]() ![]() ![]() |
kiedyś gdzieś miałem zrobione w C metodą eliminacji gaussa ale nie wiem gdzie to teraz jest, z macierzą odwrotną jest najprostrze w liczeniu ale najdłuższe w programowaniu, chyba że masz gotowe moduły, mnożenie macierzy podobne do odwrotnej choć już prostsze.
__________________
|
![]() |
![]() |
![]() |
#9 |
...niepoprawny marzyciel.
Data rejestracji: 25.06.2002
Lokalizacja: Poznań
Posty: 4,752
![]() |
http://forum.idg.pl/lofiversion/index.php/t30488.html
To bedzie odpowiedz na drugie zadanie? Jezeli tak to to problemem jest takze zebym ja to umial wytlumaczyc, kolejne kroki...
__________________
Pozdrawiam! ![]() Ostatnio zmieniany przez Kasprzak : 20.02.2006 o godz. 12:48 |
![]() |
![]() |
![]() |
#10 |
Guru
Data rejestracji: 04.01.2003
Lokalizacja: Sosnowiec
Posty: 1,208
![]() ![]() |
Moze zbiór tych funkcji cos pomoze.
Działało mi w Delphi.
__________________
Cave me, Domine, ab amico, ab inimico vero me ipse cavebo ADuC841+FT245BM ![]() Ostatnio zmieniany przez Skubi : 20.02.2006 o godz. 12:56 |
![]() |
![]() |
![]() |
#11 |
samotność
Data rejestracji: 08.08.2004
Lokalizacja: Klimontów
Posty: 2,940
![]() ![]() ![]() ![]() ![]() |
telefon zrobiłem ale nie wiem czy działa bo pisałem bez kompilatora
rozwiązanie drugiego zadania masz w pliku dołączonym przez Skubiego, metodą podaną przez Ciebie na obrazku
__________________
Ostatnio zmieniany przez ksviper : 20.02.2006 o godz. 13:42 |
![]() |
![]() |
![]() |
#12 |
...niepoprawny marzyciel.
Data rejestracji: 25.06.2002
Lokalizacja: Poznań
Posty: 4,752
![]() |
program telefon napisany przez ksviper dziala bez zarzutow... wielkie dzieki
Tylko poprosze Ciebie potem o wytlumaczenie go...
__________________
Pozdrawiam! ![]() |
![]() |
![]() |
![]() |
#13 |
Recydywista - Wielokrotny
Zlotowicz
CDRinfo VIP Data rejestracji: 17.01.2003
Lokalizacja: Wawa
Posty: 5,265
![]() ![]() |
Trzeba przyznac ze to jeden z najladniej napisanych kodow jakie ostatnio widzialem, niestety przez to jest dosc duzy :/ (2200 na taka funkcjonalnosc to jednak troche jest).
Uzywasz funkcji val - w pascalu jest taka funkcja ord ktora zwraca ASCII znaku, wiec ord(znak) - 48 daje Ci cyfre. Jak ord(znak) < 48 lub > 57 to znak nie jest cyfra. ord = chr^(-1) |
![]() |
![]() |
![]() |
#14 |
samotność
Data rejestracji: 08.08.2004
Lokalizacja: Klimontów
Posty: 2,940
![]() ![]() ![]() ![]() ![]() |
a owszem jest ale zapomniałem o tej możliwości
![]() ważne że działa teraz większy problem: trzeba ten program wytłumaczyć ![]() ![]() ![]()
__________________
|
![]() |
![]() |
![]() |
#15 |
...niepoprawny marzyciel.
Data rejestracji: 25.06.2002
Lokalizacja: Poznań
Posty: 4,752
![]() |
No bylbym za to bardzo wdzieczny, a da sie tak wytlumaczyc kazda linijke, funkcje, procedure? w krotki sposob?...bo podobno bede musial "obronic" ten program
![]() To moze jakos przebudujesz ten program zeby byl prostszy? Jezeli sie da... ![]()
__________________
Pozdrawiam! ![]() |
![]() |
![]() |
![]() |
|
|