VPF::помогите с програмкой! - Форум программистов

rion

Дата 22.9.2007, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.9.2007

Репутация: нет
Всего: нет

Вот есть задание:

1) Обращение целых чисел с прямого кода в дополнительный при длине розрядной сетки 32.

Вот есть прога на паскале:

Код


var a:array[1..100] of integer;
    i,k:integer;
begin
 write('vvedit a:');
 for i:=1 to 8 do
  read(a[i]);
  for i:=1 to 8 do
   begin
    if a[i]=1 then
     k:=i;
   end;
   writeln('k=',k);
   write('dodatkovuy kod cgusla=');
   if a[1]=1 then
    begin
    for i:=2 to k-1 do
     begin
      if a[i]=1 then
       a[i]:=0
      else
       a[i]:=1;
     end;
   for i:=1 to 8 do
    write(a[i]);
   end
   else
   for i:=1 to 8 do
    write(a[i]);
end.

Как мне переделать ее под мое задание? Помогите пожалуйста.

Это сообщение отредактировал(а) rion - 22.9.2007, 12:15

volvo877

Дата 22.9.2007, 11:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Модератор: Название темы должно отражать ее суть!

Snowy

Дата 24.9.2007, 12:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

M
Snowy

Грубое нарушение пункта №1 правил форума
Тема закрыта.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »