Klasa W06A :: Przegląd tematu - Pascal- po prostu programuj

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 Razz

.

Pozdro all/team W06a RuLeZ

Teslatroper

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.