• Nie Znaleziono Wyników

:= wynik; end; Begin writeln('Podaj liczbe'); readln(wart_dec); writeln(dec2bin_func(wart_dec)); readln; End.

N/A
N/A
Protected

Academic year: 2021

Share ":= wynik; end; Begin writeln('Podaj liczbe'); readln(wart_dec); writeln(dec2bin_func(wart_dec)); readln; End."

Copied!
1
0
0

Pełen tekst

(1)

ZAMIANA LICZBY DZIESIĘTNEJ NA BINARNĄ:

program dec2bin;

var

wart_dec:integer;

function dec2bin_func(n:integer):string;

var

wynik:string;

begin

wynik:='';

repeat

if n mod 2=0 then wynik:='0'+wynik else wynik:='1'+wynik;

n:=n div 2;

until n=0;

dec2bin_func

:= wynik;

end;

Begin

writeln('Podaj liczbe');

readln(wart_dec);

writeln(dec2bin_func(wart_dec));

readln;

End.

ZADANNIE NA LEKCJĘ (DO DOMU DLA POWOLNYCH): Napisać funkcje odwrotną – zamieniającą liczbę binarną zapisaną z użyciem String do postaci dziesiętnej.

Podpowiedź : zmienną string można traktowad jak tablice złożoną z elementów typu CHAR NP.:

Var s:string[20];

Begin

S[2] := ‘a’;

Writeln(s[2]);

End.

Cytaty

Powiązane dokumenty

W każdym z poniższych sześciu zadań za 0, 1, 2, 3, 4 poprawne odpowiedzi postawisz sobie odpowiednio 0, 1, 3, 6, 10 punktów.. Wynik testu niech pozostanie Twoją

W każdym z poniższych sześciu zadań za 0, 1, 2, 3, 4 poprawne odpowiedzi postawisz sobie odpowiednio 0, 1, 3, 6, 10 punktów.. Wynik testu niech pozostanie Twoją

Numerous relationships and trade-offs between oscillator performance parameters, such as voltage swing, tank conductance, power consumption, phase noise, and loop gain,

In the new digitalization model of the port industry, it will be the port communities themselves (not only the port authorities independently) that will jointly and

1.2 W zbiorniku wypełnionym wodą oblicz na jakiej głębokości panuje całkowite ciśnienie 150 kPa, jeżeli ciśnienie atmosferyczne równa się ciśnieniu hydrostatycznemu

Oblicz jaka powinna być grubość muru, żeby parcie nie przesunęło muru, wiedząc, że siła tarcia muru o podłoże równa się 30 % ciężarowi muru.. W obliczeniach pomiń

Abstract: The main objective of this thesis is to develop a fully end-to-end machine learn- ing workflow for the problem of classification, that is to say, without human

Thus, above all trans-humanists seek technologies that make it possible to transfer the human mind from the body to a machine (Jaokar, 2012).. In a sense, trans-humanism makes