|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.05.2008, 22:34 | #1 |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
Системы счисления помогите решить и посмотрите ошибки
напечатать таблицу сложения однорозрядных чисел в p-ичной системе счисления,p<=16
program pr_1; uses crt; var a:array[1..15,1..15] of byte ; var x,y,x1,y1,n,i,j,t:byte; begin writeln ('vvedite n='); read (n); for i:=1 to n do begin a[1,i]:=t; t:=t+1; end; t:=0; for i:=1 to n do begin a[i,1]:=t; t:=t+1; end; for i:=1 to n do for j:=1 to n do a[i,j]:=a[i,1]+a[1,j]; for i:=1 to n do for j:=1 to n do if a[i,j]>=n then a[i,j]:=a[i,j]-n+10; for i:=1 to n do begin writeln(' '); for j:=1 to n do begin if a[i,j]=20 then write('1A '); if a[i,j]=21 then write('1B '); if a[i,j]=22 then write('1C '); if a[i,j]=23 then write('1D '); if a[i,j]=24 then write('1E '); if a[i,j]<20 then write(a[i,j],' '); end; end; end. |
13.05.2008, 15:58 | #2 |
Забанен
Форумчанин Подтвердите свой е-майл
Регистрация: 01.11.2006
Сообщений: 420
|
Зачем так все усложнять?
Вот пользуйтесь: Код:
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Последний раз редактировалось Plague; 13.05.2008 в 16:04. Причина: замена '0123456789ABCDF' на '0123456789ABCDEF' |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Системы счисления | vdv08 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 08.05.2008 17:32 |
Перевод из одной системы счисления в другую | Sky_VSUH | Помощь студентам | 1 | 28.02.2008 20:18 |