//Вот программа, которая кодирует слова в системах счисления от 2 до 10 //Первый ввод - число, второй - система счисления //Pascal ABC.NET v3.0
var a,i,b,r,n,j,bug:integer; s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string); begin repeat b:=a mod n; a:=a div n; str(b,se); s+=se; until (a<=n-1); end;
begin readln(slo); readln(n); for j:=1 to length(slo) do begin; a:=ord(slo[j]); preob(a,b,n,se); str(a,se); s+=se; for i:=1 to length(s) div 2 do begin; se:=s[i]; s[i]:=s[length(s)-i+1]; s[length(s)-i+1]:=se[1]; end; write(s,'-'); slof:=slof+s; delete(s,1,length(s)); end; end.
//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
var s, k: integer; //Объявление двух целочисленных переменных
begin
s:=0; //Инициализация переменной s
for k:= 4 to 7 do //Запуск цикла по переменной k от 4 до 7
//Тело цикла
s:=s+8; //На каждом шаге цикла значение переменной s увеличивается на 8
Рассмотрим подробнее:
1 шаг цикла:
k = 4; s:=0+8;
2 шаг цикла:
k = 5; s:=8+8;
3 шаг цикла:
k = 6; s:=16+8;
4 шаг цикла:
k = 7; s:=24+8;
//Цикл закончился. На данный момент в переменной s хранится значение 32.
writeln(s); //Выводим на экран значение, которое хранится в переменной s, т.е значение 32;
end. //Конец программы
2.
var s, k:integer; //Объявление целочисленных переменных s, k.
begin
s:=0; //Инициализация переменной s
for k:= 3 to 8 do //Запуск цикла по переменной k от 3 до 8
//Тело цикла
s:= s+9; //На каждом шаге цикла значение переменной s увеличивается на 9.
Рассмотрим подробнее:
1 шаг цикла:
k = 3; s:=0+9;
2 шаг цикла:
k = 4; s:=9+9;
3 шаг цикла:
k = 5; s:=18+9;
4 шаг цикла:
k = 6; s:=27+9;
5 шаг цикла:
k = 7; s:=36+9;
6 шаг цикла:
k = 8; s:=45+9;
//Цикл закончился. На данный момент в переменной s хранится значение 54.
writeln(s); //Выводим на экран значение, которое хранится в переменной s, т.е значение 54;
end. //Конец программы
3.
Натуральные числа - числа, возникающие естественным образом при счёте (1, 2, 3, 4, 5, 6, 7 и так далее...)
Код программы:
var
count, n:integer; //Объявление целочисленных переменных. В переменной count будет храниться количество натуральных чисел в промежутке от 1 до n.
begin
write('Введите значение N: ', #10);
readln(n); //Вводим с клавиатуры значение и записываем её в нашу целочисленную переменную n. Примечание: n должна быть больше 1.
for var i:= 1 to n do //Запуск цикла по переменной i от 1 до n.
count:=count+1; //На каждом шаге цикла значение в переменной count будет увеличиваться на 1.
write('Количество натуральных чисел от 1 до ', N, ': ', count, #10); //Выводим на экран значение переменной count.
end. //Конец программы
4.
Натуральные числа - числа, возникающие естественным образом при счёте (1, 2, 3, 4, 5, 6, 7 и так далее...)
Код программы:
const // Задаём два константных значения. В нашем случае это очень удобно, т.к нам заранее известны значения от чего и до чего нужно считать произведение.
a = 12; //В переменную а записываем значение 12. В ходе программы оно меняться не может, т.к объявлена в качестве константы.
b = 14; //В переменную b записываем значение 14. В ходе программы оно меняться не может, т.к объявлена в качестве константы.
var
product: integer; //Объявляем переменную product целочисленного типа, в которой будет храниться значение произведения.
begin
product := 1; //Инициализируем переменную product. Почему не 0, а 1: Всё очень просто. Если мы запишем здесь 0, то наше произведение всегда будет равно 0. Потому что 0*на любое число = 0.
for var i := a to b do //Запуск цикла по переменной i от a до b. Т.е от 12 до 14.
product := product * i; //На каждом шаге цикла значение переменной product будет меняться таким образом.
Рассмотрим подробнее ход цикла:
1 шаг цикла:
i = 12; product:=1*12;
2 шаг цикла:
i = 13; product:=12*13;
3 шаг цикла:
i = 14; product:=156*14;
Цикл заканчивает свою работу. В данный момент в переменной product хранится значение 2184.
write('Произведение натуральных чисел от 12 до 14 = ', product, #10); //Выводим на экран значение переменной product, т.е 2184.
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0
var
a,i,b,r,n,j,bug:integer;
s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string);
begin
repeat
b:=a mod n;
a:=a div n;
str(b,se);
s+=se;
until (a<=n-1);
end;
begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.
//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
1.
var s, k: integer; //Объявление двух целочисленных переменных
begin
s:=0; //Инициализация переменной s
for k:= 4 to 7 do //Запуск цикла по переменной k от 4 до 7
//Тело цикла
s:=s+8; //На каждом шаге цикла значение переменной s увеличивается на 8
Рассмотрим подробнее:
1 шаг цикла:
k = 4; s:=0+8;
2 шаг цикла:
k = 5; s:=8+8;
3 шаг цикла:
k = 6; s:=16+8;
4 шаг цикла:
k = 7; s:=24+8;
//Цикл закончился. На данный момент в переменной s хранится значение 32.
writeln(s); //Выводим на экран значение, которое хранится в переменной s, т.е значение 32;
end. //Конец программы
2.
var s, k:integer; //Объявление целочисленных переменных s, k.
begin
s:=0; //Инициализация переменной s
for k:= 3 to 8 do //Запуск цикла по переменной k от 3 до 8
//Тело цикла
s:= s+9; //На каждом шаге цикла значение переменной s увеличивается на 9.
Рассмотрим подробнее:
1 шаг цикла:
k = 3; s:=0+9;
2 шаг цикла:
k = 4; s:=9+9;
3 шаг цикла:
k = 5; s:=18+9;
4 шаг цикла:
k = 6; s:=27+9;
5 шаг цикла:
k = 7; s:=36+9;
6 шаг цикла:
k = 8; s:=45+9;
//Цикл закончился. На данный момент в переменной s хранится значение 54.
writeln(s); //Выводим на экран значение, которое хранится в переменной s, т.е значение 54;
end. //Конец программы
3.
Натуральные числа - числа, возникающие естественным образом при счёте (1, 2, 3, 4, 5, 6, 7 и так далее...)
Код программы:
var
count, n:integer; //Объявление целочисленных переменных. В переменной count будет храниться количество натуральных чисел в промежутке от 1 до n.
begin
write('Введите значение N: ', #10);
readln(n); //Вводим с клавиатуры значение и записываем её в нашу целочисленную переменную n. Примечание: n должна быть больше 1.
for var i:= 1 to n do //Запуск цикла по переменной i от 1 до n.
count:=count+1; //На каждом шаге цикла значение в переменной count будет увеличиваться на 1.
write('Количество натуральных чисел от 1 до ', N, ': ', count, #10); //Выводим на экран значение переменной count.
end. //Конец программы
4.
Натуральные числа - числа, возникающие естественным образом при счёте (1, 2, 3, 4, 5, 6, 7 и так далее...)
Код программы:
const // Задаём два константных значения. В нашем случае это очень удобно, т.к нам заранее известны значения от чего и до чего нужно считать произведение.
a = 12; //В переменную а записываем значение 12. В ходе программы оно меняться не может, т.к объявлена в качестве константы.
b = 14; //В переменную b записываем значение 14. В ходе программы оно меняться не может, т.к объявлена в качестве константы.
var
product: integer; //Объявляем переменную product целочисленного типа, в которой будет храниться значение произведения.
begin
product := 1; //Инициализируем переменную product. Почему не 0, а 1: Всё очень просто. Если мы запишем здесь 0, то наше произведение всегда будет равно 0. Потому что 0*на любое число = 0.
for var i := a to b do //Запуск цикла по переменной i от a до b. Т.е от 12 до 14.
product := product * i; //На каждом шаге цикла значение переменной product будет меняться таким образом.
Рассмотрим подробнее ход цикла:
1 шаг цикла:
i = 12; product:=1*12;
2 шаг цикла:
i = 13; product:=12*13;
3 шаг цикла:
i = 14; product:=156*14;
Цикл заканчивает свою работу. В данный момент в переменной product хранится значение 2184.
write('Произведение натуральных чисел от 12 до 14 = ', product, #10); //Выводим на экран значение переменной product, т.е 2184.
end. //Конец программы