Практика программирования (Бейсик, Си, Паскаль)


Задачи,советы и ответы - часть 4


CASE "6": PRINT "111";

CASE "7": PRINT "111";

END SELECT

NEXT k

PRINT

PRINT "В восьмеричном представлении ";N&;"= ";OCT$(N&)

PRINT "В шестнадцатеричном представлении ";N&;"=";HEX$(N&)

END

Программа 2_03a.bas

REM Перевод числа в системы с основаниями 2, 8 и 16

CLS

INPUT "Введите положительное число : ",n&

а$=ОСТ$(п&) : ' Перевод в восьмеричную систему

IF n&=0 THEN

PRINT "Это число в любой системе равно 0" STOP END IF PRINT "В двоичном представлении ";п&;"= ";

B$=LEFT$(а$,1}: : ' Выделение очередной восьмеричной цифры SELECT CASE B$


SELECT CASE B$

CASE "0": PRINT "";

CASE "1": PRINT "1";

CASE "2": PRINT "10";

CASE "3": PRINT "11";

CASE "4": PRINT "100";

CASE "5": PRINT "101";

CASE "6": PRINT "111";

CASE "7": PRINT "111";

END SELECT

FOR K = 2 TO LEN(a$)

B$ = MID$(a$, K, 1)

SELECT CASE B$

CASE "0": PRINT "000";

CASE "1": PRINT "001";

CASE "2": PRINT "010";

CASE "3": PRINT "011";

CASE "4": PRINT "100";

CASE "5": PRINT "101";

CASE "6": PRINT "111";

CASE "7": PRINT "111";

END SELECT

NEXT K

PRINT

PRINT "В восьмеричном представлении ";n&;"= ";OCT$(n&)

PRINT "В шестнадцатеричном представлении ";n&;"= ";HEX$(n&) END

END

Программа 2_03.с

/* Перевод числа в системы счисления с основаниями 2, 8 и 16 */

#include <stdio.h>

#include <conio.h>

#include <stdlib.h>

main()

{

long N;

char a[33];

clrscr();

printf("Введите положительное число : ") ;

scanf("%ld",&N);




- Начало -  - Назад -  - Вперед -