Ĺadny brzuch
Mam problem z następującymi zadaniami. Musze napisać je w PASCALU. Mam nadzieje że pomożecie.
1. Napisz program, który oblicza moc (liczbę kardynalną) danego zbioru.
2. Napisz program, który wczytuje ciąg liczb i tworzy z niego zbiór, następnie czyta pojedynczą liczbę i podaje, czy należy ona do tego zbioru.
3. Napisz program, który tworzy zbiór złożony z 6 losowo wybranych liczb z zakresu od 1 do 20.
4. Napisz program, który czyta plik złożony z wierszy napisanych małymi literami, na przykład:
abc
haha
xyz
a następnie przetwarza go do postaci:
0001= ABC
0002= HAHA
0003= XYZ
5. Napisz program, który czyta plik (nie więcej niż 250 wierszy po 250 znaków) i drukuje jego znaki w odwrotnej kolejności.
6. Napisz program, który w podanym pliku zastępuje wszystkie znaki spacji na znak podkreślenie.
to gdzie problem?
Eh. Potem mamy informatyków co podstaw programowania nie znają... Zadania (nie licząc pierwszego, nie wiem co to liczba kardynalna) są banalne. Ja jestem w 2 klasie technikum, mam 2 godziny pascala tygodniowo i te zadania nie są dla mnie problemem, a Ty (pewnie studia) nie potrafisz ich zrobić. Wątpie żeby ktoś dał Ci tu gotowca (z zasady).
Użytkownik kwarzecha7 edytował ten post 08 październik 2006, 09:16
Jak stworzyć zbiór z wczytanych liczb?
Jak stworzyć zbiór z wczytanych liczb? Nie może to być pospolita tablica? <_<
Co do zadania drugiego...
Mam takie coś:
program prog; uses crt; var t:array[0..100]of integer; i,n,x:integer; begin clrscr; i:=0; n:=0; write('Podaj ile liczb chcesz wprowadzi†: '); readln(i); writen; for x:=0 to i do begin write(x,' liczba: '); readln(t[i]); end; writeln; writeln(' OK, teraz wpisz liczbe i sprawdzimy czy nalezy ona'); writeln(' do zadeklarowanego wczesniej zbioru'); writeln; write('Twoja cyfra to: '); readln(n); writeln; if n = t[i] then writeln(' TAAAAK! Ta liczba nalezy do zbioru') else writeln(' Nie, ta liczba nie nalezy do zbioru'); readln; end.
Probelm polega na tym, że kiedy tworzę zbiór z trzech cyfr, i później sprawdzam czy jakaś liczba nalezy do tego zbioru, to wychodzi na to że tylko ostatnia należy, a pierwsza i druga nie.
Wiesz nie ma się co dziwić. Sam przecież napisałeś warunek tylko dla i-tego elementu tablicy. Zrób pętlę:for x:=0 to i do if n=t[i] then writeln(' TAAAAK! Ta liczba nalezy do zbioru') else writeln(' Nie, ta liczba nie nalezy do zbioru');
A jeżeli satysfakcjonują Cie liczby z zakresu byte to można zrobić też i normalny zbiór:program zbior_liczb; uses crt; type TLiczby= set of byte; var zbior:TLiczby; ile,i,x:byte; begin clrscr; write('Podaj ilosc liczb: '); readln(ile); for i:=1 to ile do begin write('Liczba ',i,' = '); readln(x); zbior:=zbior+[x]; end; write('Podaj jakas liczbe: '); readln(x); if x in zbior then writeln('Liczba ',x,' zawiera sie w zbiorze') else writeln('Liczba ',x,' nie zawiera sie w zbiorze'); readln; end.
Użytkownik reVis edytował ten post 09 październik 2006, 23:04
na mojej stronce pomoga Ci z pascala na 100% ;]
Użytkownik Programmers.mojeforum.net edytował ten post 10 październik 2006, 15:18
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
1. Napisz program, który oblicza moc (liczbę kardynalną) danego zbioru.
2. Napisz program, który wczytuje ciąg liczb i tworzy z niego zbiór, następnie czyta pojedynczą liczbę i podaje, czy należy ona do tego zbioru.
3. Napisz program, który tworzy zbiór złożony z 6 losowo wybranych liczb z zakresu od 1 do 20.
4. Napisz program, który czyta plik złożony z wierszy napisanych małymi literami, na przykład:
abc
haha
xyz
a następnie przetwarza go do postaci:
0001= ABC
0002= HAHA
0003= XYZ
5. Napisz program, który czyta plik (nie więcej niż 250 wierszy po 250 znaków) i drukuje jego znaki w odwrotnej kolejności.
6. Napisz program, który w podanym pliku zastępuje wszystkie znaki spacji na znak podkreślenie.
to gdzie problem?
Eh. Potem mamy informatyków co podstaw programowania nie znają... Zadania (nie licząc pierwszego, nie wiem co to liczba kardynalna) są banalne. Ja jestem w 2 klasie technikum, mam 2 godziny pascala tygodniowo i te zadania nie są dla mnie problemem, a Ty (pewnie studia) nie potrafisz ich zrobić. Wątpie żeby ktoś dał Ci tu gotowca (z zasady).
Użytkownik kwarzecha7 edytował ten post 08 październik 2006, 09:16
Jak stworzyć zbiór z wczytanych liczb?
Jak stworzyć zbiór z wczytanych liczb? Nie może to być pospolita tablica? <_<
Co do zadania drugiego...
Mam takie coś:
program prog; uses crt; var t:array[0..100]of integer; i,n,x:integer; begin clrscr; i:=0; n:=0; write('Podaj ile liczb chcesz wprowadzi†: '); readln(i); writen; for x:=0 to i do begin write(x,' liczba: '); readln(t[i]); end; writeln; writeln(' OK, teraz wpisz liczbe i sprawdzimy czy nalezy ona'); writeln(' do zadeklarowanego wczesniej zbioru'); writeln; write('Twoja cyfra to: '); readln(n); writeln; if n = t[i] then writeln(' TAAAAK! Ta liczba nalezy do zbioru') else writeln(' Nie, ta liczba nie nalezy do zbioru'); readln; end.
Probelm polega na tym, że kiedy tworzę zbiór z trzech cyfr, i później sprawdzam czy jakaś liczba nalezy do tego zbioru, to wychodzi na to że tylko ostatnia należy, a pierwsza i druga nie.
Wiesz nie ma się co dziwić. Sam przecież napisałeś warunek tylko dla i-tego elementu tablicy. Zrób pętlę:for x:=0 to i do if n=t[i] then writeln(' TAAAAK! Ta liczba nalezy do zbioru') else writeln(' Nie, ta liczba nie nalezy do zbioru');
A jeżeli satysfakcjonują Cie liczby z zakresu byte to można zrobić też i normalny zbiór:program zbior_liczb; uses crt; type TLiczby= set of byte; var zbior:TLiczby; ile,i,x:byte; begin clrscr; write('Podaj ilosc liczb: '); readln(ile); for i:=1 to ile do begin write('Liczba ',i,' = '); readln(x); zbior:=zbior+[x]; end; write('Podaj jakas liczbe: '); readln(x); if x in zbior then writeln('Liczba ',x,' zawiera sie w zbiorze') else writeln('Liczba ',x,' nie zawiera sie w zbiorze'); readln; end.
Użytkownik reVis edytował ten post 09 październik 2006, 23:04
na mojej stronce pomoga Ci z pascala na 100% ;]
Użytkownik Programmers.mojeforum.net edytował ten post 10 październik 2006, 15:18