szukanie zaawansowane
 [ Posty: 4 ] 
Autor Wiadomość
Mężczyzna Offline
 Tytuł: Free Pascal
PostNapisane: 3 lut 2011, o 20:00 
Użytkownik

Posty: 1
Lokalizacja: wrocław
Witam, proszę o pomoc w napisaniu następujących programów, na tablicach.

1) Program z wykorzystaniem 20-sto elementowej tablicy, wartości mają być wygenerowane z zakresu od -5 do 14. Wartości ujemne należy zastąpić 0 i wydrukować na ekranie.

2) Napisz program wczytujący ciąg n liczb rzeczywistych, wydrukuj na ekranie te spośród liczb, których indeks jest parzysty.

3) Napisz program wprowadzający dane do dziesięcio-elementowej tablicy i wprowadź najpierw liczby parzyste, potem nieparzyste.
Góra
Mężczyzna Offline
 Tytuł: Free Pascal
PostNapisane: 4 lut 2011, o 08:08 
Użytkownik

Posty: 795
Lokalizacja: Tarnów
No to dajesz. Pokaż swój kod a my pomagamy i znajdujemy błędy.
Góra
Mężczyzna Offline
 Tytuł: Free Pascal
PostNapisane: 8 lut 2011, o 19:01 
Użytkownik

Posty: 2
Lokalizacja: Tarnów/okolic
ad1.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program tablica1;
uses crt;
var
 a:byte;
 tablica:array[1..20] of integer;
begin
clrscr;
 randomize;
 for a:=1 to 20 do
 begin
  tablica[a]:=random (20);
  tablica[a]:=tablica[a]-5;
  if tablica[a]<0 then begin
                        tablica[a]:=0;
                        writeln (tablica[a]);
                       end
                  else begin
                         writeln (tablica[a]);
                        end;
 end;
readln;
end.


ad 2 (nie wiem czy dokładnie o to chodziło :D)

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program wczyt;
uses crt;
var
tablica:array[1..10] of integer;
a:byte;
begin
clrscr;
for a:=1 to 10 do
  begin
   writeln ('Podaj ',a,' liczbe');
   readln (tablica[a]);
  end;
writeln;
for a:=1 to 10 do
  begin
   if tablica[a] mod 2 = 0 then writeln (tablica[a]);
  end;
readln;
end.


ad 3

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program tablica2;
uses crt;
var
 tablica:array[1..10] of integer;
 a:byte;
begin
clrscr;
 for a:=1 to 10 do
  begin
   writeln ('Podaj ',a,' liczbe');
   readln (tablica[a]);
  end;
 writeln;
 writeln ('Liczby parzyste');
 for a:=1 to 10 do
  begin
   if tablica[a]/2=tablica[a] div 2 then writeln (tablica[a]);
  end;
 writeln;
 writeln ('Liczby nieparzyste');
 for a:=1 to 10 do
  begin
   if tablica[a]/2 <> tablica[a] div 2 then writeln (tablica[a]);
  end;
  readln;
end.
Góra
Mężczyzna Offline
 Tytuł: Free Pascal
PostNapisane: 9 lut 2011, o 10:00 
Użytkownik

Posty: 795
Lokalizacja: Tarnów
ad 2. Masz wypisać elementy tablicy których indeks jest parzysty a nie który element jest parzysty (wypisujesz poprostu co drugi element).

ad 3. Tu warto zastosować warunek w if'ie, że liczba parzysta jest wtedy kiedy przy dzieleniu przez 2 daje resztę równą 0. Zatem
Kod:
1
if(tablica[a] mod 2 = 0)


Reszta wydaję się być w porządku.
Góra
Utwórz nowy temat Odpowiedz w temacie  [ Posty: 4 ] 


 Zobacz podobne tematy
 Tytuł tematu   Autor   Odpowiedzi 
 free pascal - zadanie 6
Pokaż kod i zadanie, z pewnością jakiś warunek jest spełniany bez końca ...
 klaudekk  9
 Free Pascal - zadanie 4
Witam Pan z infy zadał mi abym w free pascalu napisał 2 tablice od 1 do 10 Pierwszy wiersz drugiej tablicy to kolejne sumy kolumn tablicy 1 drugi wiersz drugiej tablicy to kolejne sumy wiersza tablicy 1...
 astrodon  4
 Free Pascal
