написать задачу перевода из 10 с.с. в 2 с.с. двумя способами:
10-11 класс
|
1) функции
2) процедуры
function toBin(dec: integer): string;
var
buf: integer;
str: string;
begin
buf := dec;
repeat
str := concat(IntToStr(buf mod 2), str);
buf := buf div 2;
until (buf = 0);
toBin := str;
end;
procedure toBin(dec: integer; var bin: string);
var
buf: integer;
begin
buf := dec;
repeat
bin := concat(IntToStr(buf mod 2), bin);
buf := buf div 2;
until (buf = 0);
end;
var
s: string;
begin
writeln(toBin(10));
toBin(10, s);
writeln(s);
end.
Другие вопросы из категории
1.значок программы
2.значок папки
3.панель задач
4.ярлык программы
5.значок документа
6.контекстное меню
7.кнопка пуск
8.диалоговое окно
Ответов несколько
X:=-3
Y:=4
If x*y< x-y then
Begin
Z:=x*x+y*y;
Y:=z-y;
X:=x*y+z;
End;
Else
Begin
Z:=x*2+y*3;
Y:=z-y*y;
X:=x*y+z;
End;
1
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры.
1. Найти:
- сумму элементов, имеющих нечетное значение;
- вывести индексы тех элементов, значения которых больше заданного числа А.
2. Определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).
Читайте также
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
Б) Как переводить из букв (AF допустим) в двоичную систему?
из 10 с.с. в 16 с.с.; 4) число 11021021 из 3 с.с. в 10 с.с.; 5) число A369 из 16 с.с. в 8 с.с.
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
счисления в другую прошу очень кратко, и подробно расскажите о переводе из одной системы счисления в другую