Программа в паскале по переводу числа из двоичной СС в десятичную и блок схема к ней.

[Hacker19_90]

эммм... ну вы даёте!
Вот так примерно

program example;
uses
    crt;
var
    Dec_Number: integer;
    W_String: string;
    i: integer;
begin
   clrscr;
    writeLn('Введите число в 2-ой системе счисления: ');
    ReadLn (W_String;)
    Dec_Number := 0;
    for i := 0 to length(W_String) - 1 do
    begin
        if W_String[i+1] = '1' then
            Dec_Number := Dec_Number +exp(ln(2)*(Length(W_String) - i));
    end;
    Writeln (Dec_Number);
    ReadKey;
end.

[Дарья Книга]

Огромное спасибо,что потратили на меня своё время))) Но я всё равно не в силах понять это до конца))) Это для меня сложно

[Hacker19_90]

Так спрашивайте же!
Что ж вы спросить то боитесь?
Я не кусаюсь, тем более через интернет!

[Дарья Книга]

Вы со мной замаетесь! Мы ещё не проходили раздел uses,я не знаю что такое clrscr,ReadKey.

[Leshii]

Uses это модуль, в который как раз и входит функция очистки экрана clrscr, ну а readkey ( по нажатию клавишы ), тут я думаю не грешно юзать такие вещи. Темболее на школьный уровень ... что там у вас за преподаватель деспот то такой ?)

[Hacker19_90]

По порядку!
uses
раздел для подключения дополнительных модулей!
по дефолту уже не явно подключен модуль system
мы же явно подключаем модуль clrscr, который содержит функции для работы с консолью в текстовом режиме!
clrscr
процедура из модуля crt
Очищает экран консоли!
ReadKey
Функция из модуля crt, которая ожидает нажатия клавиши! Затем читает с входного потока
символ нажатой клавиши и возвращяет код символа!

[Poma][a]

может полегче будет? если что то функции могу убрать...

program Task4;

function Pow2 (k : Integer) : Longint;
var
	p : LongInt;
	i : Integer;
begin
	p := 1;
	for i := 1 to k do
		p := p * 2;
	Pow2 := p;
end;


procedure BinToDec (b: string; var n: Longint; var v: Integer);

var
	len, i : Integer;
begin
	n := 0;
	len := Length (b);
	i := 1;
	while  (i <= len) and ((b[i] = '0') or (b[i] = '1')) do begin
		n := n + (Ord(b[i])-48) * Pow2 (len - i);
		Inc (i);
	end;
	if i <= len then
		v := i
	else
		v := 0
end;

var
	s : string;
	n, x : Longint;
	v : Integer;
begin
	Readln (s);
	BinToDec (s, x, v);
	if v > 0 then
		Writeln ('Ошибка в записи двоичного числа')
	else
		Writeln (s + 'B = ', x);
end.

[Plague]

строки, строки, логарифмы, опять строки)))
ну не учили они еще строк!
вот код:

var n,d,b,s:longint;
begin
  readln(n);
  d:=1;
  s:=0;
  repeat
    b:=n mod 10;
    b:=b*d;
    d:=d*2;
    s:=s+b;
    n:=n div 10;
  until n=0;
  writeln(s);
end.

[Hacker19_90]

вот код:

Чем от моего отличается?

[Poma][a]

решение хорошее, вот только переменные не очень, раз есть b тут же хочется спросить : где 'a'?