materiały

PAWEL · starszy bosmanmat

Witam umieszczam kurs turbo pascala jaki wygooglalem na necie.
Kurs jest w postaci html. Kurs jest napisany prostym jezykiem i przeznaczony dla początkujących. POzdrawiam

typniepokorny86 · Administrator

eeeeeeeeeeee, widzi ktoś, coś, gdzieś

PAWEL · starszy bosmanmat

Witam no niesttey forum nie obsluguje doł plików proponuję podac mi maile a ja wyślę to co posiadam .Pozdrawiam

myyrek · starszy bosman

Może ktoś napisac jakie były programy na kolejnych zajęciach (po ilorazie i tabelce)??
Jak by ktos miał problem z pierwszymi dwoma (iloraz i tabelka) to moge je podesłać.

chałabała · komandor podporucznik

Mam wszystkie programy, które do tej pory robiliśmy. Poniżej zamieszczę je w formie tekstowej. Wystarczy je otworzyć w turbo pascalu i zapisać z rozszerzeniem *.pas Tylko zwróćcie uwagę na ścieżkę dostępu do plików źródłowych. Trzeba sobie je stworzyć i odpowiednią ścieżkę wpisać.

chałabała · komandor podporucznik

Program Arytm01;

var a,b,iloczyn,suma,iloraz,roznica:real;
var i,n;
var plik1,plik2:text;
begin
Assign(plik1,'e:\aj\laborki\d_aryt01.txt'); Reset(plik1);
Assign(plik2,'e:\aj\laborki\w_aryt01.txt'); Rewrite(plik2);

Read(plik1,a,b);
suma:=a+b;
iloczyn:=a*b;
roznica:=a-b;
Writeln(plik2,'Program arytm 01');
Writeln(plik2,'================');
Writeln(plik2);
Writeln(plik2,'liczba a=',a:10:4);
Writeln(plik2,'liczba b=',b:10:4);
Writeln(plik2);
Writeln(plik2,'suma a+b=',suma:10:4);
Writeln(plik2);
Writeln(plik2,'iloczyn a*b=',iloczyn:10:4);
Writeln(plik2);
Writeln(plik2,'roznica a-b=',roznica:10:4);
Writeln(plik2);
if b=0 then
writeln(plik2,'iloraz a/b = brak wyniku')
else
begin
iloraz:=a/b;
writeln(plik2,'iloraz a/b =',iloraz:10:4);
end;
Writeln(plik2,' a b suma roznica iloczyn iloraz');

if b=0 then
Writeln(plik2,' ',a:10:4,' ',b:10:4,' ',suma:10:4,' ',roznica:10:4,' ',iloczyn:10:4,' brak wyniku')
else
Writeln(plik2,' ',a:10:4,' ',b:10:4,' ',suma:10:4,' ',roznica:10:4,' ',iloczyn:10:4,' ',iloraz:10:4);
close(plik1); close(plik2);

end.

chałabała · komandor podporucznik

Program suma01;

var a,b,iloczyn,suma:real;
var plik1,plik2:text;
begin
Assign(plik1,'e:\aj\laborki\d_suma01.txt'); Reset(plik1);
Assign(plik2,'e:\aj\laborki\w_suma01.txt'); Rewrite(plik2);

Read(plik1,a,b);
suma:=a+b;
iloczyn:=a*b;
Writeln(plik2,'Program suma 01');
Writeln(plik2,'================');
Writeln(plik2);
Writeln(plik2,'liczba a=',a:10:4);
Writeln(plik2,'liczba b=',b:10:4);
Writeln(plik2);
Writeln(plik2,'suma a+b=',suma:10:4);
Writeln(plik2);
Writeln(plik2,'iloczyn a*b=',iloczyn:10:4);
Writeln(plik2);
Writeln(plik2,' a b suma iloczyn');
Writeln(plik2,' ',a:10:4,' ',b:10:4,' ',suma:10:4,' ',iloczyn:10:4);

close(plik1); close(plik2);

end.

chałabała · komandor podporucznik

Program Tabela01;

var a,b,iloczyn,suma,iloraz,roznica:real;
var i,n:integer;
var plik1,plik2:text;
begin
Assign(plik1,'e:\aj\laborki\d_tab01.txt'); Reset(plik1);
Assign(plik2,'e:\aj\laborki\w_tab01.txt'); Rewrite(plik2);

Read(plik1,n);
Writeln(plik2,'Program Tabela01');
Writeln(plik2,'================');
Writeln(plik2,' Lp. a b suma roznica iloczyn iloraz');
for i:=1 to n do
begin
readln(plik1,a,b);
suma:=a+b;
iloczyn:=a*b;
roznica:=a-b;
if b=0 then
Writeln(plik2,i:10,' ',a:10:4,' ',b:10:4,' ',suma:10:4,' ',roznica:10:4,' ',iloczyn:10:4,' brak wyniku')
else
begin
iloraz:=a/b;
Writeln(plik2,i:10,' ',a:10:4,' ',b:10:4,' ',suma:10:4,' ',roznica:10:4,' ',iloczyn:10:4,' ',iloraz:10:4);
end;
end;

writeln(plik2,'koniec i bomba, kto nie pije ten traba');
close(plik1); close(plik2);

end.

chałabała · komandor podporucznik

Program Tabela02;

var a,b,iloczyn,suma,iloraz,roznica:real;
var i,n:integer;
var plik1,plik2:text;
begin
Assign(plik1,'e:\aj\laborki\d_tab02.txt'); Reset(plik1);
Assign(plik2,'e:\aj\laborki\w_tab02.txt'); Rewrite(plik2);

