[ 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
 [Turbo Pascal] koło opisane na kwadracie, kwadrat opisany...
potrzebuję pomocy... mam zadanie zaby narysowac figure w turbo pascalu ktora wyglada nastepujaco: w środku jest kwadrat na nim opisane jest kolo, na tym kole opisany jest kwadrat, na tym kwadracie opisane jest kolo itd.... potrzebował bym pomocy ...
 bulateam89  1
 pascal, oczyt danych, zapis w tablicy
Napisz program który wczyta dane z pliku(w moim przypadku liczby) i zapisze je do tablicy....
 wiola55  0
 [Pascal] Sprawdź, czy liczba jest dodatnia - zadanie 2
Wczytaj liczbę całkowitą i sprawdź czy jest dodatnia, ujemna, czy równa 0...
 kalik  1
 [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
 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
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com