Pomoc w napisaniu prostego programu w Pascalu.

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» XepeR 18:13 » Kilgor 18:13 » Menah 18:10 » kicior 18:06 » Carat 18:03 » zibi13 17:59 » Druzil 17:54 » DJopek 17:49 » siwydym 17:43 » mravel 17:42 » Promilus 17:37 » PeKa 17:35 » JE Jacaw 17:28 » Aeternus 17:28 » Artaa 17:27 » cVas 17:22 » slanter 17:19 » ngP 17:18 » Kenjiro 17:08 » KHot 17:08 Dzisiaj przeczytano 36897 postów, wczoraj 25433 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Pomoc w napisaniu prostego programu w Pascalu. , zeb 16/03/08 13:25
Z pascalem zakonczylem swoja przygode jakies 10 lat temu i prawie nic w glowie nie zostalo :) - praktycznie ucze sie od nowa :) Nie potrafie sobie poradzic z pewnym drobnym problem.

Oto idea:

jest sobie tablica dajmy na to 10 elementow wypeniona zerami na poczatku programu. Program losowo wybiera element tablicy i sprawdza czy jest to 0 i jesli tak ustawia element jako 1 i tak w kolo az wszystkie elementy w tablicy beda mialy wartosc 1. Problem w tym, ze jakos nie potrafie tego zaprogramowac. Zaczalem kombinowac z funkcjami, bo one zwracaja rezultaty na zewnatrz, ale nic mi z tego nie wychodzi :) Jesli ktos mialby 2 minutki wolnego czasu to z gory wielki dzieki za pomoc w tak banalnej sprawie jak sie niektorym ten problem wyda :)

Zack

tak na szybko , laciak88 16/03/08 13:37
repeat
a:=random(100);
if tablica[a]=0 then
begin
tablica[a]:=1;
for i:=1 to 10 do licz:=licz+1;
end;
until licz=10;

powinno dzialac, ale pewny nie jestem ;)
"To Alcohol! The cause of, and solution to, all of
life's problems."
1. dzieki, ale nie rozumiem jedego fragmentu , zeb 16/03/08 14:15
  for i:=1 to 10 do licz:=licz+1; - dlaczego petla jest wykonywana 10 razy ?
  Zack
  1. ooo, zakrecilem sie , laciak88 16/03/08 14:21
    zamiast petli w tej linii powinno byc samo licz:=licz+1;. Jesli warunek dla tablicy sie spelni, to dodaje jeden. A jesli cala tablica przeleci ze zmiana, to licznik bedzie mial 10 i wtedy zostanie wypuszczone z repeata. chyba o to mi chodzilo ;)
    "To Alcohol! The cause of, and solution to, all of
    life's problems."
  2. poprawione i dziala wysmienicie :) , zeb 16/03/08 14:23
    dzieki :)
    Zack
    1. prosze , laciak88 16/03/08 14:25
      ciesze sie, ze dziala :)
      "To Alcohol! The cause of, and solution to, all of
      life's problems."
podlacze sie- tez Delphi , pablo85 16/03/08 13:38
potrzebuje procedury, ktora:
pobierze dane z jednego pola edcXXX i :
1.pomnozy warotosc tego pola przez 3,6
I AM CORNHOLIO. I need T.P. for my
bunghooooole.
1. ech za szybko... , pablo85 16/03/08 13:40
  2. pomnozy wartosc wyzsza razy 1,3
  3. jest wartosc przekroczy 50000 doda 5% wartosc
  4. wartosc ostateczna pomnozy przez 1,1
  
  dzieki za pomoc
  I AM CORNHOLIO. I need T.P. for my
  bunghooooole.
2. a co to , laciak88 16/03/08 13:42
  to pole edcXXX?
  "To Alcohol! The cause of, and solution to, all of
  life's problems."
  1. hmm , pablo85 16/03/08 13:49
    pole pobierajace wartosc zapisana wczesniej w tablicy
    I AM CORNHOLIO. I need T.P. for my
    bunghooooole.
    1. pole , laciak88 16/03/08 13:52
      czyli zmienna?
      "To Alcohol! The cause of, and solution to, all of
      life's problems."
      1. namieszalem.. , pablo85 16/03/08 13:54
        w sumie to chyba wystarczy jak pobierze z tablicy dana Cena i wykonana te obliczenia na niej..
        I AM CORNHOLIO. I need T.P. for my
        bunghooooole.
      2. masz moze gg? , pablo85 16/03/08 13:59
        jesli tak to odezwij sie prosze do mnie,
        dzieki
        pozdrawiam
        I AM CORNHOLIO. I need T.P. for my
        bunghooooole.
        o cos takiego , laciak88 16/03/08 14:02
        chodzi?:
        procedure blabla (pole:real);
        var
        temp:real;
        begin
        temp:=(pole*3.6)*1.3;
        if temp>50000 then temp:=0.05*temp+temp;
        temp:=temp*1.1;
        end;
        
        jak cos innego miales na mysli, to wal na gg:2452094
        "To Alcohol! The cause of, and solution to, all of
        life's problems."
