www.bzwsti.fora.pl

Magmar

Podobno miał być wstawiony gotowiec z zaliczenia tego popierdolonego gościa ??? Jakoś go nie widze Może by go ktoś łaskawie wstawił.
I druga spraw Simiński podał strone do ściągnięcia materiałów albo mam coś żle przepisane albo to dalej nie działa
[link widoczny dla zalogowanych]

noiserelations

Zamiast myślnika, ma być tylda. Oto poprawny adres:
[link widoczny dla zalogowanych]

maciek_eng

Jeśli ktoś chętny do rozwiązania to prosze sie nie opierać Smile

i wczyscy czekamy na szybka odpowiedź Smile

Z góry dzieki:)Nie obiecuje ze bedzie to samo no ale zawsze warto spróbowac:)
[link widoczny dla zalogowanych]

Magmar

Wielkie dzięki Smile

Niestety "Plik o podanym ID nie istnieje"

TheViP

Oj medyk ...

[link widoczny dla zalogowanych]

;]

Spychu

[link widoczny dla zalogowanych] tu jest all w 2 przykładzie tylko trzeba nanieść poprawki Smile

Magmar

No to tak mają wyglądać odpowiedzi po licznych konsultacjach Smile

Miejmy nadzieje, że ten pierdoła "HELP" nie wpadnie na to by dać coś innego

begin

P I 1= 9; 2= (i+1)*2; 3- (i*2)+1;
PII 1= 1..2; 2= 1..3; 3= 2; 4= 3; 5= a[r,c]
PIII 1= real; 2= Fahrenheit; 3= 3:2; 4= round; 5= readln
PIV 1= const; 2= string; 3= Nazwa pliku; 4= F; 5= repeat
6= F; 7= wiersz; 8= " ; 9= close;
end
Smile

)).
No i jutro mamy z głowy Smile

)).

Spychu

znając go

wpadnie

ale trudno sie mówi żyje sie dalej Smile

thx za poprawki Smile

Kuku

Jak wpadnie jutro ten gotowiec to stawiam flakona Smile

)) niejednego :p

noiserelations

pochwalony Very Happy

Spychu

Tak od wypadku jak by to miało być i to Smile

i można by było ew korzystać z kompów jak na ostaniej kartkówce :
program zadanie1;
uses crt;
var
i : Byte;
begin
clrscr;
for i:=0 to 9 do
write((i+1)*2,' ');
readln;
for i:=0 to 9 do
write((i*2)+1,' ');
readln;
end.

program p2;
uses crt;
var
r,c : Integer;
a: array[0..1,0..2] of Integer;
begin

P I 1= 9; 2= (i+1)*2; 3- (i*2)+1;
PII 1= 1..2; 2= 1..3; 3= 2; 4= 3; 5= a[r,c]
PIII 1= real; 2= Fahrenheit; 3= 3:2; 4= round; 5= readln
PIV 1= const; 2= string; 3= Nazwa pliku; 4= F; 5= repeat
6= F; 7= wiersz; 8= " ; 9= close;
end

program p3;
{Zamienia stopnie w skali Fahrenheita na skal© Celcjusza }
Var
Celsjusz, Fahrenheit: Real;
Begin
WriteLn;
WriteLn( 'Stopnie Fahrenheita na Celsjusza' );
Write( 'Temperatura w st. F: ' );
ReadLn(Fahrenheit);
Celsjusz := ( 5.0 / 9.0 ) * ( Fahrenheit - 32.0 );
WriteLn( 'Temperatura w st. C z dokˆadno˜ciĄ do 2 miejsc po przecinku: ', Celsjusz:3:2);
WriteLn( 'Temperatura w st. C zaokrĄglona: ', round(Celsjusz));
WriteLn( 'Nacisnij Enter by zakonczyc program...' );
ReadLn;
;
End.

program p4;
{ Program przepisujĄcy tekst wprowadzany przez
uľytkownika }
{ do pliku tekstowego WPROW.TXT, aľ do
napotkania pustego }
{ wiersza. }
USES
CRT,DOS;
CONST
NazwaPliku = 'WPROW.TXT';

var
F : Text;
Wiersz : String;

Begin

Assign (F, NazwaPliku);
Rewrite (F);

repeat

Readln (Wiersz);
if Wiersz<>'' then
Writeln (F,Wiersz);
until Wiersz ='';
Close(F);

end.

Kuku

pochwalam pochwalonego Smile

Spychu

proponuje współrace na forum albo Smile

zrobic w czasie kolosa przez netmeeting Smile

czata