Question

Muszę na jutro zrobić jakiś program w pascalu obojetnie jaki. Jakiś najprostszy może być kalkulator lub coś w tym stylu ;)
Dzieki ;)

Answer 1

Program, który przeliczy liczbę z systemu binarnego na dziesiętny:

Program binarny;
uses CRT;
var
liczba: string;
dlugosc, potega, i:integer;
dziesietna:real;
begin
clrscr;
Writeln('Podaj liczbe w systemie binarnym:');
readln(liczba);
dlugosc := length(liczba);
dziesietna := 0;
for i := 1 to dlugosc do begin
if liczba[i] = '1' then begin
dziesietna := dziesietna + exp((dlugosc - i)*ln(2));
end;
end;
write('Ta liczba w systemie dziesientnym to: ');
Write(trunc(dziesietna));
readln;
end.

Answer 2

W razie jakiś problemów pisz na PW