Odpowiedz 
 
Ocena wątku:
  • 0 Głosów - 0 Średnio
  • 1
  • 2
  • 3
  • 4
  • 5
Wprowadzanie liczb całkowitych do tablicy
Autor Wiadomość
ludmila92 Offline
Początkujący
*
Użytkownik

Liczba postów: 5
Dołączył: Feb 2011
Reputacja: 0
€: 8
OS: Windows XP
Post: #1
Wprowadzanie liczb całkowitych do tablicy
Cześć mam taki mały problem mam napisać program wprowadzający liczby całkowite do tablicy liczby T i wyświetlający tylko dodatnie i napisałam tylko chyba nie do końca dobrze proszę o pomoc! Smiles
program zad33;
uses crt;
var i :integer;
const n=10;
var t:array[1..n] of integer;

procedure wczytaj;
begin
clrscr;
for i:=1 to n do
begin
writeln('podaj liczby całkowite' ,i,'.element');
readln(t[i]);
end;
end;

procedure wypisz;
begin
for i:=1 to n do write (t[i],' ');
If t[i]>0 than writeln('liczby dodatnie');
end;

begin
wczytaj;
writeln;
wypisz;
readln;
end.
24.02.2011 15:46
  Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post


WebNuLL Offline
Linux support
Junior Admin

Liczba postów: 1766
Dołączył: Sep 2009
Reputacja: 45
€: 4127
OS: Linux Gentoo
Post: #2
RE: Wprowadzanie liczb całkowitych do tablicy
Następnym razem proszę założyć nowy temat a nie prosić o pomoc w innym temacie.

-- WebNuLL

[Obrazek: 1300013385.gif]
Ubuntu (Linux dla ludzi) | Blog komputerowy | Linux Mint
24.02.2011 17:09
  Odwiedź stronę użytkownika Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post
Tiritto Offline
Pasjonat IT
*
Użytkownik

Liczba postów: 337
Dołączył: Mar 2010
Reputacja: 9
€: 367
OS: Linux Debian
Post: #3
RE: Wprowadzanie liczb całkowitych do tablicy
Jedyne co bym zmienił to:
Kod:
procedure wypisz;
begin
for i:=1 to n do write (t[i],' ');
If t[i]>0 than writeln('liczby dodatnie');
end;
na
Kod:
procedure wypisz;
begin
for i:=1 to n do If t[i]>0 than write (t[i],' ');
end;

[Obrazek: 35332.png]
Pomogłem? [Obrazek: postbit_reputation.gif] Popraw mi reputację.
25.02.2011 09:22
  Odwiedź stronę użytkownika Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post
ludmila92 Offline
Początkujący
*
Użytkownik

Liczba postów: 5
Dołączył: Feb 2011
Reputacja: 0
€: 8
OS: Windows XP
Post: #4
RE: Wprowadzanie liczb całkowitych do tablicy
dziękuję
25.02.2011 15:29
  Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post
Odpowiedz 


Skocz do:


Użytkownicy przeglądający ten wątek: 1 gości

 Wybierz styl: