Anonymní profil Michal – Programujte.com

+ naopak,,,prevod z 2jkovej do 10tkovej,,,,je to vporiadku ? či sa tam dá niečo aj vylepšiť ? 

program Project1;
uses crt;
var cislo:string ; //dvojkove
    i,d:longint;   //
    a:integer;
begin
  writeln('Zadaj cislo vo dvojkovej sustave ');
  delay(1500);
  clrscr;
  read(cislo); //Dvojkové číslo
  writeln('Zadali ste cislo : ',cislo);
  d:=length(cislo);
  a:=0;
  for i:=1 to d do
      begin
        if cislo[i]='0' then a:=2*a
                        else a:=2*a+1;
      end;
  writeln(cislo, 'v dvojkovej sustave je  ', a ,'  v desiatkovej');
 readkey;
end.
       

Už to mááám :D 
chcem sa len pocvhálit :) 

program Project1;
uses crt;
var
  ans:string;
  a,c:integer;
  b:char;
begin
 writeln('Zadajte cislo ');
 read(a);
 clrscr;
 if a=0 then write ('0 v desiatkovej = 0 v dvojkovej')
    else
 writeln('Zvolili ste si cislo: ', a);
 readln;
 writeln('Cislo bude prevedene do desiatkovej sustavy. ');

 ans:='';
         repeat
               c:=(a mod 2);
               if c>0 then ans:=('1'+ans)
               else ans:=('0'+ans);
         a:=(a div 2);
         writeln(ans);
         until a<2 ;

 //writeln(ans);

 readkey;
end.
                    

Ahojte, chcel by som urobiť prevod z 10tkovej do dvojkovej...čítal som si tu už nejaké príspevky a mám už predstavu.....no neviem presne či to je správne,,,,,
Chcem spraviť repeat cyklus kde sa bude ako prvé deliť zo zvyškom napr. už spomínané číslo 123 - to si dám ako premennú "a" a to budem deliť - modom,,,,, mod zo zvyškom,,,no neviem ako ten zvyšok zapisovať,,,,kam a ani ako ho zapisovať ? :( no a keď tento najdôležitejší zapís budem mať,,,spravím dalšie delenie a to bez zvyškové,,,,teda príklad,,,,,,,,123:2= 61,,,potom 61:2= 30 a tak,,,,,,a skončí to "until a<2" helpenete mi ako to mám zapísať tie zvyšky do nejakej premennej ? 

Ahojte :) No dakujem :) mám to takto 

program project1;
uses crt;
 var x,y:integer;
     ch:char;
begin

x:=40; y:=13;
gotoxy(x,y);
write('HIHI');

repeat
ch:=ReadKey;
  case ch of
	'a' : begin; clrscr; x:=x-1; gotoxy(x,y); if x<1 then x:=1; write('HIHI'); end; //dolava
	'd' : begin; clrscr; x:=x+1; gotoxy(x,y); if x>80 then x:=80; write('HIHI'); end; //doprava
	'w' : begin; clrscr; y:=y-1; gotoxy(x,y); if y<1 then y:=1; write('HIHI'); end; //hore
	's' : begin; clrscr; y:=y+1; gotoxy(x,y); if y>25 then y:=25; write('HIHI'); end; //dole
        end;
until   ch='p'; //nejak to ukončit,,,neviem ako (unsure)
clrscr;
x:=40; y:=13;
gotoxy(x,y);
write('MUHAHA');
readln;
end.

Ahojte, prosím vás toto som bol schopný polepiť ako tak sám, mohli by ste mi pomôcť, potrebujem spraviť program v ktorom budem môcť hýbať hviezdičkou po obrazovke a ovládať ich šípkami :/ 
 

program project1;
uses crt;
var f:text;
a:array[1..100] of char;
i,pocet,x,y:integer;
procedure nacitanie;
var i:integer;
begin
assign(f,'subor');
reset(f);
while not eof(f)do
  begin
  inc(i);
  read(f,a[i]);
  end;
pocet:=i;
close(f);
end;
procedure vypis;
var i:integer;
begin
for i:=1 to pocet do
write(a[i]:2);

