Forum Klasa W06A Strona Główna Klasa W06A
Informatyka
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Pascal- po prostu programuj

 
Napisz nowy temat   Odpowiedz do tematu    Forum Klasa W06A Strona Główna -> Ważne informacje...
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Teslatroper
Administrator



Dołączył: 29 Wrz 2006
Posty: 14
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: Katowice

PostWysł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.


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
samuel
Administrator



Dołączył: 29 Wrz 2006
Posty: 16
Przeczytał: 0 tematów

Ostrzeżeń: 0/5

PostWysł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


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Gość







PostWysł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.
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Gość







PostWysł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.
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Maqrio




Dołączył: 30 Wrz 2006
Posty: 43
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: Siemianowice Śląskie

PostWysłany: Pon 9:57, 17 Wrz 2007    Temat postu:

[link widoczny dla zalogowanych] notatki chopa z lekcji

Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
przemek




Dołączył: 15 Paź 2006
Posty: 29
Przeczytał: 0 tematów

Pomógł: 1 raz
Ostrzeżeń: 0/5
Skąd: Ruda Śląska

PostWysł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 :/

Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Teslatroper
Administrator



Dołączył: 29 Wrz 2006
Posty: 14
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: Katowice

PostWysłany: Sob 11:24, 29 Wrz 2007    Temat postu:



Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Teslatroper
Administrator



Dołączył: 29 Wrz 2006
Posty: 14
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: Katowice

PostWysł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.


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Gość







PostWysł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.
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
przemek




Dołączył: 15 Paź 2006
Posty: 29
Przeczytał: 0 tematów

Pomógł: 1 raz
Ostrzeżeń: 0/5
Skąd: Ruda Śląska

PostWysłany: Wto 17:33, 16 Paź 2007    Temat postu:

===> [link widoczny dla zalogowanych] <===
Tu macie Turbo Pascala jak ktoś go jeszcze nie ma.


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum Klasa W06A Strona Główna -> Ważne informacje... Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin