Инфа. 3. Выполнить задание. Напишите программу, которая вводит данные в многомерный массив размером 4 на 3 и имеет вид: 1 1 1 1 2 2 2 2 3 3 3 3
Ответы
1. Современная версия программы
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var n:=ReadInteger('n=');
var x:=ArrRandom(n,-5,20); x.Println;
if x.Min<0 then x:=x.Select(e->abs(e)).ToArray;
x.Println
end.
Тестовое решение
n= 15
14 18 4 17 9 6 13 13 12 -1 13 5 11 -2 14
14 18 4 17 9 6 13 13 12 1 13 5 11 2 14
2. Школьная версия программы
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
const
nn=50;
var
x:array[1..nn] of integer;
i,m,n:integer;
begin
Write('n= '); Read(n);
Randomize;
x[1]:=Random(26)-5; m:=x[1];
Write(x[1],' ');
for i:=2 to n do begin
x[i]:=Random(26)-5;
if x[i]<m then m:=x[i];
Write(x[i],' ')
end;
Writeln;
if m<0 then begin
for i:=1 to n do begin
x[i]:=abs(x[i]);
Write(x[i],' ')
end;
Writeln
end
end.
Тестовое решение
n= 15
9 3 14 4 9 2 1 6 9 19 20 8 14 -3 9
9 3 14 4 9 2 1 6 9 19 20 8 14 3 9
Подтверждает довольно популярное мнение о том, что в школьной информатике многое давно пора менять...
Зачем учить писать длинно и сложно?
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var n:=ReadInteger('n=');
var x:=ArrRandom(n,-5,20); x.Println;
if x.Min<0 then x:=x.Select(e->abs(e)).ToArray;
x.Println
end.
Тестовое решение
n= 15
14 18 4 17 9 6 13 13 12 -1 13 5 11 -2 14
14 18 4 17 9 6 13 13 12 1 13 5 11 2 14
2. Школьная версия программы
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
const
nn=50;
var
x:array[1..nn] of integer;
i,m,n:integer;
begin
Write('n= '); Read(n);
Randomize;
x[1]:=Random(26)-5; m:=x[1];
Write(x[1],' ');
for i:=2 to n do begin
x[i]:=Random(26)-5;
if x[i]<m then m:=x[i];
Write(x[i],' ')
end;
Writeln;
if m<0 then begin
for i:=1 to n do begin
x[i]:=abs(x[i]);
Write(x[i],' ')
end;
Writeln
end
end.
Тестовое решение
n= 15
9 3 14 4 9 2 1 6 9 19 20 8 14 -3 9
9 3 14 4 9 2 1 6 9 19 20 8 14 3 9
Подтверждает довольно популярное мнение о том, что в школьной информатике многое давно пора менять...
Зачем учить писать длинно и сложно?
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Продолжаем тему обучения работы в PowerPoint.
Сегодня рассмотрим как сделать красивые переходы между слайдами. К сожалению, многие не пользуются этой прекрасной возможностью разнообразить свою презентацию. А зря.
Без этих переходов между слайдами презентация в PowerPoint не даёт того полного эффекта, который можно получить применяя это. С красивыми и правильно подобранными переходами презентация просматривается гораздо интереснее.
Я не случайно сказал, что переходы должны быть правильно подобраны. Если Вы не правильно подберёте их, то презентацию можно только украсить, а просто испортить.
Например, если установить один переход к каждому слайду влево или вправо. То, при просмотре такой презентации, может появиться чувство головокружения, я не шучу. Тем более,
если слайды меняются часто.
Причём, надо также уместно ставить звуки, которые могут сопровождать смену слайдов или можете поставить свой звуковой файл. Это тоже возможно. Хотя, к этому также надо подходить обдуманно и в некоторых переходах их вообще не надо ставить.
В общем, выбирайте, пробуйте экспериментируйте, подходите к процессу творчески и создадите прекрасную презентацию в программе PowerPoint.