Ĺadny brzuch
Witam serdecznie :)
Mam problemik z jednym z zadaniem
z Pascala - niestety mam 2 lewe ręce do
tego języka, a mam zadanie do zrobienia -
jego treść brzmi następująco:
Napisz program, który wczytuje liczby całkowite do tablicy ośmioelementowej,
a wypisuje na ekran indeks elementu tablicy, którego wartość wynosi zero.
Natomiast jeśli nie ma takiego elementu, wypisuje komunikat "brak elementu zerowego".
Jeśli ktoś mógłby to zadanie wykonać proszę
o odpowiedzi w tym topicu lub kontakt:
sponsorek@simplusnet.pl
GG: 3788098
ICQ: 262-464-097
Za okazaną pomoc serdecznie dziękuje! :)
uses crt; var tablica:array[1..8]of integer; i:byte; b:boolean; begin clrscr; for i:=1 to 8 do begin write('Podaj ',i,' liczbe: '); readln(tablica[i]); end; for i:=1 to 8 do if tablica[i]=0 then begin b:=true; break; end; if b then writeln('Element zerowy na indeks ',i) else writeln('Brak elementu zerowego'); readkey; end.Następnym razem napisz z czym masz problem ;)
:o :o
Jestem naprawdę pod wrażeniem -
w ciągu 7 minut zrobić - klasa sama w sobie -
dziękuję jeszcze raz i pozdrawiam B)
:clap: :cheers:
Użytkownik Sponsorek edytował ten post 29 wrzesień 2005, 22:29
Sorry za bezpośredność ale jeżeli jesteś zielony z tego języka to po co było ci te rozwiązanie ? :blink:
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam problemik z jednym z zadaniem
z Pascala - niestety mam 2 lewe ręce do
tego języka, a mam zadanie do zrobienia -
jego treść brzmi następująco:
Napisz program, który wczytuje liczby całkowite do tablicy ośmioelementowej,
a wypisuje na ekran indeks elementu tablicy, którego wartość wynosi zero.
Natomiast jeśli nie ma takiego elementu, wypisuje komunikat "brak elementu zerowego".
Jeśli ktoś mógłby to zadanie wykonać proszę
o odpowiedzi w tym topicu lub kontakt:
sponsorek@simplusnet.pl
GG: 3788098
ICQ: 262-464-097
Za okazaną pomoc serdecznie dziękuje! :)
uses crt; var tablica:array[1..8]of integer; i:byte; b:boolean; begin clrscr; for i:=1 to 8 do begin write('Podaj ',i,' liczbe: '); readln(tablica[i]); end; for i:=1 to 8 do if tablica[i]=0 then begin b:=true; break; end; if b then writeln('Element zerowy na indeks ',i) else writeln('Brak elementu zerowego'); readkey; end.Następnym razem napisz z czym masz problem ;)
:o :o
Jestem naprawdę pod wrażeniem -
w ciągu 7 minut zrobić - klasa sama w sobie -
dziękuję jeszcze raz i pozdrawiam B)
:clap: :cheers:
Użytkownik Sponsorek edytował ten post 29 wrzesień 2005, 22:29
Sorry za bezpośredność ale jeżeli jesteś zielony z tego języka to po co było ci te rozwiązanie ? :blink: