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ść
przemek
Wysłany: Wto 17:33, 16 Paź 2007
Temat postu:
===>
http://www.shitsoft.net/programowanie/download.htm
<===
Tu macie Turbo Pascala jak ktoś go jeszcze nie ma.
Gość
Wysłany: Sob 12:57, 13 Paź 2007
Temat postu:
uses crt;
var tablica: array[1..10,1..10] of char;
x: char;
pozycjax, pozycjay:byte;
licznik1, licznik2:byte;
Begin
clrscr;
for licznik1:=1 to 10 do for licznik2:=1 to 10 do tablica[licznik1,licznik2]:=' ';
repeat
writeln('podaj kolumn©');
readln(licznik2);
writeln('podaj wiersz');
readln(licznik1);
tablica[licznik1,licznik2]:='X';
writeln('koniec wpisywania? t/n');
x:=readkey;
until x='t';
clrscr;
write(' ');
for licznik1:=1 to 10 do write(' ',chr(licznik1+64));
writeln;
writeln(' ÚÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄż');
for licznik1:=1 to 10 do
begin
write(licznik1);
if licznik1 < 10 then write(' ');
for licznik2:=1 to 10 do write('ł',tablica[licznik1,licznik2]);
writeln('ł');
end;
writeln(' ŔÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄŮ');
readln;
end.
Teslatroper
Wysłany: Nie 13:40, 30 Wrz 2007
Temat postu:
var tablica:array [1..3,1..3] of byte;
licznik1,licznik2:byte;
begin;
for licznik1:=1 to 3 do
for licznik2:=1 to 3 do
begin;
write('podaj liczbe do tablicy');
readln(tablica[licznik1,licznik2]);
end;
for licznik1:=1 to 3 do
begin
for licznik2:=1 to 3 do
write(tablica[licznik1,licznik2],' ');
writeln;
end;
end.
Teslatroper
Wysłany: Sob 11:24, 29 Wrz 2007
Temat postu:
przemek
Wysłany: Pią 16:15, 21 Wrz 2007
Temat postu:
I kto sie tego bedzie uczył ja juz powoli mam wyjebane na te wszystkie pierdoły :/
Maqrio
Wysłany: Pon 9:57, 17 Wrz 2007
Temat postu:
www.w06.z.pl
notatki chopa z lekcji
Gość
Wysłany: Sob 10:48, 15 Wrz 2007
Temat postu:
var a:file of byte;
x:byte;
begin;
assign (a,'x');
rewrite (a);
x:=80;
write(a,x);
x:=82;
write(a,x);
x:=79;
write(a,x);
x:=71;
write(a,x);
x:=82;
write(a,x);
x:=65;
write(a,x);
x:=77;
write(a,x);
x:=79;
write(a,x);
x:=87;
write(a,x);
x:=65;
write(a,x);
x:=78;
write(a,x);
x:=73;
write(a,x);
x:=69;
write(a,x);
close(a);
end.
Gość
Wysłany: Sob 10:21, 15 Wrz 2007
Temat postu:
var a:file of byte;
x:byte;
begin;
assign (a,'x');
rewrite (a);
x:=65;
write(a,x);
x:=76;
write(a,x);
x:=65;
write(a,x);
close(a);
end.
samuel
Wysłany: Pon 17:09, 10 Wrz 2007
Temat postu:
No tesla no to po programuj trochę, a nie ciągle na tym Mohie ze mnąszpilasz
.
Pozdro all/team W06a RuLeZ
Teslatroper
Wysłany: Pon 16:30, 10 Wrz 2007
Temat postu: Pascal- po prostu programuj
var plik:text;
s:string;
begin;
assign(plik,'cv.txt');
rewrite(plik);
s:='Jan kowalski';
writeln(plik,s);
s:='ul. Jakas13';
writeln(plik,s);
s:='dfgdfgdf';
writeln(plik,s);
close(plik);
end.
var plik:text;
s:string;
begin;
assign(plik,'cv.txt');
append(plik);
s:='Jan kowalski';
writeln(plik,s);
s:='ul. Jakas13';
writeln(plik,s);
s:='dfgdfgdf';
writeln(plik,s);
close(plik);
end.
var plik:text;
var s:string;
begin;
assign(plik,'ala.txt');
reset(plik);
readln(plik,s) wczytanie do pamieci zmiennej s z plik (pierwsza linijka)
writeln(s); wyswietlenie zmiennej s
readln(plik,s) wczytanie do pamieci zmiennej s z plik
writeln(s) wyswietlenie zmiennej s
close(plik); zamknij plik
end.
var plik,plik1:text;
s:string
begin
assign(plik,'ala.txt');
assign(plik1,'ola.txt');
rewrite(plik1);
reset(plik)
repeat;
readln(plik,s);
writeln(plik1,s);
until eof(plik);
close(plik);
close(plik1);
end.
var plik,plik1,plik2:text;
s:string;
begin
assign(plik,'ala.txt');
assign(plik1,'ola.txt');
assign(plik2,'jola.txt');
rewrite(plik2);
reset(plik);
reset(plik1);
repeat;
readln(plik,s);
writeln(plik2,s);
until eof(plik);
repeat;
readln(plik1,s);
writeln(plik2,s);
until eof(plik1);
close(plik);
close(plik1);
close(plik2);
end.
var plik,plik1,plik2:text;
s:string;
begin
assign(plik,'ala.txt');
assign(plik1,'ola.txt');
assign(plik2,'jola.txt');
rewrite(plik2);
reset(plik);
reset(plik1);
repeat;
readln(plik,s);
writeln(plik2,s);
readln(plik1,s);
writeln(plik2,s);
until eof(plik1);
close(plik);
close(plik1);
close(plik2);
end.
var plik:file of char;
s:char;
begin
assign(plik,'ala.txt');
reset(plik);
repeat;
read(plik,s);
write(s);
until eof (plik);
close(plik);
end.
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin