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
 [Turbo Pascal] Program obliczający wartość funkcji
Napisz program obliczający wartość funkcji f&#40;x&#41;=\frac{\sqrt{x}}{\sqrt{x+4}-2}, gdy jest to możliwe. Narysuj schemat blokowy....
 kikus13  5
 [pascal] całki
Witam, napisałem program: program progr; uses crt; var x,xp,xk &#58; real; calka,h &#58; real; function funkcja(x&#58;real)&#58;real; begin funkcja&#58;=sqr(x); end; begin clrscr; writeln('podaj...
 Tuudi  1
 [pascal] wczytywanie z pliku liczb oddzielonych spacjami
w pliku tekstowym dane maja postać np: 3 2 10 1 1 11 Potrzebuje wczytać 3 do zmiennej x1, 2 do zmiennej x2, a 10 do zmiennej r1. Napisałem to tak: type plik=TEXT; var we &#58;plik; ...
 SK8  0
 trojkat prostokątny o żądanej długości boków a =b Pascal
Mam napisać taki program. Pół dnia próbuje to zrobić i ciągle wyskakuje mi 1 błąd z komunikatem: complitation aborted. Nie wiem co to znaczy i nie umiem znaleźć błędu... Proszę o pomoc. A o to mój program: program T8; uses Crt; var ...
 zzuzzia93  3
 [Pascal] Wczytywanie znak z konsoli
Cześć, mam taki drobny problem. Nie wiem dlaczego, program w 61 linijce nie chce nic wczytywać. Po komunikacie z 60 pokazuje od razu komunikat z 62, potem po wpisaniu czegoś zamyka się. Patrzę się na to i nie widzę. program tablica; u...
 lutnia  1
 [pascal] Obrót kwadratu w okół koła i własnego środka
Witam mam zrobić animację w którym kwadrat będzie poruszał się po okręgu (załóżmy takim o środku na środku ekranu i promieniu r) no i w zasadzie z tym problemu wielkiego nie ma. Schody zaczynają się z tym że ten kwadrat ma się podczas ruchu po okręgu...
 Eoghan  4
 [Pascal] Problem z Quicksort.
Witam, mam problem z quicksortem w pascalu, program się kompiluje, ale przy próbie uruchomienia wyskakuje Stack ofverflow error. Oto kod programu: program as; uses crt; type tab=array&#91;1&#46;&#46;25&#93; of integer; var plik&#58...
 sothisguy  1
 [Pascal] Funkcja liniowa
Witam! Wie ktoś może jak bedzie wyglądał program w dev-pascal liczący funkcje liniową y=ax+1. Dodam, że musi być zastosowana pętla repeat until. ...
 wolly  3
 [Pascal] Iloczyn liczb parzystych i nieparzystych
Witam.Mam do napisania 2 programy: podajacy iloczyn wpisanych n liczb parzystych i nieparzystych.O ile zsumowaniem jeszcze jakos sobie poradziłem o tyle z mnożeniem mam problem.Mozecie podrzucic jak powinien poprawnie wygladac taki programik? pozdraw...
 AleNudy  4
 [Pascal] co to za funkcja?
Zajmuje się Pascalem, niedawno znalazłem funkcję o nazwie void Wie ktoś co to za funkcja? ...
 rObO87  3
 Turbo Pascal-system dziesiątkowy
napisać program w Turbo Pascalu, który zamienia liczby z systemu dziesiątkowego na ósemkowy i szesnastkowy i odwrotnie...
 wanilka91  3
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com