Turbo Pascal 7.0 Help hilfe pomocy :\

[Jozan]

No mam taki problemik bo musze skrobnąć programik i normalnie nic mi nie idzie totalna pustka :d, no więc sobie wykminilem, że może ktoś z was pomoże mi w tym bagnie... poniżej to co mam zrobić:
>>>>>>>>>>>>>>Zadanie<<<<<<<<<<<<<<
Napisz program, który wczyta datę w formie liczbowej i wypisze ją słownie.
WEJŚCIE
Trzy liczby całkowite d,m i r:d z zakresu 1..30, m z zakresu 1..12, r z zakresu 2000..2010
WYJŚĆIE
Słowny zapis podanej daty
-------------------------------------------------
Ludzie help hilfe pomocy. Z góry wielka dziękówa

[Jozan]

up plis pomóżcie :)

[benek]

bardzo proste zadanko...robisz sobie 3 wlasne typy zmiennych-kazdy to tablica typu string, pierwsza z kluczami od 1 do druga od 1 do 12 i trzecia od 1 do 10, dla kazdego klucza ciag znakow i potem tylko warunkowa wyswietlajaca caly ciag znakow.

ps. zrobie Ci to dzis jak znajde chwilke i w.j.e.b.i.e na forum...

pozdro

[benek]

jako ze sie nudzilem zrobilem Ci to:)Tylko wklep do pascala, uzupelnij to co zaznaczylem i masz gotowca:)jak by jakies problemy pisz:)
oto program:

program data;
uses crt;
var
dzien:array[1..30] of string;
miesiac:array[1..12] of string;
rok:array[1..10] of string;
dz,m,r:integer;

begin
dzien[1]:='Pierwszy';
dzien[2]:='Drugi';
dzien[3]:='Trzeci';
dzien[4]:='Czwarty';
dzien[5]:='Piaty';
dzien[6]:='Szosty';
dzien[7]:='Siodmy';
dzien[8]:='Osmy';
dzien[9]:='Dziewiaty';
{i tak samo robisz az do 30...}
miesiac[1]:='Styczen';
miesiac[2]:='Luty';
miesiac[3]:='Marzec';
{tutaj tak samo lecisz az do Grudnia}
rok[1]:='Dwu tysieczny';
rok[2]:='Dwu tysieczny pierwszy';
rok[3]:='Dwu tysieczny drugi';
rok[4]:='Dwu tysieczny czwarty';
rok[5]:='Dwu tysieczny piaty';
rok[6]:='Dwu tysieczny szosty';
rok[7]:='Dwu tysieczny siodmy';
rok[8]:='Dwu tysieczny osmy';
rok[9]:='Dwu tysieczny dziewiaty';
rok[10]:='Dwu tysieczny dwodziesty';
{popraw bledy ort:D}
writeln('Podaj dzien:');
readln(dz);
writeln('Podaj miesiac:');
readln(m);
writeln('Podaj rok z zakresu 2000-2010:');
readln(r);

if (dz>0) and (dz<=30) and (m>0) and (m<=12) and (r>=2000) and (m<=2010) then
begin
writeln('Podano nastepujaca date:');
writeln(dzien[dz], ' ', miesiac[m], ' ', rok[r-2000], ' rok');
end
else writeln('Podano nieprawidlowa date!');
repeat until keypressed;
end.

[Jozan]

Jesteś boski :* uświadomiłeś mi przy okazji ile jeszcze nocy będe musiał zarwać dla TP :)

[Jozan]

benek no coś nie dziabi obaczsj to wyskakuje przy kompilacji http://www.fotosik.pl/showFullSize.php? ... e48b1174ee

[morthias]

benek no coś nie dziabi obaczsj to wyskakuje przy kompilacji http://www.fotosik.pl/showFullSize.php? ... e48b1174ee

Srednio pamietam TP, ale moze byc to spowodowane tym, ze w tym fragmencie:

writeln('Podano nastepujaca date:');
writeln(dzien[dz], ' ', miesiac[m], ' ', rok[r-2000], ' rok');

Wpisales "writlen" zamiast "writeln".

[Jozan]

morthias moja gafa nie zauważyłem :P BTW benek on mi ucina rok 2000 i 2010 czy te lata nie wchodzą w gre ?

[benek]

aa no no moja wina...przeoczylem jeden klucz tablicy..tablica z latami ma wygladac tak:
rok[1]:='Dwu tysieczny';
rok[2]:='Dwu tysieczny pierwszy';
rok[3]:='Dwu tysieczny drugi';
rok[4]:='Dwu tysieczny trzeci';
rok[5]:='Dwu tysieczny czwarty';
rok[6]:='Dwu tysieczny piaty';
rok[7]:='Dwu tysieczny szosty';
rok[8]:='Dwu tysieczny siodmy';
rok[9]:='Dwu tysieczny osmy';
rok[10]:='Dwu tysieczny dziewiaty';
rok[11]:='Dwu tysieczny dziesiaty';

zamien tez linijke:
rok:array[1..10] of string;
na:
rok:array[1..11] of string;

a takze zamien linkijke:
writeln(dzien[dz], ' ', miesiac[m], ' ', rok[r-2000], ' rok');
na
writeln(dzien[dz], ' ', miesiac[m], ' ', rok[r-2000+1], ' rok');

i tyle:)

[Jozan]

Dzięks, chyba wisze komuś piwko :P

[Jozan]

Sory że odświeżam ale pilna sprawa mam taki takiego hitlerjugenamachenbachen
Napisz program, który wyznaczy osmiobitową reprezentację dwójkową liczby całkowitej.
Wejście
Liczba całkowita z zakresu 0..255
Wyjście
Osiem cyfr z zakresu 0..1

Próbowaliśmy to pisać we 3 i nic potem znajomy dał "koledze informatykowi" i niby co naskrobał ale takie głupoty, że sam zapominam jak się nazywam :P Nie ukrywam,że benek mógłby pomóc troszkę :P.

[benek]

sry ze odswiezam:D ale teraz czytam...spoko, zrobie Ci to na lajcie, daj mi tylko czasu:)

ps. bardzo proste zadanko...wystarczy wykorzystac metode konwersji poprzez dzielenie przez 2 i zpisywanie reszty...no tak proste ze az po plecach mnie ciarki ida...zrobie Ci to dzis przy podwieczorku:D

[Furmek]

benek, trzy male ale:

1. Patrz na daty, myslisz ze zadanie napisane 20 dnii temu nadal jest aktualne ? :P

2. na informie widac niespales, ale na polskim na bank, rok sie pisze dwatysiace pierwszy, drugi... a nie dwutysieczny pierwszy. Dwutysieczny byl tylko rok 2000!

3. Niektore miesiace maja po 31 dni - powaznie ;)

[benek]

Furmekna polskim nie spalem bo nie chodze na polski...:P a Ty bystrzak tez nie jestes:D
"{popraw bledy ort:D} " :) a z miesiacami to fakt...:P

btw nie spales pisze sie osobno..:P