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 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
 free pascal - zadanie 6
Pokaż kod i zadanie, z pewnością jakiś warunek jest spełniany bez końca ...
 klaudekk  9
 [Pascal] Budowa trójkąta z gwiazdek
Witam mam problem z napisaniem programu w Pascalu pozwalającego na budowę trójkąta, różnoramiennego. Trójkąt równoramienny skonstruowałem bez problemu, ale algorytmu na stworzenie trójkąta różnoramiennego nie jestem w stanie wymyślić. Proszę o pomoc....
 ozzy95  7
 Pascal-losowanie Dużego Lotka
Witam. Mam napisać program w Pascal-u, zasada: losujemy dwie szóstki z zakresu od 1 do 49, w danej szóstce nie może się powtórzyć żadna liczba. Jedna szóstka (tablica 1) to liczby zwycięskie, a druga szóstka (tablica 2) to liczby typowane. Następ...
 piotrek9299  1
 Mnożenie macierzy przez skalar - pascal
Mam napisać program jak w temacie. Jak na razie mam tyle i nie mam pomysłu co tu jest źle. program mnozenie_przez_skalar; var a,w,k,i,j,m,n&#58;integer; x&#58;array&#91;1&#46;&#46;10,1&#46;&#46;10&#93; of real; begin writeln('podaj i...
 Natasha  3
 [Pascal] program liczący schematem hornera
Mam problem z programem liczącym wartość wielomianu schematem Hornera, nie wiem dlaczego nie działa? Czy mogę prosić o jakieś wskazówki? program horner; uses crt; var x&#58;real; wartosc,wynik&#58;real; function horn...
 ct985  3
 [PASCAL] macierze
Jak sumuje się macierze? Tj. mam napisać program, w którym użytkownik wpisuje dane do dwóch tablic 3x3. Następnie w trzeciej tablicy pojawiają się sumy z komórek na tych samych miejscach. Nie mam pojęcia jak się za to zabrać, do dzisiaj nie umiałam...
 jojo-49  2
 Zadnko z tablica ośmioelementową PASCAL
Napisz program, który wczytuje liczby całkowite do tablicy ośmioelementowej, a wypisuje na ekran indeks elementu z tablicy, którego wartość wynosi zero. Natomiast jeśli nie ma takiego elementu, wypisuje komunikat 'Brak elementu zerowego' Nawet troch...
 Dargi  2
 pascal, tablice, liczby nieparzyste
dzieki, działa...
 mateusz.ex  6
 pascal tablice dwuwymiarowe
witam potrzebuje pomocy w napisaniu dwóch programów 1.program sumowania dwóch tablic dwuwymiarowych 2.program mnozenia dwóch tablic załączony program oblicza sume elementow powyľej gˆownej przekĄtnej wiem ze wymaga małych poprawek aby zrobic te zadan...
 zordon1  0
 [Pascal] program geodezyjny
Mam napisać program, który będzie liczył współrzędne punktu na podstawie wcięcia kątowego + kontrole. Będę wdzięczny za jakakolwiek pomoc....
 serekdrogba  0
 [free pascal] program sprawdzający ilość par liczb...
Mam takie zadanie... Wypisz i policz wszystkie pary liczb naturalnych, których suma wynosi podaną wartość N gdzie w obu liczbach występują te same cyfry. Np. dla N=1000 545 i 455 , 500 i 500 itp. Wiem już trochę ale nie za dużo, nie wiem jak si...
 vhailor  0
 [Pascal] Mnożenie
Witam. Wyskrobałem dzisiaj taki programik w pascalu PROGRAM Tabliczka; USES Crt; VAR i,j,N&#58;Integer; BEGIN ClrScr; WriteLn ('Podaj N'); ReadLn(N); FOR i&#58;=1 TO N DO BEGIN FOR j&#58;=1 TO N DO BEGIN WiteLn(i, 'x',j,'='...
 scofi16  3
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com