Klasa W06A
Informatyka
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Klasa W06A Strona Główna
->
Ważne informacje...
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
Jakaś kategoria
----------------
Ważne informacje...
Hyde Park
Przegląd tematu
Autor
Wiadomość
Gość
Wysłany: Śro 0:35, 02 Sty 2008
Temat postu: PASCAL
CZY WIE KTOS Z WAS CO TO ROBI
1)
var tabliczka: array{1..10] of byte;
licznik: byte;
begin;
for licznik:=1 to 10 do
begin
writeln<’podaj liczbę do tablicy’>;
readln<tabliczka[licznik]>;
end;
end.
2)
var tabliczka: array{1..10] of byte;
licznik: byte;
begin;
for licznik:=1 to 10 do
begin
writeln(‘podaj liczbę do tablicy”);
readln(tabliczka[licznik]);
end;
for licznik:=1 to 10 do
begin
write(tabliczka(licznik],’ ‘);
end;
end.
3)
var tabliczka: arrray[1..10] of byte;
licznik:byte
begin;
for licznik:=1 to 10 do
begin
writeln(‘podaj liczbę do tablicy’);
readln(tabliczka[licznik]);
end;
for licznik:=1 to 10 do tabliczka[licznik]:=tabliczka
[licznik]*5
for licznik:=1 to 10 do
begin
write(tabliczka[licznik],’ ‘);
end;
end.
4)
var tabliczka:array[1..20] of string;
licznik:byte;
begin;
for licznik:=1 to 20 do
begin
writeln(‘podaj liczbę do tablicy’);
readln(tabliczka[licznik]);
end;
for licznik:=1 to 20 do
begin
write(tabliczka[licznik],’ ‘);
end;
end.
5)
uses crt;
var tabliczka:array{1..100] of string;
licznik:byte;
x:char;
begin;
ctrscr;
licznik:=1;
repeat;
writeln(‘wprowadz literę lub cyfrę’);
readln(tabliczka[licznik]);
inc(licznik);
write(‘konczyc już t/n’);
x:=readkey;
until(x=’t’);
clscr;
zapis tablicowy
uses crt
var tablica:array[1..3,1..3]of byte;
licznik1:byte;
licznik2:byte;
begin
clsscr;
for licznik1:=1 to 3 do
for licznik2:=1 to 3 do
begin
writeln(‘podaj liczbę x [‘, licznik1, ‘,’, licznik2, ‘]:’);
readln(tablica[licznik1,licznik2];
end;
for licznik 1:=1 to 3 do;
write(tablica[licznik1,licznik2],’ ‘);
writeln;
end;
end.
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin