-2 / 0 / 1
Регистрация: 09.10.2012
Сообщений: 44
1

Составить блок-схему к программе 1 и к программе 2

12.11.2012, 08:52. Показов 964. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var i, multiply,result:longint;
    digit:byte;
    fail:boolean;
begin
    writeln('Input binary number:');
        readln(i);
        multiply := 1;
        result:=0;
    fail:=false;
        repeat
        {Вычисление младшей значащей цифры}
                digit := i mod 10;
 
        if((digit <> 0) and (digit <> 1))then
        begin
            {Число не двоичное}
            writeln('Number is not binary');
            fail:=true;
            break;
        end;
 
        {Целочисленное деление на 2 сдвигом на 1 бит вправо}
                i := i shr 1;
 
        {Целочисленное деление на 5,
         чтобы вместе с предыдущей операцией получилось деление на 10}
        i := i div 5;
 
        {Вычисление результата результата}
        result:=result+digit*multiply;
 
        {Обновление разрядного множителя}
        multiply:=multiply*2;
        until i = 0;
    if (fail=false)then
    begin
        writeln('Decimal number:');
        writeln(result);
    end;
end.
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
type
    int=integer;
var
    result,k:longint;
    i:int;
    input:string;
begin
readln(input);
k:=1;
for i:=length(input) downto 1 do begin
    result:=result+k*(ord(input[i])-ord('0'));
    k:=k*2;
end;
writeln(result);
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2012, 08:52
Ответы с готовыми решениями:

Составить блок-схему к программе
uses crt; const nmax=7; var a:array of integer; n,i,j,imx,jmx:byte; x,y1,y2:integer; begin...

Составить блок-схему по программе
Составить блок-схему по программе

Составить блок-схему к программе
Помогите составить блок-схему к программе,у самого никак не выходит. uses crt; const nmax =...

Составить блок-схему по программе
Первая задача: program z3; var a:array of integer; i:integer; begin for i:=1 to...

1
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
12.11.2012, 13:00 2
Составить блок-схему к программе 1 и к программе 2
Название: New_FlowChart_2_Part_0.gif
Просмотров: 34

Размер: 2.6 Кб
1
12.11.2012, 13:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2012, 13:00
Помогаю со студенческими работами здесь

По готовой программе составить блок схему
const k=10; var a:array of integer; i,n,m:integer; begin writeln('Введите номер элемента');...

Составить циклическую блок-схему к программе
USES CRT; CONST a=5;b=-0.27; Var x,y:integer; Begin CLRSCR; Write('x=');Readln(x);...

Составить блок-схему к программе на массивы
const n=20; var a:arrayof integer; max,min,i:integer; begin Randomize; min:=100; ...

Составить блок-схему к программе о банке
program Project1; uses SysUtils; const N=4; type { //структура для хранения данных клиента}...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru