Ĺadny brzuch
Witam mam dziś (24 marca) laborki z informy, a z pascala nie jestem mocny. Ostatni termi!!!
Poniższe zadania miałem ostatnio. Z góry dzięki za wszelką pomoc.
Zad1
Wczytaj z klawiatury dwie liczby naturalne a i b. Sprawdź cz liczba a jest podzielna bez reszty przez b i na odwrót.
Zad2
Utwórz tablice 13 liczb naturalnych losowych z przedziału [1:50], a następnie wydrukuj je. Wyznacz elementy, które są liczbami parzystymi, a następnie je wydrukuj.
Zad3
Utwórz tablice 5x5 liczb całkowitych wylosowanych z przedziału [-50,50]. Oblicz, a następnie wydrkuj średnią arytmetyczną liczb leżącycjh w ostatniej kolumnie tej tablicy.
Witam wszystkich, dawno mnie tu nie było, kope lat :] Widzę, że forum się rozwinęło, spox.
program pierwszy; uses CRT; var a, b : integer; begin clrscr; writeln('Podaj liczbę a'); readln(a); writeln('Podaj liczbę b'); readln(b); if a mod b = 0 then begin writeln('Liczba b dzieli liczbę a bez reszty'); end; if b mod a = 0 then begin writeln('Liczba a dzieli liczbę b bez reszty'); end; end.
Narazie się śpieszę, jak jeszcze będę to napiszę Ci resztę.
Pozdro for All
OK, znalazłem jeszcze troszkę czasu, oto reszta:
program drugi; usues crt; var a : array[1..13] of integer; i : integer; begin; clrscr; randomize; for i := 0 to 13 do begin a[i] := random(50); if a[i] mod 2 = 0 then writeln('Liczba o indexie', i, ' jest liczba parzysta i ma wartosc: ', a[i]); end; readln; end. program trzeci; usues crt; var tab : array[1..5, 1..5] of integer; i, j, suma : integer; begin; clrscr; randomize; for i := 0 to 5 do begin for j := 0 to 5 do begin tab[i][j] := random(100); tab[i][j] := tab[i][j] - 50; end; end; suma := 0; for i := 0 to 5 do suma := suma + tab[4][j]; writeln('Średnia arytmetyczna ostatniej kolumny jest równa: ', suma/2); end.
Pozdro for All
ad2.
uses crt; var i:byte; t:array[1..13]of word; begin clrscr; randomize; for i:=1 to 13 do t[i]:=random(50)+1; writeln('Wylosowane liczby:'); for i:=1 to 13 do write(t[i],' '); writeln; writeln('Liczby parzyste: '); for i:=1 to 13 do if t[i] mod 2=0 then write(t[i],' '); readkey; end.
lol spóźniłem się ;)
@Neohacker zamiast random(50) (losowanie 0-49) daj random(50)+1.
Pozdro
Użytkownik Cyrkiel edytował ten post 24 marzec 2005, 14:39
Dzieki za pomoc. Mam nadzieje ze mi to pomoze.
Ciekawe czy net bedzie mi działała na egzaminie, to może jak czegoś nie bede wiedział to się odezwę. Egzamin mam o 18.30
Jeszcze raz dzieki rozjaśniło mi to troszkę w głowie.
Pierwsze dwa są ok ale trzeci program wywala mi błąd:
Runtime error 201 at 0x0040106B
0x0040106B
0x004021A5
wiecie gdzie jest błąd??
sorki, pisałem w notatniku
suma := suma + tab[4][j];
powinno być:
suma := suma + tab[4][i];
Zamiast j daj i, powinno pomóc.
Pozdro for All
Dzieki że mi pomagasz,
Byl taki mały kosmetyczny błąd "uses crt"
ale ciągle ten sam błąd mimo zmiany mojej i twojej
zaraz wrzuce do kompilatora i sprawdzę
Sprawdź czy się nie pomyliłeś bo u mnie się normalnie kompiluje i działa:
program trzeci; uses crt; var tab : array[1..5, 1..5] of integer; i, j, suma : integer; begin; clrscr; randomize; for i := 0 to 5 do begin for j := 0 to 5 do begin tab[i][j] := random(100) - 49; end; end; suma := 0; for i := 0 to 5 do suma := suma + tab[4][i]; writeln('Średnia arytmetyczna ostatniej kolumny jest równa: ', suma/2); readln; end.
Pozdro for All
U mnie nie dziala.
Wydrukuje sobie to zadanie i jak mi sie trafi to je przepisze i zobacze czy zadziała.
Dzieki uciekam na uczelnie
Jeśli masz TP to zrób tak: przekopiuj ten mój program do notatnika i zapisz jako plik z rozszerzeniem *.pas otwórz go w TP i skompiluj, będziesz mieć gwarancje, że masz dokładnie to samo co ja.
Pozdro for All
a nie powinno byc tak????
program trzeci; uses crt; var tab : array[1..5, 1..5] of integer; i, j, suma : integer; begin; clrscr; randomize; for i := 1 to 5 do for j := 1 to 5 do begin tab[i][j] := random(101) - 50; end; suma := 0; for i := 1 to 5 do suma := suma + tab[5][i]; for i := 1 to 5 do Begin for j := 1 to 5 do Begin Write(tab[i][j]); Write(' ') end; writeln; End; writeln('Średnia arytmetyczna ostatniej kolumny jest równa: ', suma/2); readln; end.
Użytkownik DrizeR edytował ten post 24 marzec 2005, 16:16
ad3. Działa bezbłędnie :)
uses crt; var i, j:byte; t:array[1..5]of array[1..5]of integer; suma:longint; begin clrscr; randomize; for i:=1 to 5 do for j:=1 to 5 do t[i][j]:=random(100)-50; writeln('Wylosowane liczby:'); for i:=1 to 5 do for j:=1 to 5 do begin write(t[i][j],' '); if j=5 then writeln; end; writeln; suma:=0; write('Srednia arytmetyczna liczb z ostatniej kolumny: '); for i:=1 to 5 do suma:=suma+t[i][5]; writeln(suma/5:4:2); readkey; end.
Użytkownik Cyrkiel edytował ten post 24 marzec 2005, 19:00
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Poniższe zadania miałem ostatnio. Z góry dzięki za wszelką pomoc.
Zad1
Wczytaj z klawiatury dwie liczby naturalne a i b. Sprawdź cz liczba a jest podzielna bez reszty przez b i na odwrót.
Zad2
Utwórz tablice 13 liczb naturalnych losowych z przedziału [1:50], a następnie wydrukuj je. Wyznacz elementy, które są liczbami parzystymi, a następnie je wydrukuj.
Zad3
Utwórz tablice 5x5 liczb całkowitych wylosowanych z przedziału [-50,50]. Oblicz, a następnie wydrkuj średnią arytmetyczną liczb leżącycjh w ostatniej kolumnie tej tablicy.
Witam wszystkich, dawno mnie tu nie było, kope lat :] Widzę, że forum się rozwinęło, spox.
program pierwszy; uses CRT; var a, b : integer; begin clrscr; writeln('Podaj liczbę a'); readln(a); writeln('Podaj liczbę b'); readln(b); if a mod b = 0 then begin writeln('Liczba b dzieli liczbę a bez reszty'); end; if b mod a = 0 then begin writeln('Liczba a dzieli liczbę b bez reszty'); end; end.
Narazie się śpieszę, jak jeszcze będę to napiszę Ci resztę.
Pozdro for All
OK, znalazłem jeszcze troszkę czasu, oto reszta:
program drugi; usues crt; var a : array[1..13] of integer; i : integer; begin; clrscr; randomize; for i := 0 to 13 do begin a[i] := random(50); if a[i] mod 2 = 0 then writeln('Liczba o indexie', i, ' jest liczba parzysta i ma wartosc: ', a[i]); end; readln; end. program trzeci; usues crt; var tab : array[1..5, 1..5] of integer; i, j, suma : integer; begin; clrscr; randomize; for i := 0 to 5 do begin for j := 0 to 5 do begin tab[i][j] := random(100); tab[i][j] := tab[i][j] - 50; end; end; suma := 0; for i := 0 to 5 do suma := suma + tab[4][j]; writeln('Średnia arytmetyczna ostatniej kolumny jest równa: ', suma/2); end.
Pozdro for All
ad2.
uses crt; var i:byte; t:array[1..13]of word; begin clrscr; randomize; for i:=1 to 13 do t[i]:=random(50)+1; writeln('Wylosowane liczby:'); for i:=1 to 13 do write(t[i],' '); writeln; writeln('Liczby parzyste: '); for i:=1 to 13 do if t[i] mod 2=0 then write(t[i],' '); readkey; end.
lol spóźniłem się ;)
@Neohacker zamiast random(50) (losowanie 0-49) daj random(50)+1.
Pozdro
Użytkownik Cyrkiel edytował ten post 24 marzec 2005, 14:39
Dzieki za pomoc. Mam nadzieje ze mi to pomoze.
Ciekawe czy net bedzie mi działała na egzaminie, to może jak czegoś nie bede wiedział to się odezwę. Egzamin mam o 18.30
Jeszcze raz dzieki rozjaśniło mi to troszkę w głowie.
Pierwsze dwa są ok ale trzeci program wywala mi błąd:
Runtime error 201 at 0x0040106B
0x0040106B
0x004021A5
wiecie gdzie jest błąd??
sorki, pisałem w notatniku
suma := suma + tab[4][j];
powinno być:
suma := suma + tab[4][i];
Zamiast j daj i, powinno pomóc.
Pozdro for All
Dzieki że mi pomagasz,
Byl taki mały kosmetyczny błąd "uses crt"
ale ciągle ten sam błąd mimo zmiany mojej i twojej
zaraz wrzuce do kompilatora i sprawdzę
Sprawdź czy się nie pomyliłeś bo u mnie się normalnie kompiluje i działa:
program trzeci; uses crt; var tab : array[1..5, 1..5] of integer; i, j, suma : integer; begin; clrscr; randomize; for i := 0 to 5 do begin for j := 0 to 5 do begin tab[i][j] := random(100) - 49; end; end; suma := 0; for i := 0 to 5 do suma := suma + tab[4][i]; writeln('Średnia arytmetyczna ostatniej kolumny jest równa: ', suma/2); readln; end.
Pozdro for All
U mnie nie dziala.
Wydrukuje sobie to zadanie i jak mi sie trafi to je przepisze i zobacze czy zadziała.
Dzieki uciekam na uczelnie
Jeśli masz TP to zrób tak: przekopiuj ten mój program do notatnika i zapisz jako plik z rozszerzeniem *.pas otwórz go w TP i skompiluj, będziesz mieć gwarancje, że masz dokładnie to samo co ja.
Pozdro for All
a nie powinno byc tak????
program trzeci; uses crt; var tab : array[1..5, 1..5] of integer; i, j, suma : integer; begin; clrscr; randomize; for i := 1 to 5 do for j := 1 to 5 do begin tab[i][j] := random(101) - 50; end; suma := 0; for i := 1 to 5 do suma := suma + tab[5][i]; for i := 1 to 5 do Begin for j := 1 to 5 do Begin Write(tab[i][j]); Write(' ') end; writeln; End; writeln('Średnia arytmetyczna ostatniej kolumny jest równa: ', suma/2); readln; end.
Użytkownik DrizeR edytował ten post 24 marzec 2005, 16:16
ad3. Działa bezbłędnie :)
uses crt; var i, j:byte; t:array[1..5]of array[1..5]of integer; suma:longint; begin clrscr; randomize; for i:=1 to 5 do for j:=1 to 5 do t[i][j]:=random(100)-50; writeln('Wylosowane liczby:'); for i:=1 to 5 do for j:=1 to 5 do begin write(t[i][j],' '); if j=5 then writeln; end; writeln; suma:=0; write('Srednia arytmetyczna liczb z ostatniej kolumny: '); for i:=1 to 5 do suma:=suma+t[i][5]; writeln(suma/5:4:2); readkey; end.
Użytkownik Cyrkiel edytował ten post 24 marzec 2005, 19:00