na szybko ;) , RaPToRR 16/03/08 13:43
var
const n=10;
array tab[n] of Integer;
x : integer;
pom : Boolean;
begin
while 1=1 do
begin
x:=random(n);
if tab[x]=0 then tab[x]=1;
pom:=false;
for i:=0 to n do
if tab[i] = 0 then
begin
pom:=false;
break;
end else
pom:=true;
if pom then break;
end;
end;

moga byc nalecialosci c++ bo pascala dawno nie uzywalem. Bawimy sie teraz assemblerem na zajeciach, ale fajny jezyk ;p
http://www.krzysztofwasko.pl
1. jaki procek? , myszon 16/03/08 14:06
  51? Jak tak, to zobacz sobie asm dla ARM-ów. To jest dopiero fajny język. Większość if-ów można ładnie schować w komendach :)
hmm , RaPToRR 16/03/08 13:48
nei jestem pewny czy nie powinno byc random(n-1)
http://www.krzysztofwasko.pl
1. aaaa , RaPToRR 16/03/08 13:50
  i jeszcze musi byc for i:=0 to n-1 do :)
  http://www.krzysztofwasko.pl
podepnę się , Kriomag 16/03/08 16:58
za chiny nie mogę zmusić do działania turbo pascala 7 pod windą XP :/
W okienku zamula (procek na 100%) a na pełnym ekranie przestaje działać klawa i myszka.
Zapisałem się ostatnio do cosinusa na informatykę więc potrzebuję poćwiczyć w domu, pomóżcie.
1. zainstaluj sobie delphi , laciak88 16/03/08 17:45
  przy wlaczaniu dajesz console application i piszesz tak samo jak w pascalu, tyle ze w okienkach, gdzie ctrl+c i ctrl+v dziala :D
  "To Alcohol! The cause of, and solution to, all of
  life's problems."
  1. ano , waski 16/03/08 19:06
    Tym bardziej, ze sa (przynajmniej kiedys byly) wersje Personal - darmowe do uzytku domowego.
    Albo freepascal :)
    SNAFU
    Situation Normal, All Fucked Up
    1. no jasne , laciak88 16/03/08 19:10
      gdzie tam bym pomyslal o jakiejkolwiek platnej wersji ;)
      "To Alcohol! The cause of, and solution to, all of
      life's problems."
  2. ale w okienkach mi nie pasi... , Kriomag 16/03/08 20:00
    bo teraz bawię się w 'graficzne' rzeczy (tryb textowy -> graficzne -> lol ;)).
    
    W szkole też są XP-ki a tam śmiga na fullscreenie, dlaczego u mnie nie?
    1. w koncu nie wiem , laciak88 16/03/08 20:17
      czemu ci nie pasi. nie wiem takze co jest u ciebie nie tak
      "To Alcohol! The cause of, and solution to, all of
      life's problems."
      1. hmm , Kriomag 16/03/08 20:32
        bo pisałeś o okienku widowsowym :)
        Jak uruchamiam program w delphi w trybie textowym da radę na pełnym ekranie (jak dos)? sory ale nigdy delphi na kompie nie miałem więc nie wiem :)
        hmmm , laciak88 16/03/08 21:12
        pisac mozesz na pelnym ekranie. zapewne wiesz jak wyglada konsola windosowska. delphi uruchamia program wlasnie w takiej konsoli, a jej pieknie klawiszami alt+enter mozna wlaczyc tryb pelnoekranowy
        "To Alcohol! The cause of, and solution to, all of
        life's problems."
Ucz się ucz, bo nigdy tego Pascala nie umiałeś - nawet przez chwilę. , Bart 16/03/08 18:14
To nie jest kwestia języka programowania tylko myślenia, a z tym masz najwyraźniej poważny problem.
1. co trzeba miec pod maska , JanoszW 16/03/08 18:17
  zeby napisac cos takiego?
  1. Możesz rozwinąć swoją myśl ? , Bart 16/03/08 21:36
    Można mieć np. rozgoryczenie powszechną głupotą. Każdy jakieś tam "hobby" na tym śmietniku uprawia, mniej lub bardziej sensowne. Ja np. piętnuję głupotę - bawi mnie to.
    1. a jak czesto tepisz swoja glupote ? , zeb 16/03/08 21:47
      zaistniales na forum, spelnienie swojego ego zapewne - gratuluje LOL.
      Zack