2 / 2 / 1
Регистрация: 23.03.2013
Сообщений: 60
1

Создать программу для перевода в обратный и дополнительный коды

13.11.2016, 19:01. Показов 2118. Ответов 6
Метки нет (Все метки)

Здравствуйте! Мне нужно написать программу для перевода в обратный и дополнительный коды. У меня есть листинг из лабораторной, но я опять что-то напутала с объявлениями и не могу понять, где у меня ошибка (а программа-то не запускается ). Поскольку ветка форума называется Delphi для начинающих, поэтому я создала тему здесь.

Delphi
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    BitBtn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
  private
     procedure TForm1.BitBtn1Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
  procedure PODkod (Val:Integer; var per_razr,PrKod,ObrKod,DopKod:String);
var
a:String;
i:Longint;
begin
a:='';
if Val<0 then per_razr:='1.' else per_razr:='0.';
Val:=Abs(Val);
while (Val div 2>0) or (Val mod 2>0) do begin
a:=a+IntToStr(Val mod 2);
Val:=Val div 2;
end;
for i:=1 to Length(a) do
PrKod:=PrKod+a[Length(a)-i+1];
 
if PrKod='' then PrKod:='0';
 
ObrKod:=PrKod;
for i:=1 to Length (ObrKod) do
if ObrKod[i]='1' then ObrKod[i]:='0'
else ObrKod[i]:='1';
 
DopKod:=ObrKod;
if DopKod[Length(DopKod)]='1' then DopKod[Length (DopKod)]:='0'
else DopKod[Length(DopKod)]:='1';
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
PerviyRazryad, PryamKod, ObratKod, DopolKod: String;
begin
PODKod(StrToInt(1eChislo.Text), PerviyRazryad, PryamKod, ObratKod, DopolKod);
1ePrKod.Text:=PerviyRazryad+PryamKod;
1eObrKod.Text:=PerviyRazryad+ObratKod;
1eDopKod.Text:=PerviyRazryad+DopolKod;
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2016, 19:01
Ответы с готовыми решениями:

Написать программу перевода числа из двоичного кода в прямой, обратный и дополнительный
Нужно дописать последнюю операцию для данной программы , не могу найти функцию , которая бы...

Перевести X, Y и Z в прямой, обратный и дополнительный коды. Сложить их в обратном и дополнительном кодах
Перевести X, Y и Z в прямой, обратный и дополнительный коды. Сложить их в обратном и...

Прямой, обратный и дополнительный коды двоичных чисел 11110.11011; 101000.111; 1001101; 1100;
Прошу помочь!Прямой, обратный и дополнительный коды двоичных чисел 11110.11011; 101000.111;...

Написать программу, которая находит прямой, обратный и дополнительный код
Ребят, помогите пожалуйста. Написать программу, которая находит прямой, обратный и дополнительный...

6
884 / 404 / 174
Регистрация: 20.10.2016
Сообщений: 1,828
13.11.2016, 19:39 2
Какую ошибку выдаёт компилятор? Это сильно сузит круг поиска.
0
botsik
262 / 262 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
13.11.2016, 19:41 3
Лучший ответ Сообщение было отмечено Galadriel1987 как решение

Решение

Цитата Сообщение от Galadriel1987 Посмотреть сообщение
procedure PODkod (Val:Integer; var per_razr,PrKod,ObrKod,DopKod:String);
нужно написать перед
Цитата Сообщение от Galadriel1987 Посмотреть сообщение
procedure TForm1.BitBtn1Click(Sender: TObject);
Добавлено через 15 секунд
Цитата Сообщение от Galadriel1987 Посмотреть сообщение
procedure PODkod (Val:Integer; var per_razr,PrKod,ObrKod,DopKod:String);
нужно написать перед
Цитата Сообщение от Galadriel1987 Посмотреть сообщение
procedure TForm1.BitBtn1Click(Sender: TObject);
1
2 / 2 / 1
Регистрация: 23.03.2013
Сообщений: 60
13.11.2016, 19:43  [ТС] 4
Ошибок много, основная - что я не объявила процедуру в описании.
0
82 / 82 / 39
Регистрация: 17.02.2016
Сообщений: 464
13.11.2016, 21:34 5
у вас на форме
Delphi
1
2
3
4
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
а в коде
Delphi
1
2
1eDopKod.Text
1eObrKod.Text
ничего не замечаете ?
0
82 / 82 / 39
Регистрация: 17.02.2016
Сообщений: 464
13.11.2016, 21:41 6
ошибки исправил, дальше сам
Вложения
Тип файла: zip 2.zip (3.5 Кб, 29 просмотров)
1
cfbogd
14.11.2016, 00:49     Создать программу для перевода в обратный и дополнительный коды
  #7

Не по теме:

Цитата Сообщение от HiredKiller Посмотреть сообщение
ошибки исправил, дальше сам
уже второй человек не может определить пол ТС )))))))

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.11.2016, 00:49

Составить программу перевода двоичных чисел в обратный код
У меня есть программа на паскеле, но там и прямой код и обратный и дополнительный код есть. Но...

Построить прямой, обратный, дополнительный код для положительных и отрицательных чисел
Построить прямой,обратный, дополнительный код для положительных и отрицательных чисел. Помогите,...

Создать программу в delphi 7 для перевода из 10-й системы счисления в 16-ю
Создать программу в delphi 7 для перевода из 10-й системы счисления в 16-ю.Очень прошу вас,оч...

Создать программу для перевода из десятичной системы исчисления в восьмеричную
Помогите пожалуйста создать программу для перевода из десятичной системы исчисления в восьмеричную...

Необходимо создать программу для перевода стандартных операций языка си в ассемблер
тема работа - взять стандартные операции языка си: Условные операторы Имеются две формы...

Обратный и дополнительный код.
мне надо использовать прямой и обратный код и выполнить след. вычисления я посчитал но у меня есть...


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

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

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