Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

[Pascal 7.o] Błd w kompilowaniu programu

#11
RE: [Pascal 7.o] Błd w kompilowaniu programu
dziekiWesoły leciJęzyk
jeszcze jedno jak wprowadze 1 to mi na zero przelicza a wiec warunek jakis dac??
a jak podaje 3 to sa dwa zeraSmutek
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#12
RE: [Pascal 7.o] Błd w kompilowaniu programu
Najlepiej zrobić to, żeby zapisywał wyniki dzielenia modulo w polach tablicy, a potem wyświetlić je w odwrotnej kolejności.
 System operacyjny: windows_vista Przeglądarka: firefox
#13
RE: [Pascal 7.o] Błd w kompilowaniu programu
jeszcze jedno jak wprowadze 1 to mi na zero przelicza a wiec warunek jakis dac?? a jak podaje 3 to sa dwa zeraSmutek
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#14
RE: [Pascal 7.o] Błd w kompilowaniu programu
Mi jakoś podaje 11

A propos tu masz poprawioną wersję kodu, już kompletną (jedyny mankament to jeden NULL się wypisuje, ale nie wpływa on na działanie programu)

Kod:
program kwas;
uses crt;
var x,l: integer;
wyniki: array[1..255] of char;
begin
write('Podaj liczbe:');
readln(x);
l:=1;
repeat
if(x mod 2=0) then
begin
x:= x div 2;
wyniki[l]:='0';
end
else begin
x:=x div 2;
wyniki[l]:='1';
end;
l:=l+1;
until x=0;
for l:=l downto 1 do
begin
write(wyniki[l]);
end;
readln;
end.

Skompiluj kod powyżej i sprawdź go.
 System operacyjny: windows_vista Przeglądarka: firefox
#15
RE: [Pascal 7.o] Błd w kompilowaniu programu
oki sprawe mozna zamknac wszystkim dziekujeWesoły
a tak jeszcze jedno male question w odwrotna strone dalo by to sie??
najlepiej wzorem???? tym ogolnym na przeliczanie liczby z 1 systemu na drugi system??
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#16
RE: [Pascal 7.o] Błd w kompilowaniu programu
Ten program z postu 14 realizuje przeliczanie z systemu dziesiętnego na binarny. W odwrotną stronę wymaga to odpowiedniej, całkiem innej funkcji przeliczającej.
 System operacyjny: windows_vista Przeglądarka: firefox
#17
RE: [Pascal 7.o] Błd w kompilowaniu programu
np mamy liczbe 1111b i chcemy ja zamienic na dziesietna
czyli 1*2^0 + 1*2^1 + 1*2^2 + 1*2^3 =15dz
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#18
RE: [Pascal 7.o] Błd w kompilowaniu programu
Kod:
program kwas;
uses crt;
var
potega,wynik: integer;
binarny: string;
cyfry: array[1..255] of integer;
i,x: integer;
begin
     readln(binarny);
     for i:=1 to length(binarny) do
         begin
         val(binarny[i],cyfry[i]);
         end;
     wynik:=0;
     for i:=length(binarny) downto 1 do
         begin
         if(length(binarny)-i=0) then potega:=1
         else if (length(binarny)-i=1) then potega:=2
         else
             begin
             potega:=2;
                       for x:=2 to length(binarny)-i do
                       begin
                       potega:=potega*2;
                       end;
             end;
         wynik:=wynik+(cyfry[i]*potega);
         end;
writeln(wynik);
readln;
end.

Ten program wykonuje odwrotne działanie, czyli z binarnego na dziesiętny
 System operacyjny: windows_vista Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




Podobne wątki ([Pascal 7.o] Błd w kompilowaniu programu)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Baza danych - dzialania, Pascal Jamuna 2 6277 10.04.2021, 19:08
Ostatni post: softwareman
  dev pascal, problem z funkcją kwadratową Sentinel24 4 11136 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 10663 01.05.2016, 22:34
Ostatni post: Szachista

Skocz do: