Задание 3 (двухмерный массив)
var
a:array [1..10,1..7] of integer;
k,i,j:integer;
begin
randomize;
for i:=1 to 10 do begin
for j:=1 to 7 do begin
a[i,j]:=random(9)+1;
write (a[i,j]:4);
if a[i,j] mod 2 <> 0 then k:=k+1;
end;
writeln;
end;
writeln ('Количество нечетных элементов массива = ',k);
readln;
end.
Задание 2 (двухмерный массив)
uses crt;
const
a:array [1..5,1..5] of integer = ((100,101,102,103,104),
(200,201,202,203,204),
(300,301,302,303,304),
(400,401,402,403,403),
(500,501,502,503,504));
var
i,j:integer;
begin
clrscr;
for i:=1 to 5 do begin
for j:=1 to 5 do
if j mod 2 = 0 then begin
textcolor (12);
write (a[i,j]:4);
textcolor (7);
end else begin
textcolor (9);
write (a[i,j]:4);
textcolor (7);
end;
writeln;
end;
readln;
end.
Задание 1 (одномерный массив)
uses crt;
var
a:array [1..7] of integer;
i,sum:integer;
begin
clrscr;
for i:=1 to 7 do begin
write ('A[',i,'] = ');readln(a[i]);
if a[i]>0 then sum:=sum+a[i];
end;
for i:=1 to 7 do
if a[i]>0 then begin
textcolor (red);
write (a[i]:4);
end else begin
textcolor (blue);
write (a[i]:4);
end;
writeln;
textcolor (darkgray);
writeln ('Сумма положительных элементов = ',sum);
readln;
end.
Задание 4 (одномерный массив)
uses crt;
var
a:array [1..12] of integer;
i,buf,min,max:integer;
begin
clrscr;
randomize;
a[1]:=random(14)+1;
min:=1;
max:=2;
writeln ('Исходный массив: ');
write (a[1]:4);
for i:=2 to 12 do begin
a[i]:=random(14)+1;
write (a[i]:4);
if a[i]>a[max] then max:=i else
if a[i]<a[min] then min:=i;
end;
writeln;
{смена 1-ого и последнего эл}
buf:=a[1];
a[1]:=a[12];
a[12]:=buf;
{смена 2-ого и мин эл}
buf:=a[2];
a[2]:=a[min];
a[min]:=buf;
{смена 1-ого и макс эл}
buf:=a[1];
a[1]:=a[max];
a[max]:=buf;
writeln ('Результирующий массив:: ');
for i:=1 to 12 do write (a[i]:4);
writeln;
readln;
end.
Задание 3 (одномерный массив)
var
a,b:array [1..10] of integer;
i,j:integer;
s1,s2:real;
begin
randomize;
s1:=0;
s2:=0;
writeln;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
b[i]:=random(19)-9;
write (a[i]:4);
s1:=s1+a[i];
s2:=s2+b[i];
end;
writeln;
for i:=1 to 10 do write (b[i]:4);
writeln;
s1:=s1/10;
s2:=s2/10;
if s1>s2 then writeln ('S1 > S2') else
if s1<s2 then write ('S1 < S2') else writeln ('S1 = S2');
readln;
end.
1. Двічі клацаємо лівою кнопкою миші на формулі в Word – документі для відкриття вікна додатка MathType
2. Вибираємо в меню пункт Установки -> Вырезание и копирование…
3. Переставити радіокнопку на MathML or TeX .
4. Для економії місця прибрати галочки з обох підпунктів --- Include translator name in translation і Include MathType data in translation. 5. Натиснути OK. Ці налаштування зберігаються і в нових сесіях роботи з текстовим редактором Word.
Для копіювання будь-якої формули необхідно: 1. Виділити цю формулу (наприклад, одним натисканням на формулі лівою кнопкою миші)
2. Вибираємо в меню додатка Word пункт Формула -> Переключить в Tex (Рис.5) (або комбінацію “Alt + \”). Вказані кнопка та комбінація працюють як перемикачі: повторне натискання приводить до початкового виду формули
3. Копіюємо код формули в форматі Tex (“Ctrl + C”). 4. Переходимо до вікна редагування тестів в системі JetIQ, клацаємо лівою кнопкою миші в місті введення формули та клацанням лівою кнопкою миші на символі відкриваємо вікно вбудованого редактора Tex «Математика у Tex»
5. Клацати лівою кнопкою миші у верхній половині вбудованого вікна «Математика у Tex», де стандартно записаний код для формули коренів повного квадратного рівняння, не обов’язково, оскільки воно вже активне. Виділяємо весь текст (наприклад, “Ctl + A”) та вставляємо формулу з буферу обміну (“Ctl + V”)
6. В нашому прикладі, в нижній половині вікна «Математика у Tex» з’явилася потрібна формула, що оформлена з відповідним дизайном. З обох сторін формули знаходяться по два символи, виділені червоним кольором \[ та \]. Ці символи необхідно видалити вручну в коді формули, що розміщений у верхній (текстовій) половині цього вікна
7. Тиснемо кнопку «ОК» і отримаємо готову формулу в тексті поточного питання тестів
8. Розмір шрифту формул можна міняти за до тієї самої кнопки, що і для шрифту тексту. Зауваження. 1. Отже, запропоновано б перенесення формул, що набрані за до в Word-документі, у вбудований в систему JetIQ додаток Tex. Цей б створений на основі аналізу інтернет-рекомендацій та власних експериментів. Цілком можливо, що існують більш ефективн Код формули в синтаксисі Tex, що отриманий під час конвертації з Mathtype, часто є більш громіздким, ніж це можна б було зробити вручну, але на зовнішній вигляд формули, в більшості випадків, це не впливає. 3. З обох сторін формули можуть з’явитися інші зайві символи, ніж в нашому прикладі (див. п. 7). Крім цього, виникають й інші ситуації, зокрема описані в наступному пункті. 4. В деяких випадках зовнішній вигляд формули не є найкращим, наприклад, див. рис
Набрана вручну ця формула має вигляд, що повністю збігаєтся з традиційним записом границь
Все одно, практика показала, що запропонований б стане в нагоді в багатьох випадках.
