TURBO PASCAL

w.ch [ Chor��y ]

cholercia widze ze chyba nikt się nie podejmie kurde szkoda ehh ale poczekam jeszcze

@$D@F [ Generaďż˝ ]

jaki test ? gdzie ty teraz jestes ?

w.ch [ Chor��y ]

jestem w szkole na tescie do konca testu została godzina do 15 00 mam czas na napisanie programu jak nie napisze oblałem :( temu mi zalerzy przed chwilą ktos napisał program dla mojego kumpla myslalem ze moze ktos mi pomoze serio potrzebuje tego a w turbo pascalu wogule się nie znam

Narmo [ nikt ]

@$D@F -->

29.01.2006 | 12:41 w.ch [ Legionista ]

ty to wez napisz chociaz troche poczatku
jestem na egzaminie i tylko forum jest moja nadzieja....

w.ch [ Chor��y ]

JAK KTOS TO UMIE TO MOZE NIECH COS ZROBI KOLWIEK

@$D@F [ Generaďż˝ ]

przez generowanie rozumiem losowanie liczb, tylko ze z tym -2 jest problem bo nie wiem jak to zapisac...

w.ch [ Chor��y ]

TO JAK MOZESZ ZRUB TYLE ILE MOZESZ MI CHODZI TYLKO ABY ZALICZYC JA I TAK Z TYM NIC WIĘCEJ WIĄZAĆ NIE BENDĘ PROSZE MAŁO CZASU MI ZOSTASŁO

Lukxxx [ Pretorianin ]

ja tam gowniarzowi podpowiadac nie bede, jak sie nie uczy to jego problem :)

ale losowanie liczby z przedzialu <-2;100> to najlatiwej:

naszazmiennatablicowa [indeks] := Random (103) - 2

i juz bedzie

w.ch [ Chor��y ]

Serio jak mozesz stary to weś pomuz coś kolwiek to moze baba mi zaliczy bo jak ty nie pomozesz to nie wiem co lipa na maxa jak byś mugl napisz tyle ile umiesz pliss

w.ch [ Chor��y ]

Chopie nie mów tak kurde co ja zrobie ze nie umiem turbo pascala nie moja wina akurat tego nie umiem więc się nie nabijaj w czasie kiedy miałem zjazd i omawialismy przez 2 dni turbo pascala byłem u kolezanki na pogrzebie wienc to nie jest smieszne a notatki mam ale co z tego jak nie wiem co to znaczy

29.01.2006

14:27

[13]

@$D@F [ Generaďż˝ ]

nie ma tylko komunikatu ze nie ma takiej liczby w tablicy
spradz czy dziala


program prog1;
const m=12
var
MT: array [1..m] of integer;
x,i: integer;

procedure szukanie;
begin
for i:=1 to m do
begin
if MT[i]=x then
writeln ('liczba ',x,'znajduje sie na ',i,' pozycji');
end;
end.

procedure losowanie;
begin
randomize;
for i:=1 to m do
begin
MT[i]:=random(100)-2;
end;
end.

begin
losowanie;
szukanie;
end.

@$D@F [ Generaďż˝ ]

blad jest czekaj

29.01.2006

14:30

[15]

@$D@F [ Generaďż˝ ]

teraz chyba dobrze, zapomnielem zapisac zmiany


program prog1;
uses crt;
const m=12;
var
MT: array [1..m] of integer;
x,i: integer;

procedure szukanie;
begin
for i:=1 to m do
begin
if MT[i]=x then
writeln ('liczba ',x,'znajduje sie na ',i,' pozycji');
end;
end;

procedure losowanie;
begin
randomize;
for i:=1 to m do
begin
MT[i]:=random(100)-2;
end;
end;

begin
losowanie;
szukanie;
for i:=1 to m do
writeln (MT[i]);
repeat until keypressed;
end.

Narmo [ nikt ]

@$D@F --> Zmieniłbym:
MT[i]:=random(100)-2;

na:
MT[i]:=random(102)-2;

Wtedy zakres faktycznie będzie od -2 do 100 a nie do 98 :)

Lukxxx [ Pretorianin ]

albo dobra zlituje sie nad gowniarzem :)

program test;

const m = 12;

type Index = 1..m;
MT = array [Index] of Integer;

procedure GenerujTablice (var Tab : MT);
var i : Index;
begin
For i:=1 to m do
Tab := Random (103) - 2
end;

function ZnajdzLiczbe (Tab : MT; Liczba : Integer; var indeks : Index) : Boolean;
var i : Index; Kontynuowac : Boolean;
begin
ZnajdzLiczbe := False;
i := 1;
Kontynuowac := i <= m;
While Kontynuowac do
begin
IF Tab = Liczba Then
begin
Kontynuowac := False;
ZnajdzLiczbe := True;
Indeks := i
end
Else
begin
Inc (i);
Kontynuowac := i <= m;
end
end
end;


var Tablica : MT; Liczba : Integer; i : Index;
begin
GenerujTablice (Tablica);
WriteLn ('Podaj liczbe jaka chcesz szukac');
ReadLn (liczba);
IF ZnajdzLiczbe (MT, Liczba, i) Then
WriteLn ('znaleziono liczbe pod indeksem ', i)
Else WriteLn ('nie znaleziono liczby');
WriteLn ('prosze wcisnac enter');
ReadLn
end.

Kijano [ Generaďż˝ ]

czlowieku to ktory masz program napisac ?

29.01.2006

14:41

[20]

@$D@F [ Generaďż˝ ]

Narmo - fakt, mialem tak napisac :)

moj program nie ma opcji wpisania liczby do szukania !

Lukxxx [ Pretorianin ]

Narmo ->

@$D@F --> Zmieniłbym:
MT:=random(100)-2;

na:
MT:=random(102)-2;

Wtedy zakres faktycznie będzie od -2 do 100 a nie do 98 :)

niestety w Twojej wersji bedzie od -2 do 99 :)

Random (n) to taka funckja ktora zwraca liczby z zakresu 0..n-1, wiec aby miec -2..100 trzeba uzyc random (103) - 2 :)

29.01.2006

14:52

[23]

@$D@F [ Generaďż˝ ]

ja przewaznie daje jak cos pisze aby wiedziec cz dziala :)