[ 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
 tablica wypełniona literami w Turbo Pascal
witam mam napisać program... tablice 30 elementów. wypełnić losowymi literami wyświetlić ją i posortować... nie miałem jeszcze do czynienia z tablicą wypełnioną literami... mógłby mi ktoś napisać ten program abym mógł go rozkminić.... pozdro...
 tomek_g  1
 [Pascal] Losowanie liczb z przedziału 1-9
Cześć! Mam napisać program w pascalu, który będzie losował dwie cyfry z zakresu 1-9, a gdy wylosują się dwie jednakowe wartości, program ma informować o sukcesie. Jest OK ? program losowanie; uses crt; var a, b&#58; byte; Begin ...
 bogusik2  2
 [Pascal] Algorytm do programu - zadanie 2
Mam wielką prośbę mam napisany program w Turbo Pascalu i muszę napisać do niego algorytm. Nie wiem za bardzo jak to się rysuje a projekt mam oddać jutro na zaliczenie także BARDZO PROSZĘ o pomoc. program bym wysłała na pw. bo nie chciałabym żeby się...
 anetaaneta1  0
 [Pascal] Szczęśliwe Liczby Losowanie Problem
Witam, mam napisać program w Pascalu , który wygeneruje liczby losowe ( numerki dzięki którym uczniowie nie będą pytani ) i przypisze je do dni tygodnia do końca listopada za wyjątkiem sobót oraz niedziel , czyli np gdy ustawimy w zegarze systemowym ...
 Avoid  0
 Turbo pascal - zadanie 2
Mam do wykonania takie zadanie: Program wczytuje ciąg liczb tak długo aż będzie 0 i wyświetla sumę liczb parzystych i sumę liczb nieparzystych. Używając instrukcji repeat bez problemu mi to zadanie wychodzi, ale teraz mam stworzyć ten program za pomo...
 eerroorr  6
 turbo pascal/ funckje/procedury - zadanie 2
2.W zmiennych A, B, C, D. E są zapisane słowa o długości 10 znaków. Napisz kod programu obliczający w ilu słowach na pierwszej pozycji znajduje się litera a....
 mateusz.ex  1
 [pascal] program kalendarz (record)
Witam, mam do napisania na PIĄTEK program w pascalu na zaliczenie. Z racji tego ze nierozumiem zabardzo programowania to postanowilem zawitać tutaj. Otóż tak: 1. Program musi być napisany w Pascalu 2. Program musi korzystac z recordów (i wlasnie na ...
 czosnec  2
 [Pascal] Wpisz losowe liczby z zakresu..
Do dwunasto literowej tablicy Wpisz losowe liczby z zakresu od 5 do 15 .Oblicz ich sumę oraz iloczyn dwóch skrajnych elementów.Wyświetl ją....
 Myszka0707  3
 Pascal program
Siema Mam problem z programem pisze właśnie program książka telefoniczna i zawierajacy imie, miasto i numer tel. i mam problem z dodawaniem osób do książki. Program ma dodawać jedną osobe nast. powracac do menu, nastepnie mozemy dodac druga osobe ...
 kn!fe  3
 pascal program, słowa
Witam! Mam problem z jednym programem, w tablicy znajduje sie 100 słów, i mam okresli ile z nich jest takich samych. Próbowałam, ale nie wychodzi....
 wiola55  2
 [Pascal] Rekurencja wyszukująca sumy
Witam serdecznie, Mam kilka zadanek z rekurencji do rozwiązania i z jednym z nich mam problem. Prosiłbym o pomoc: Mamy daną liczbę całkowitą. W tablicy jednowymiarowej należy znaleźć n liczb, których suma jest równa danej liczbie. P...
 s0ull  7
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com