Writeln(plik2,'Program Tabela01');
Writeln(plik2,'================');
Writeln(plik2,' Lp. a b suma roznica iloczyn iloraz');
i:=0;
while not EOF(plik1) do
begin
i:=i+1;
readln(plik1,a,b);
suma:=a+b;
iloczyn:=a*b;
roznica:=a-b;
if b=0 then
Writeln(plik2,i:10,' ',a:10:4,' ',b:10:4,' ',suma:10:4,' ',roznica:10:4,' ',iloczyn:10:4,' brak wyniku')
else
begin
iloraz:=a/b;
Writeln(plik2,i:10,' ',a:10:4,' ',b:10:4,' ',suma:10:4,' ',roznica:10:4,' ',iloczyn:10:4,' ',iloraz:10:4);
end;
end;
writeln(plik2,'koniec i bomba, kto nie pije ten traba');
close(plik1); close(plik2);

end.

chałabała · komandor podporucznik

Program Tabela03;

var a,b,iloczyn,suma,iloraz,roznica:real;
var i:integer;
var plik1,plik2:text;
begin
Assign(plik1,'e:\aj\laborki\d_tab03.txt'); Reset(plik1);
Assign(plik2,'e:\aj\laborki\w_tab03.txt'); Rewrite(plik2);

Writeln(plik2,'Program Tabela03');
Writeln(plik2,'================');
Writeln(plik2,' Lp. a b suma roznica iloczyn iloraz');
i:=0;
repeat
begin
i:=i+1;
readln(plik1,a,b);
suma:=a+b;
iloczyn:=a*b;
roznica:=a-b;
if b=0 then
Writeln(plik2,i:10,' ',a:10:4,' ',b:10:4,' ',suma:10:4,' ',roznica:10:4,' ',iloczyn:10:4,' brak wyniku')
else
begin
iloraz:=a/b;
Writeln(plik2,i:10,' ',a:10:4,' ',b:10:4,' ',suma:10:4,' ',roznica:10:4,' ',iloczyn:10:4,' ',iloraz:10:4);
end;
end;
until EOF(plik1);
writeln(plik2,'koniec i bomba, kto nie pije ten traba');
close(plik1); close(plik2);

end.

typniepokorny86 · Administrator

wielki dzieki, sie przydadzą na laborki

lalala · porucznik marynarki

wyslijcie mi to z pascala [link widoczny dla zalogowanych]

myyrek · starszy bosman

Program int01;

var x1,x2,y1,y2,x,y : Real;
var plik1,plik2 : Text;
var i: integer;
begin
Assign(plik1,'D:\1\03\D_int01.txt'); Reset(plik1);
Assign(plik2,'D:\1\03\W_int01.txt'); Rewrite(plik2);

Writeln(plik2,'Program int01');
writeln(plik2);
Writeln(plik2,'=================');
writeln(plik2);

for i:=1 to 4 do readln(plik1);

Readln(plik1,x1,x2,y1,y2,x);
if (x>=x1) and (x<=x2) then

begin
y:=y1+(x-x1)*((y2-y1)/(x2-x1));
Writeln(plik2,'danew wej˜ciowe:');
writeln(plik2,' ','x1',' ','x2',' ','y1',' ','y2',' ','x');
writeln(plik2,x1:2:2,' ',x2:10:2,' ',y1:10:2,' ',y2:10:2,' ',x:10:2);
writeln(plik2);
writeln(plik2,'szukana warto˜† to:');
writeln(plik2,'y=',y:3:2);
end
else
begin
writeln(plik2,'BˆĄd w pliku danych. Sprawd« czy warto˜† zmiennej x nie jest mniejszy od warto˜ci x1 lub wi©kszy od x2');
end;

Close(plik1); Close(plik2);
end.

chałabała · komandor podporucznik

Program interpolacja02;
function intlin1(a,a1,a2,b1,b2:real):real;
begin
intlin1:=b1+(a-a1)*((b2-b1)/(a2-a1));
end;

var plik1,plik2 : Text;
var x1,x2,y1,y2,x,y : Real;
var i: integer;
begin
Assign(plik1,'d:\aj\laborki\d_int2.txt'); Reset(plik1);
Assign(plik2,'d:\aj\laborki\w_int2.txt'); Rewrite(plik2);

Writeln(plik2,'Program int02');
Writeln(plik2,'=================');
writeln(plik2);

for i:=1 to 4 do readln(plik1);

Readln(plik1,x);
Readln(plik1,x1,y1);
Readln(plik1,x2,y2);
if (x1=x2) then
Writeln(plik2,'Blad w danych: x1=x2')
else
begin

if (x>=x1) and (x<=x2) then
begin
y:=intlin1(x,x1,x2,y1,y2);
Writeln(plik2,'dane wejsciowe:');
writeln(plik2,'x= ',x:10:2);
writeln(plik2,'x1=',x1:10:2,' y1=',y1:10:2);
writeln(plik2,'x2=',x2:10:2,' y2=',y2:10:2);
writeln(plik2);
writeln(plik2,'szukana wartosc to:');
writeln(plik2,'y=',y:10:2);
end
else
begin
writeln(plik2,'Blad w pliku danych.');
writeln(plik2,'wartosc zmiennej x powinna byc: x1<=x<=x2');
end;
end;
Close(plik1); Close(plik2);
end.

chałabała · komandor podporucznik

Dane takie same jak w Int 01