[ 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 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 - 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
 [Pascal] Mnożenie macierzy
Mam problem z napisaniem programu do pomnożenia macierzy. Na początek wzięłam macierze 2x2 i 2x3, ale i tak nic mi nie wychodzi. Potrzebuje programu, który policzy iloczyn dowolnych macierzy (oczywiście jeśli da się to zrobić). Mam tyle, ale to jest ...
 Natasha  7
 [Pascal] problem z wyznaczeniem najkrótszej trasy - zadanie 2
Witam Mam napisać program, który umożliwia znalezienie najkrótszej trasy miedzy dwoma miastami. Miasta połączone są drogami o pewnej długości. Drogi są jednokierunkowe. Plik mapy dróg ma nastepujaca postac: W każdej linii podana jest jedna droga: mi...
 hipolit  3
 [Turbo Pascal] Tablice - odejmowanie wierszy
Witam, od razu zaznaczę, że nie chcę tu gotowego programu, chcę tylko wskazówki jak się w ogóle zabrać za takie zadanie. Mam podstawy z tablic, potrafię zrobić już sporą część zadanego materiału, ale te zadania po prostu mnie przerasta.. Może jest ła...
 zizu09  3
 pascal, wyswietlanie liczb nieparzystych,prosty program
mam napisac program wyswietlający w zaleznosci od wyboru liczby nieparzste od 1 do 999 lub od 1 do podanej liczby, wiem ze program jest pewnie banalny, ale ja jestem początkujący i prosze o pomoc, napisałem cos takiego : program programik; uses crt;...
 fanch  3
 pascal, tablice, liczby parzyste
2. W 10 elementowej tablicy D jest zapisanych losowo 10 nie powtarzających się liczb naturalnych z przedziału od 1 do 10. Napisz program wyświetlający informację w których elementach tablicy zapisane są liczy parzyste....
 mateusz.ex  7
 Maksimum z n liczb- Pascal
Mam zrobić program obliczjacy maksimum z n liczb. Realizacja obliczeń ma się odbyć z wykorzystaniem funkcji. A ja mam tylko taki program na minimum z n liczb, który wygląda tak: program T10_p4; uses Crt; var L_El,Min&#58;integer; znak&...
 zzuzzia93  3
 [Pascal] Program porządkujący ciąg liczb
Napisać program który porządkuje ciąg n liczb rzeczywistych od najmniejszej do największej. Sortowanie ma się odbywać w procedurze a wczytywanie i wypisanie danych w programie głównym. Program ciag; var n&#58;integer procedure sortowa...
 kalik  1
 [pascal] zapisanie treści pliku tekstowego do tablicy
Jak zapisać całą zawartość pliku tekstowego do tablicy, czy jest to możliwe?...
 dr_giggly^^  3
 program Pascal
Sprawdź, czy pierwsza litera nazwiska jest mniejsza-równa g, tak -&gt; wypisz jaki prowadzący, nie sprawdź czy mniejsza-równa p itd......
 aaleks1985  3
 [Pascal] Usuwanie lewych spacji - zadanie 2
napisałem #32 bo to wygląda dobrze, w odróżnieniu od ' ' albo ' ', gdzie jedna spacja a gdzie trzy? a ciekawym, gdzie można spotkać ' ' &lt;&gt; #32...
 oelka  7
 [Pascal] Program lotto
problem tkwi w tym że nie wiem jak wyswietlić wylosowane liczby przez komputer , program loto; const ileLiczb= 6; maxLiczba=49; type liczba=1&#46;&#46;maxliczba; tZaklad=array&#91;1&#46;&#46;ileLiczb&#93; of liczba; procedure...
 musol22  1
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com