С ИНФОРМАТИКОЙ Дайте определение редактирования текстового документа. Назовите основные операции редактирования. Опишите особенности режимов вставки и замены при наборе текста.
Uses crt; var chislo,i,happy,ten: integer; a: array [1..6] of integer; begin happy := 100002; {наименьшее число,кратное 7} ten:=1; {счётчик колонок} while happy<999999 do begin {делим число happy на цифры с временной переменной chislo} {и сохраняем эти цифры в массиве а} chislo := happy; for i:= 1 to 6 do begin a[i] := chislo mod 10; chislo:= chislo div 10; end; {проверяем,счастливое ли число} if (a[1] + a[2] + a[3] = a[4] + a[5] + a[6]) then begin {если счастливое,то выводим} write(happy,' '); ten:=ten+1; if ten>10 then {если уже напечатано 10 чисел, то переходим в новую строку} begin ten:=1; writeln(); end; end; happy:=happy+7; end; end.
Задача № 1) Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать. Задача №2)
uses crt; var m:array[1..100,1..100] of integer; i,i1,j,str,stb,temp:integer; begin clrscr; введите число строк массива: '); readln(str); введите число Столбцов массива: '); readln(stb); clrscr; writeln('Массиа из ',str,' строк, и из ',stb,' столбцов успешно создан!'); writeln; for i:=1 to str do begin for j:=1 to stb do begin m[i,j]:=random(80)+1; write(m[i,j]:3,' '); end; writeln; end; writeln; writeln(' отсортирован по убыванию'); writeln; for i1:=1 to str do for i:=1 to str-1 do for j:=i+1 to str do if m[i1,i]<m[i1,j] then begin temp:=m[i1,i]; m[i1,i]:=m[i1,j]; m[i1,j]:=temp;end; writeln; for i:=1 to str do begin for j:=1 to stb do begin write(m[i,j]:3,' '); end; writeln; end; readkey; end. Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело
var
chislo,i,happy,ten: integer;
a: array [1..6] of integer;
begin
happy := 100002; {наименьшее число,кратное 7}
ten:=1; {счётчик колонок}
while happy<999999 do
begin
{делим число happy на цифры с временной переменной chislo}
{и сохраняем эти цифры в массиве а}
chislo := happy;
for i:= 1 to 6 do
begin
a[i] := chislo mod 10;
chislo:= chislo div 10;
end;
{проверяем,счастливое ли число}
if (a[1] + a[2] + a[3] = a[4] + a[5] + a[6]) then
begin
{если счастливое,то выводим}
write(happy,' ');
ten:=ten+1;
if ten>10 then
{если уже напечатано 10 чисел, то переходим в новую строку}
begin
ten:=1;
writeln();
end;
end;
happy:=happy+7;
end;
end.
Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать.
Задача №2)
uses crt;
var m:array[1..100,1..100] of integer;
i,i1,j,str,stb,temp:integer;
begin
clrscr;
введите число строк массива: '); readln(str);
введите число Столбцов массива: '); readln(stb);
clrscr;
writeln('Массиа из ',str,' строк, и из ',stb,' столбцов успешно создан!');
writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
m[i,j]:=random(80)+1;
write(m[i,j]:3,' ');
end;
writeln;
end;
writeln;
writeln(' отсортирован по убыванию');
writeln;
for i1:=1 to str do
for i:=1 to str-1 do
for j:=i+1 to str do
if m[i1,i]<m[i1,j] then begin temp:=m[i1,i]; m[i1,i]:=m[i1,j]; m[i1,j]:=temp;end;
writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
write(m[i,j]:3,' ');
end;
writeln;
end;
readkey;
end.
Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело