[ 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
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] Dzielniki pierwsze
Mam napisać program, który sprawdza, czy zachodzi relacja n~m dla dwóch liczb naturalnych dodatnich. Przy czym relacja n~m zachodzi o ile wszystkie czynniki pierwsze n są mniejsze od wszystkich czynników pierwszych m. Na przykład 12~175, ponieważ 12=...
 Sylwek2  2
 Turbo Pascal
Witam! chciałbym zapytac czy ktos zna jakis fajny kursik Pascala w sieci, który mógłby polecić ?? ...
 Anonymous  3
 turbo pascal - zadanie 7
1.) program sumailoczyn; var s&#58;integer; i&#58;integer; x&#58;integer; begin writeln('program oblicza iloczyn i sumę wszystkich liczb wprowadzonych kolejno przez użytkownika&#46;'); writeln('Wprowadzaj teraz po kolei liczby do progr...
 tak  1
 Progarm Lotto Turba Pascal
program lotto; uses CRT; var w&#58;array&#91;0&#46;&#46;5&#93;of integer; i,j,temp&#58;integer; b,c,d,y&#58;integer; bylo&#58;boolean; begin clrscr; writeln('Teraz zostaniesz poproszony o podanie 6 liczb z zakresu od ...
 cyrek  1
 [Pascal] Modyfikacja programu - spirala Archimedesa
Witajcie. Który element mam zmienić, aby spirala była szersza, tj. odstępy pomiędzy kolejnymi okręgami. Miałam zrobić jakieś wariacje i zrobiłam, ale te spirale są bardzo malutkie. Proszę o pomoc. program spirala; uses crt,graph; var ...
 lutnia  1
 turbo pascal - zadanie 4
Szukam informacji na temat Turbo pascala. Interesuja mnie czy mozna drukowac grafike w TP i jak ta grafike zrobic. mam klopot z biblioteka- funkcja nie wchodzi, bo nie ma jej w bibliotece. Czy mozna sciagnac gdzies w sieci TP? slyszalem ze miesci si...
 parabol  2
 [pascal]wczytywanie z pliku słów oddzielonych spacjami
Mam plik tekstowy dane1.txt z danymi w formacie: Nazwisko Imie Pesel Musze wczytać te dane do odpowiednich pól tablicy rekordów. Nie wiem jaki kod napisać bo np. wczytywanie po pojedynczym znaku do wystąpienia spacji...
 SK8  6
 [pascal] Liczenie godzin pracy
Witam. Dostałem polecenie zeby napisać program który policzy godziny pracy. Niestety nie mam pojęcia jak sie do tego zabrać. Program ma liczyc ile ktoś tam pracował ile miał przerwy itp(dokładniej sam nie wiem o co chodzi xD). Jeśli ktoś mógłby mi w ...
 0oDJo0  0
 [Pascal] Program rozpoznający wyrażenia nawiasowe.
Witam, chcę napisać program, który rozpoznaje wyrażenia nawiasowe(czy składa się z samych nawiasów '(' i ')' i czy w każdym miejscu jest niemniej nawiasów '(' niż ')', no i czy jest ich w sumie tyle samo ). Napisałem coś takiego, ale nie wiem czemu t...
 wozszym  3
 Program Turbo Pascal trudna funkcja
I w czym problem, znasz składnię pascala?...
 EyDYm  1
 [Turbo Pascal] Program mający procedury i funkcje - zadanie 9
Pascal jest na tyle prostym językiem, że bez problemu w jeden wieczór nauczysz pisać się poprawnie proste programy zawierające funkcje i procedury, problemem jest tu jedynie brak chęci. Pobierz sobie fpc, wpisz w google pascal podstawy i wio. Gwaran...
 anetaaneta1  4
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com