Mam pytanie : zna się ktoś na FCP ? Moim zadaniem jest napisanie programu ktoryby mówil czy dana liczba naturalna jest liczba pierwsza.Czekam na odpowiedz......
 Goja  4
 Free Pascal - zadanie 5
Witam, proszę o pomoc w napisaniu następujących programów bo nie daje rady:/:( 1. Napisać program obliczający wartość funkcji y= \frac{1}{x ^{2}-1 } dla argumentu x czytanego z klawiatury. W p...
 paulinka_89  7
 [Free Pascal] Operacje na plikach
mam do zrobienia 3 zadania z programowania nie umiem dobrze tak programować w tym wieć wracam się prośbą do was 1Napisz program który wczyta z pliku wszystkie liczby i wyświetli na ekranie ich sumę. 2Napisz program który będzie odczytywal liczby ...
 arek18  0
 [pascal] wyznacznik macierzy
witam, byłbym bardzo wdzięczny gdyby ktoś wytłumaczył mi dość wyczerpująco działanie tego algorytmu, z góry wielkie dzięki function det(stopien, wie...
 honv  0
 pascal, function, równanie kwadratowe
1. Napisz program obliczający 10 wartości równania kwadratowego dla wartości argumentu zmieniającego się od 1 do 10, w którym niezbędne obliczenia wykonywane są w bloku function. Parametry a, b, c równania kwadratowego maja być wczytywane po uruchomi...
 mateusz.ex  8
 [Turbo Pascal] Iloczyn kartezjański, równanie kwadratowe - zadanie 9
ZAD 1 Zbiory A={a,b,c} oraz B={i,j,k,l} określone sa przez tablice znaków. napisz program który wyznacza iloczyn kartezjanski zbiorów A i B zad 2 napisz przy pomocy instrukcji [tex:griyn54z...
 paula18  3
 [Pascal]-program stwierdzający powtórzenia w ciągu
Mam napisać program, który stwierdza, czy w ciągu liczb, któreś się powtarzają. Nie wiem dlaczego, mój zawsze odpowiada tak, jeśli tylko ciąg ma przynajmniej trzy wyrazy. program trzy_elementy; var tab&#58; array&#91;1&#46;&#46;1000&#...
 wozszym  2
 Pascal-schemat blokowy i rozwiązanie
Użytkownik chce wpisać ileś tam liczb. Przyporządkuj co dziesiątej liczbie numer dziesiątki(według kolejności) oraz oblicz średnia liczb z danych dziesiątek(w sensie przedziałów od 1 do 10 liczby, potem np od 11 do 20) i razem z numerem danej dziesią...
 Monikaa  1
 Procedury i pętle pascal
Witam wszystkich mam problem z zadaniami z informatyki mam napisać w TP 2 programy 1.napisz program ktory wczytuje liczby az do wystapienia zera i dzieli je na dwa podzialy : parzyste i nieparzyste . wykorzystaj do tego procedure i petle while 2.nap...
 Rastaman697  1
 [Pascal][Algorytmy] Funkcja liniowa
Witam. Mam problem z zadaniem MAIN. Otóż wynik, jaki uzyskuje za ten kod to 40/100 . Nie wiem, czy mój tok myślenia jest zły, czy po pr...
 kominekl  3
 Jak narysowac ruszające się koło w Free Pascalu ??
Potrzebuje narysować w Pascalu koło , a nastepnie przypisać tak cyfry ze np. klikajć 2 bedzie poruszać sie w prawo , 3- w lewo , 4- na dol , 5 - do gory .... NIe zna ktoś może linka gdzie moglabym znależć tego typu zadania??...
 Goja  3
 Macierz[Pascal]
mam pytanie czy ktoś może umie napisać program w PASCALU muszę napisać program o temacie macierz ortogonalna - jednostkowa jeżeli tak to proszę o pomoc...
 gosia301  4
 kasztany pascal
Witam mam takie zadanie i nie wiem jak je zrobić Napisz program, który: * wczyta ze standardowego wejścia: o liczbę dzieci , o liczbę dni zbiorów danego dziecka i liczby kasztanów zabrane w poszczególnych dniach , * dla k...
 sqwerty  1
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com