end;
begin
nacitanie;
vypis;
x:=20; y:=12; gotoxy(x,y); write('*');
for i:=1 to pocet do
begin
case a[i] of
'H': dec(y);
'D': inc(y);
'L': dec(x);
'P': inc(x);
'Q': begin dec(y); inc(x); end;
'W': begin dec(x); inc(y); end;
'E': begin inc(y); dec(x); end;
'R': begin inc(x); dec(y); end;
end;
gotoxy(x,y); write('*'); delay(50);
end;
end.          

Veľmi vás prosím o pomoc pri týchto úlohách.

úloha č.1 - výťah 
-načítajte zo súboru vytah.txt hmotnosti ludí, ktorí čakajú pred výťahom 
-vypíšte prehľadne tieto hmotnosti na obrazovku a načítajte z klávesnice nosnosť výťahu 
ňprogram zistí a vypíše, koľko ľudí sa zmestí do výťahu (tak, aby nepresiahli nosnosť)
koľko majú spolu kíl tí, ktorí sa zmestia do výťahu
a koľko kíl chýba do nosnosti výťahu
(vo výťahu idú ľudia spravodlivo-podľa poradia v súbore) 

úloha č.2 - čísla 
-zo súboru telefeon.txt načítajte priezvisko, mobilné číslo a pevnú linku daného človeka, prípadne, že nemá pevnú linku. Aké typy premenných použijtete navrhnite sami (pozrite sa najprv do súboru, akým štýlom sú dané údaje zapísané)
-zapíšte do súboru zoznam.txt prehľadne priezvisko, číslo mobilu a číslo pevnej linky, príp. že nemá pevnú linku(do jedného riadku)
-vypíšte na obrazovku priezviská tých, ktorí nemajú pevnú linku, aj ich počet
-načítajte z klávesnice mobilné číslo a vypíšte príslušné priezvisko, resp. hlášku, že žiadny človek nemá takéto telefónne číslo 
-doplnte kontrolu, aby zadané mobilné číslo bolo správne(desať cifier, prvé dve "09")

Dobrý deň, 
ano je to tak, nepopieram, bude to tým, že neviem základy jazyka,,,ale ja by som potreboval pomôcť teraz ráno s príkladmi :/ Do mája sa to budem musieť ajtak doučiť,,,ale teraz mám o 2 týždne maturity a nemôžem sa sústrediť na programovanie, ktoré mám až v máji. :/

#2 ezlife

No,,,,takéto niečo,,,Ja nechápem napríklad : 

1. prečo je tam "pocet :=0"
2. tomuto : "tovar[pocet]:=tovar[pocet]+znak"
3. tomuto už vôbec : writeln(tovar[i]:10,kus[i]:5,cena[i]:8:2

program project1;
uses crt;
var f,g:text;
    tovar:array[1..100] of string;
    kus:array[1..100] of integer;
    cena:array[1..100] of real;
    pocet:integer;

procedure nacitanie;
var znak:char;
begin
  pocet:=0;
  while not eof(f) do
    begin
      inc(pocet);
      read(f,znak);
      while znak<>#32 do
        begin
          tovar[pocet]:=tovar[pocet]+znak;
          read(f,znak);
        end;
      read(f,kus[pocet]);
      readln(f,cena[pocet]);
    end;
end;
procedure vypis;
var i:integer;
begin
  for i:=1 to pocet do
    writeln(tovar[i]:10,kus[i]:5,cena[i]:8:2);
end;
procedure zapis;
var i:integer;
begin
  for i:=1 to pocet do
    writeln(g,tovar[i]:10,kus[i]:5,cena[i]:8:2);
end;

begin
  assign(f,'cenatovaru.txt');
  reset(f);
  assign(g,'vypis.txt');
  rewrite(g);
  nacitanie;
  vypis;
  zapis;

  close(f);
  close(g);
  readln;
end.
            

Ďakujem za pomoc a odpoved :)

Dobrý deň,,,zajtra mám robiť test z pascalu,,,,Mám ma´t načítanie z textového súboru, no sám som bol dlho chorý 3týždne zápal priedušiek a dýchacích ciest....Je tu možné, že by mi tu niekto pomohol zajtra ráno od pol ôsmej do cca deviatej a pomohol by mi s kódením ? Naozaj, som zúfalý,,,,Sedím nadtým už 3. deň ale prd z toho,,,Maturujem a musím sa teraz sústrediť na matematiku a jazyky....Ďakujem