uses crt; var n,m,i,j,k:integer; a:array[1..1000] of integer; begin repeat writeln('Введите 2 натуральнвх числа n<m<1000:'); read(n,m); until (n>0)and(n<m)and(m<1000); writeln('Начальный ряд:'); k:=0; for i:=n to m do begin inc(k); a[k]:=i; write(a[i]:4); end; writeln; while k>=2 do begin i:=1; while i<=k do begin for j:=i to k-1 do a[j]:=a[j+1]; k:=k-1; i:=i+1; end; i:=2; while i<=k do begin f or j:=i to k-1 do a[j]:=a[j+1]; k:=k-1; i:=i+1; end; end; write(a[k]); end.
1) Системный блок 2) один из самых важных, особенно для тех, кто всерьёз решил освоить профессию программиста. Мы изучаем понятие подпрограмм и функций в программировании. В Scratch нет этих понятий, но есть возможность создавать Другие блоки. Это и есть прямой аналог подпрограмм. Подумай, что по-твоему, значит термин подпрограмма. Внимательно слушай объяснения учителя. И ты убедишься, что это совсем не сложно, а даже наоборот — удобно. С других блоков (подпрограмм) мы научимся делать код короче и понятнее, то есть оптимальнее. Вперёд! Успехов!
Если на C++, то вот процедуры: если с библиотеки graphics.h x и y нужно передавать левого верхнего угла буквы
#include <graphics.h> #include <stdio.h> #include <conio.h> int x=50,y=50; void M(int x,int y) { // длина буквы 44, высота тоже 44 x+=50; line(x,y,x,y+44); line(x,y,x+22,y+44); line(x+22,y+44,x+44,y); line(x+22,y+44,x+44,y+44); } void I(int x,int y) { // длина буквы 22, высота тоже 44 x+=28; line(x,y,x,y+44); line(x,y+44,x+22,y); line(x+22,y,x+22,y+44); } void R(int x,int y) { // длина буквы 22, высота тоже 44 x+=28; line(x,y,x,y+44); line(x,y,x+22,y); line(x,y+22,x+22,y+22); line(x+22,y,x+22,y+22); }
var n,m,i,j,k:integer;
a:array[1..1000] of integer;
begin
repeat
writeln('Введите 2 натуральнвх числа n<m<1000:');
read(n,m);
until
(n>0)and(n<m)and(m<1000);
writeln('Начальный ряд:');
k:=0;
for i:=n to m do
begin
inc(k); a[k]:=i;
write(a[i]:4);
end;
writeln;
while k>=2 do
begin
i:=1;
while i<=k do
begin for j:=i to k-1 do
a[j]:=a[j+1];
k:=k-1;
i:=i+1;
end;
i:=2;
while i<=k do
begin f
or j:=i to k-1 do
a[j]:=a[j+1];
k:=k-1;
i:=i+1;
end;
end;
write(a[k]);
end.