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
Instytut Matematyczny, Uniwersytet Wrocławski
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
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
 free pascal - zadanie 6
Pokaż kod i zadanie, z pewnością jakiś warunek jest spełniany bez końca ...
 klaudekk  9
 Pascal, równanie kwadratowe, ułamki
1. Napisz program, który sumuje dwa ułamki wprowadzone w postaci czterech liczb: licznik pierwszego, mianownik pierwszego, licznik drugiego, mianownik drugiego a nastepnie na ekranie wyświetla informację dla wprowadzonych liczb: licznik pierwszego =...
 mateusz.ex  2
 [Turbo Pascal] Wyszukiwanie najmniejszego modułu
Hej mam do napisanie program i mam z nim mały problem nie wiem jak zrobic w tym zadaniu moduł;/ oto tresc zadania: Dana jest macierz A o elementach rzeczywistych posiadająca n wierszy i m kolumn (n, m &lt;20). Napisać program wyszukiwania elementu o ...
 crymeout  2
 [Pascal] Suma i średnia liczb - zadanie 2
Hej:) Mam napisany program w pascalu który oblicza sumę i średnią liczb w wygląda on tak http&#58;//speedy&#46;sh/rvtfu/liczby&#46;exe i mam takie pytanie dlaczego niektóre zmienna w procedurze są deklarowane w nazwie c...
 anetaaneta1  1
 pascal- 2 zadania
mam 2 zadania z ktorymi nie moge sobie poradzic: 1. uzytkownik podaje ilosc liczb(np4) i wyskakuje wynik sumowania liczb od 1 do 4... 2. uzytkownik podaje imie np asia i wyskakuje imie odwrotnie napisane czyli aisa prosze o pomoc...
 xxxxx  5
 pascal, kwadrat liczby pierwszej
Mam problem z programem który wczyta dane z pliku(500 licz, max długosc 6 cyfr) i wypisze te które są kwadratami liczb pierwszych.Czy mógłby mi ktos z tym pomóc? program liczby_pierwsze; uses crt; var i,p,s,b&#58;longint; a&#58;array&...
 mateusz.ex  3
 [Pascal] Liczenie znaków
wawek91, własnie teraz jest dobrze przesyłane bo za pomocą var, a to tak jakby referencja w C++.. lutnia, po prostu nie tej zmiennej wartość wypisujesz (nie wiem czemu Ci s...
 lutnia  3
 [Pascal] Obliczenia na macierzach
Mam do zrobienia program. Jestem na pierwszym roku Matematyki. dla mnie to horror. nie mam pojecia jak go zrobić. napisalam tylko wstep:( mam to na JUż tak zwane a brzmi on: napisać program który: Będzie wykonywał następujące zadania: obliczanie su...
 Michalinka111  4
 Programowanie Turbo Pascal
Napisac program który sumuje liczby znajdujace sie na obu przekatnych dwuwymiarowej tablicy, o wymiarach podanych przez uzytkownika. Maxymalny rozmiar tablicy to 10 na 10. Wie moze ktos jak zrobic taki program...
 moczul  1
 Pascal, tablice
6. Napisz program wczytujący do tablicy A 10 dowolnych liczb naturalnych z przedziału od 1 do 10. Zadaniem programu jest wyświetlenie informacji w których elementach tablicy jest zapisana liczba 8 ....
 mateusz.ex  1
 tabliczka mnozenia pascal
Witam, otóż napisałam program obliczający tabliczke mnożenia.i teraz na podstawie wykorzystanej tam petli mam napisac program program wypełniający przy uzyciu pętli zadeklarowaną tablicę dwuwymiarową zawierającą tabliczkę mnozenia. Program powinien ...
 magdalen_e  1
 [Turbo Pascal] Określenie, czy wczytany znak jest literą - zadanie 9
Mam do napisania program w turbo pascalu który polega na tym że wpisuje jakiś znak z klawiatury i wypisuje mi czy jest to litera czy nie. Bardzo proszę o pomoc ...
 anetaaneta1  3
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [F.A.Q.] [Reklama] [Kontakt]
Copyright (C) ParaRent.com