Системный блок... Самое сокровенное что у нас есть. В нем мы держим большое количество информации, с помощью него мы общаемся с другими людьми, играем в игры, пишем сочинения и многое другое.... Жизнь его, конечно нелегка, даже очень нелегка... Каждый день мы включаем и работаем на нем, каждый день! С утра до ночи, с ночи до утра! И кого -то иногда, а у кого - то он перетруждается... Да, именно перетруждается. И тогда он отправляется в сервис, а иногда хозяева сами его чинят. И когда он чинится, он опять начинает работать, как окаянный. Не хотел бы я оказаться на его месте. И поэтому, зная про его тяжелую долю, нужно относиться к нему бережно: чистить его ( хотя бы раз в месяц), вовремя заменять термопасту и т.д.
Плагин-это расширение или дополнение возможностей
1)
const
handsfree = false;
nmax = 50;
random_min = -50;
random_max = 50;
var
a: array[1..nmax] of real;
i, n: integer;
sum: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 1 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 1 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
sum := 0;
for i := 1 to n do
sum := sum + sqr(a[i]);
writeln('L = ', sqrt(sum));
end.
2)
const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 0 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.
Var
i,n:integer;
s:string;
a:array[1..32,1..2] of string;
begin
n:=1;
for i:=Ord('А') to Ord('Я') do
begin
Str(i,s);
a[n,1]:=Chr(i)+' - '+s;
Inc(n);
end;
n:=1;
for i:=Ord('а') to Ord('я') do
begin
Str(i,s);
a[n,2]:=Chr(i)+' - '+s;
Inc(n);
end;
for i:=1 to 32 do writeln(a[i,1],' ',a[i,2])
end.
<em><u>Результат выполнения программы в среде PascalABC.Net</u></em>
А - 192 а - 224
Б - 193 б - 225
В - 194 в - 226
Г - 195 г - 227
Д - 196 д - 228
Е - 197 е - 229
Ж - 198 ж - 230
З - 199 з - 231
И - 200 и - 232
Й - 201 й - 233
К - 202 к - 234
Л - 203 л - 235
М - 204 м - 236
Н - 205 н - 237
О - 206 о - 238
П - 207 п - 239
Р - 208 р - 240
С - 209 с - 241
Т - 210 т - 242
У - 211 у - 243
Ф - 212 ф - 244
Х - 213 х - 245
Ц - 214 ц - 246
Ч - 215 ч - 247
Ш - 216 ш - 248
Щ - 217 щ - 249
Ъ - 218 ъ - 250
Ы - 219 ы - 251
Ь - 220 ь - 252
Э - 221 э - 253
Ю - 222 ю - 254
Я - 223 я - 255
if M[a, 4+1-a] < M[min, min]
then min := M[a, 4+1-a]
- у тебя в матрице рандомные числа максимум до 10, ты назначаешь их в min и max, а потом эти min и max пытаешься использовать как индексы.
Заведи отдельные переменные для сохранения индексов, например imin и imax и пользуйся ими, например как-то так:
for a := 1 to 4 do
if M[a, 4+1-a] < M[imin, imin]
then begin
min := M[a, 4+1-a];
imin := a;
end
По поводу параметра цикла не уверен, возможно в Pascal.ABC есть какие-то особенности по сравнению с обычным паскалем. Нашел вот такое:
"Описание параметра цикла for в заголовке цикла соблюдает принцип локальности: переменная описывается в том месте, где она впервые понадобилась
begin
for i: integer := 1 to 9 do
write(i,' ');
// Здесь переменная i не доступна!
for var i := 9 downto 1 do // описание с автоопределением типа
write(i,' ');
end."