ok, postaram sie cos skrobnac. Ale jest to zadanie dodatkowe takze nie bede sie bardzo wysilal zeby nic w domu nie robic tylko to...najwyzej ktos inny pomoze.
Ale i tak wielkie dziekI!

gratuluję 5 :)

z miłą chęcią pomógłbym ale naprawdę nie mam na tygodniu czasu, jestem zawalony robotą a w weekend jadę na narty :):):)
myślę, że jak sam poczytasz jak zbudowane są funkcje w bibliotece podanej przez Skubiego to sam to napiszesz, trochę wyobraźni :)

Witam, dzieki ogromne za pomoc. Praca obroniona na 5 :)

Teraz na za tydzien mam ten drugi program. Glupio to zabrzmi ale nie mam sily, glowy ani czasu zeby sie do tego zabrac. A z userow...ktos znajdzie moze chwilke czasu. ksviper, bylbys tak laskaw...nauczylem sie niektorych rzeczy czytajac komenty. Zrobiles to idealnie takze moglbym prosic?

No dobrze! Nie krzycz! Spokojnie!
Nie jestem leniem, tylko chce mieć to zrobione dobrze, nie znam się na tym jak ksviper czy inni. Dlatego chce sie upewnic kilku rzeczy, a i tak bede musial troche przypomniec sobie z Pascala co uczynię.

@Kasprzak

nie przesadzasz? przeciez masz juz wszystko jak na tacy, przeciez to cala frajda zrobic to samemu

skoro sie bierzesz za programowanie musisz miec troche oleju w glowie, czyli jestes chyba maly len

jak ktos zrobi za Ciebie to sie sam niewiele nauczysz i mozesz pracy nie obronic

dostales wedke, i to calkiem porzadna, nie czekaj az Ci ktos sprezentuje jeszcze rybe, sprobuj zlowic ja sam

Nie spieszy sie... 9 marca mam ten pierwszy.
Podstawowe pojecia z pascala mam...tylko pokolei musze umiec to analizowac np. tamta procedure itp.

A ten drugi..spokojnie..i tak duzo zrobiles. JEszcze raz dzieki, moze jeszce inni helpną :)

mam nadzieję że masz jako taką znajomość z Pascalem aby obronić ten programik :)

co do drugiego to nie wiem na kiedy mógłbym to napisać bo w pracy zaczyna mi się niezły zap..... a w domu to już nie mam siły na nic, chciałbym tylko położyć się i odpocząć, ewentualnie oglądnąć jakiś filmik, w miarę możliwości ostaram się coś naskrobać ale nie obiecuję czegoś konkretnego.

daj znać na co się obroniłeś :D

łoł... teraz to juz wogole elegancko :)
Wszystko klarowne i wogole ;)
Dzieki serdeczne!!...


a drugi program? Jak z nim sprawa sie ma?

Zacznę zabawę z komentarzami, ale będą to ogólne informacje o tym co się dzieje. Mam nadzieję że coś kumasz Pascala bo jak nie to mimo moich komentarzy nauczyciel wyłoży Cię pierwszym lepszym pytaniem. No ale miejmy nadzieję że będzie inaczej :D
=============
edit: dodałem załącznik z komentarzem

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... :)

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ć :D:D:D

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)

program telefon napisany przez ksviper dziala bez zarzutow... wielkie dzieki
Tylko poprosze Ciebie potem o wytlumaczenie go...

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

Moze zbiór tych funkcji cos pomoze.
Działało mi w Delphi.

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...

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.

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)

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.

No tak, tylko jezeli mozna by bylo wczytac na liczbe, to operacja np. "trzeci parzysty" wykonuje sie duzo prosciej na liczbie niz na stringu.
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.

i więc spokojnie można wczytać z klawiatury do stringa a potem sprawdzać
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ć)

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 :) Zad 2 jest wredne - dosc praco- i czaso-chlonne.

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.

a do kiedy te programiki są do napisania ?

pierwszy na jutro napiszę :)

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)
http://img81.imageshack.us/img81/1325/zadanie9vq.th.jpg
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!