szukanie zaawansowane
 [ Posty: 4 ] 
Autor Wiadomość
Mężczyzna Offline
 Tytuł: Free Pascal
PostNapisane: 3 lut 2011, o 20: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 08: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 19: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 10: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
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
 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
 [pascal] uzywanie gotowych struktur
czesc mam taki kod: program test; uses AVL_Tree; const N = 10; type Number = ^Integer; var all &#58; TAVLTree; actual &#58;TAVLTreeNode; a,i &#58;Integer; t &#58; array&#91;1&#46;&#46;N&#93; of Integer; x &#58;N...
 kriegor  0
 pascal moduł CRT
dlaczego jak wpisuje sobie moduł CRT to mi sie pokazuje &quot;dzielenie przez zero&quot; ;/ przez to cholerstwo nie moge sobie nawet ekranu wyczyscic ;/ mieliscie moze podobne problemy ? jak to zalatwic ?...
 blost  6
 Pascal labirynt
witam, ma problem z pewnym zadaniem: musze zrobic labirynt (w trybie txt) sciany jako X i ma sie po nim poruszac jakis obiekt. Ten obiekt ma sam znalezc droge i ja jakos zaznaczyc. Labirynt juz mam ale nie moge jakos stowrzyc algorytmu, który bedzie ...
 qiotrek  3
 [pascal]wypisanie dzielników pierwszych
Jak napisać algorytm, który będzie wypisywał wszystkie dzielniki pierwsze danej liczby, ale każdy dzielnik dokładnie jeden raz? Umiem napisać algorytm, który wypisze wszystkie dzielniki pierwsze, ale np. liczbie 8 wypisze trzy dwójki....
 RSM  6
 [Pascal] Program obliczający pole trapezu i objetość kuli - zadanie 2
W tej chwili program wygląda tak: program PtVk; {$APPTYPE CONSOLE} uses SysUtils; var a,b,h,r,wybor &#58;real; const pi=3&#46;14; begin writeln('Wybierz program&#58;'); writeln('1&#58; Objetosc kuli'); ...
 Vertisan  10
 Pascal - 2 zadania z przetwarzania plików
1. Napisz program liczbyp podający lczbę w pliku liczby.dat z pozycji podanej jako argument (program sprawdza poprawność wprowadzonego argumentu tzn. nie może być on mniejszy o zaer i większy od rozmiaru pliku - dopuszcza jedynie poprawne argument...
 Fristajler_2005  0
 Turbo pascal - zadanie 6
Mógłby ktoś podać przykład programu rysującego poruszający się obiekt np.kwadrat....
 szymek12  1
 turbo pascal - zadanie 8
PROCEDURE kolo; BEGIN write('Figura geometryczna,którą wybrałeś to koło!'); delay(2000); write('Wybierz co chcesz robić dalej:'); write('1.Definicja 2. Oblicz pole koła 3.Oblicz obwód koła'); write('4.Rysunek koła...
 marta714  0
 [Pascal] funkcja sprawdzająca podzielność
var s&#58;string; i, k&#58;integer; w&#58;boolean; begin w&#58;=true; repeat readln(s); k&#58;=0; for i&#58;=1 to length(s) do k&#58;=k + ord(s&#91...
 ct985  3
 [Pascal] Sumowanie liczb
Witam, proszę o pomoc w rozwiązaniu tego zadania. Prosiłabym o całą formułkę tego zaczynając od program &#46;&#46;&#46;; , kończąc na End. Zadanie. Napisz program liczący sumę 10 kole...
 Cappuccino  4
 Turbo Pascal zadania :)
Umieszczam tu kilka zadań, zdaje sobie sprawe z tego że są one proste, ale nie dla mnie.. (można korzystać tylko pętli for, repeat until, while i if) 1.Sformuuj program wyswietlajacy kolejne potegi liczby naturalnej podanej przez uzytkownika jako pi...
 asiulka17a  4
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com