szukanie zaawansowane
 [ Posty: 4 ] 
Autor Wiadomość
Mężczyzna Offline
 Tytuł: Free Pascal
PostNapisane: 3 lut 2011, o 21: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 09: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 20: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 11: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 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
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 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
 turbo pascal tablice, wczytwywanie liczb
1. Napisz program wczytujący do tablicy A n liczb rzeczywistych (wartość n ma być podana w czasie wykonywania algorytmu) podający sumę wczytanych liczb....
 mateusz.ex  5
 Pascal - problem z dzieleniem.
Witam! Miałam zadanie napisac program, który sprawdza umiejętności dodawania, odejmowania, dzielenia, mnożenia, dzielenia całkowitego i potęgowania. Problem polega na tym, że nie wiem jak rozwiązac kwestię dzielenia. W końcu użytkownik nie jest zdoln...
 zolza_20  5
 [Pascal] Program wypisujący wyrazy z sylab
Cześć, muszę napisać program, który po wprowadzeniu trzech sylab układa z nich wszystkie możliwe 3-sylabowe słowa; czyli na przykład po wpisaniu przez użytkownika sylab: &quot;fi&quot;, &quot;zy&quot;, &quot;ka&quot; program powinien wyświetlić coś w...
 aniu_ta  5
 Pascal - operacje na napisach
Proszę mógłby mi ktoś pomóc w rozwiązaniu tego zadania ?? Piszemy jakieś zdanie i : 1) Usuń spację przed kropką 2) Dopisz spację po kropce 3) Usuń wielokrotne spacje Pliss...
 meaner  2
 [Pascal] Zadania wyliczające wartość z rozwinięcia w szereg
Proszę o pomoc w zadaniach. ZAD 1 Proszę napisać program, wyliczający wartość funkcji \sin &#40;x&#41; albo \cos &#40;x&#41; z rozwinięcia w szereg. ZAD 2 Proszę napisać program obliczający wa...
 aerow  1
 [Pascal] Drzewo BST k-rzadkie
Tak z grubsza wygląda dobrze. Lista powinna być posortowana niemalejąco, więc niepotrzebnie sprawdzasz czy c^.liczna czy c^.next^.liczba jest większe (tam brakuje kropki). Co rozwiązania bez listy: W pewnym sensie trzeba połączyć to c...
 arkadiusz992  16
 minimum i maksimum w tablicy jednowymiarowej PASCAL
Witam;) Mam do napisania program w Pascalu: Ma on wczytać tablicę 10-elementową i bez porządkowania tablicy ma znaleźć 2 najmniejsze liczby! Proszę o pomoc bo jestem trochę zielony w tym temacie! z góry serdecznie dziękuje...
 czarnys69  4
 Turbo Pascal - praca domowa stwórz tablicę
Mam prośbę mógłby mi ktoś napisać taki program w języku turbo pascal:) Stwórz tablicę na której wprowadzisz 100 liczb od 1 do 1000 zsumuj liczby podzielne bez reszty przez 3 i 5 wynik podaj poniżej...
 Rastaman697  6
 [Pascal] Program tłumaczący liczby rzymskie na arabskie
Mam problem z programem tłumaczącym liczby z zapisu rzymskiego na arabski i odwrotnie, nie rozumiem dlaczego nie działa. Czy ktoś mógłby pomóc:) program arabskie_rzymskie; uses crt; const gap =' '; type digit = 0&#46;...
 ct985  3
 [Turbo Pascal] Problem z instrukcją warunkową
Potrzebujesz umieścić grupę instrukcji w bloku. Ten w Pascalu tworzy się umieszczając fragment kodu pomiędzy BEGIN i END: for i&#58;=1 to liczbastudentow do begin if A&#91;i&#93;&#46;rokegzdyp=2013 then begin writeln ('********...
 zizu09  3
 Turbo pascal - zadanie 3
Gdy chce zapisac, aby program obliczał srednia arytmetyczna w Turbo Pascalu to piszemy tak: sr_arytm:=(a+b)/2 A jak napisac za pomoca tych symboli aby program obliczal n-potege liczby x ??...
 eerroorr  3
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com