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 program zwiazany z macierza
witam mam dio napisania taki program W macierzy kwadratowej o rozmiarze podanym przez użytkownika znaleźć element o naj­większej wartości bezwzględnej, a następnie utworzyć macierz o rozmiarze o jeden mniejszym, przez usunięcie wiersza i kolumny...
 ketchup14  1
 [Pascal] Tablica liczb całkowitych
Utworz 100 tablicre liczb typu integer. KOmorkom o indeksach 10,20,\ldots,90 przypisz wartośc 0. Komórkom 1,11,21,\ldots,92 wartosc [t...
 gorbi007  1
 [Pascal] Sprawdzenie zadania
Co zwróci ten program: program ile; var i&#58;integer; procedure drukuj; begin for i&#58;=1 to 4 do writeln(i) end; begin for i&#58;=1 to 2 do begin drukuj; end; end&#46; Zdaje mi się, że &quot;iii&quot;...
 edaro  2
 turbo PASCAL...
cześć! MAM PYTANIE:) Gdzie w internecie mogę znaleźć coś w stylu kursu programu TURBO PASCAL???? chodzi mi o jakąś &quot;dobrą&quot; stronę, na której są podstawy prog. i coś więcej (bez błędów i jakiś głupot....)...
 licealista  1
 [Pascal]Palindromy - wyszukiwanie
var s&#58;string; f&#58;text; begin if paramcount&gt;0 then begin // jeżeli zawołasz program z parametrem assign(f, paramstr(1)); // to potraktuje go jako nazwę pliku reset (f); end else f&#58;=input; // ...
 drakoo  5
 [Pascal] program liczący wariancję pascal
problem z wariancją w pascalu program wariarncja; uses crt; function silnia (n&#58;integer)&#58;integer; begin writeln('podaj n'); readln(n); if (n=0) or (n=1) then silnia&#58;=1 else silnia&#58;= silnia(n-1)*n; end; function silniam (...
 musol22  3
 Programowanie - Pascal - Program z odczytu pliku
Mam do wykonania takie zadanie o nastepującej treści: Napisz progrqam znaki, który poda ilość znaków występujących w pliku tekstowym o podanej nazwie. (funkcja zwracająca długość łańcucha tekstowego to LENGTH(ciag). Program sprawdza poprawność wprow...
 Fristajler_2005  1
 programowanie-pascal
Mam do napisania w Pascalu taki program: Użytkownik podaje n liczb. Jeżeli n>10 ma się wyświetlić komunikat &quot;sprzeczność&quot;. Jeżeli n...
 xxxxx  4
 Macierz odwrotna do kwadratowej 2x2[pascal]
Napisałam program w pascalu, jak w temacie, ale nie liczy poprawnie macierzy odwrotnej: program macierz_odwrotna_2x2; var i,j&#58;integer; A,B,C&#58;array&#91;1&#46;&#46;2,1&#46;&#46;2&#93; of real; begin for i&#58;=1 to 2 do for j&#...
 Natasha  3
 [Pascal] program liczący ilość małych liter w pliku
Mam problem z programem liczącym ilość małych liter w pliku: program ilosc_malych_liter; uses crt; var p&#58;text; function ilosc(var plik&#58;text)&#58;integer; var l&#58;integer; znak&#58;char; begin while not ...
 ct985  1
 2zadania z informatyki(pascal)
Zadanie1: Dana jest liczba k typu Word. Napisz program, który wyznaczy sume liczb naturalnych ze zbioru {0,1,...,k}. (pętla For To Do) help Zadanie2: Dane są liczby naturalne: n i k typu Byte. Napisz program, który wyznaczy wartość potęgi Nk(n do ...
 GT4R  5
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com