Задача 1. Вывод натурального числа
Ввести натуральное число, не превосходящее 1000000, и вывести его в десятичном, двоичном, 8-ричном и 16-ричном виде.
{ Решение Задачи 1 на языке PASCAL } VAR N,Divider : LongInt; Shift,Num : Byte;
BEGIN
Write(#10,#13/Введите число '); Read(N); WriteLn^ffimo в десятичном виде : ',N); Write^ffimo в двоичном виде : '); FOR Shift:=19 DOWNTO 0 DO
Write(N AND(LongInt(1) ShL Shift)ShR Shift); WriteLn(#10,#13/Числo в 8-ричном виде : ',N AND $C0000 ShR 1В,
N AND $38000 ShR 15,N AND $07000 ShR 12,N AND $00E00 ShR 9,
N AND $001C0 ShR б, N AND $00038 ShR 3,N AND $00007); Write^ffimo в 16-ричном виде : '); Divider:=$F0000; FOR Shift:=4 DOWNTO 0 DO BEGIN
Num:=N AND Divider ShR (Shift*4);
CASE Num OF 0..9 : Write(Num);
ELSE Write(Chr(Ord('A,)+Num-10));
END;
Divider:=Divider ShR 4;
END; END.
/* Решение Задачи 1 на языке C */
#include<stdio.h>
void main(void) { long n; int shift;
printf("\nВведите число "); scanf("%li",&n);
printf("\nЧислo в десятичном виде : %ld",n);
printf("\nЧислo в двоичном виде : ");
for(shift=19;shift>=0;shift--)printf("%ld",(n&(1L«shift))»shift); printf("\nЧислo в 8-ричном виде : %lo",n);
printf("\nЧислo в Іб-ричном виде : %lX",n); } C Решение Задачи 1 на языке FORTRAN
$STORAGE:4 $DEBUG
INTEGER*1 SHIFT PRINT *,'Введите число '
READ*,N
PRINT'(1X,A,I7)','Числo в десятичном виде : ',N 0PRINT'(1X,A,20I1)','Числo в двоичном виде : 1(ISHL(IAND(N,INT4(2)**SHIFT),-SHIFT),SHIFT=19,0,-1) 0PRINT'(1X,A,7I1)','Числo в 8-ричном виде : 1ISHL(IAND(N,В#7000000),-1В),ISHL(IAND(N,В#0700000),-15), 2ISHl(iANd(n,8#0070000),-12),ISHl(iANd(n,8#0007000),-9), 3ISHl(iANd(n,8#0000700),-6),ISHL(IAND(N,8#0000070),-3), 4IAND(N,8#0000007)
PRINT'(1X,A,Z5)','Числo в Іб-ричном виде : ',N
END