Лабораторная работа № 4. Excel 2. Создание автоматических таблиц для расчетов в Excel 14
15
область ввода
Начальное значение по вертикали
11
Начальное значение по горизонтали
11
Шаr по вертикали
0,5
Шаr nо горизонтали
0,5
область вычислений
11,5 12 12,5 13 13,5
121 126,5 132 137,5 143 148,5
11,5 126,5 132,25 138 143,75 149,5 155,25
12 132 138 144 150 156 162
12,5 137,5 143,75 150 156,25
162,5
168,75
13
143 149,5 156 162,5 169 175,5
13,5 148,5 155,25 162 168,75 175,5 182,25
14
154 161 168 175
189
14,5 159,5 166,75 174 181,25 188,5 195,75
15
172,5
187,5 195 202,5
178 25 186 193,75 201,5 209,25
154
161
168
14,5
159,5
166,75
174
181,2,
1885
193, 75
15
15,5
170,5
178,25)
196
193,75
201,5
09,25
217
224,75
232.5
165
12,5
180
187,5
195
202,5
210
217,5
225
182
183
16
182
203
13
210
20.25
217,5
224,75
165
180
217
2325
240.5
170 S​

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.

Var   a: array[1..20,1..20] of integer;   n,m,i,j,min,jm,x: integer; begin   randomize;   write('Введите размеры массива: ');   readln(n,m);   writeln('Исходный массив:');   for i:=1 to n do   begin     for j:=1 to m do     begin       a[i,j]:=random(19)-9;       write(a[i,j]:4);     end;     writeln;   end;   min:=0;   for i:=1 to n do min:=min+a[i,1];   writeln('Сумма элементов 1-го столбца = ',min);   jm:=1;   for j:=2 to m do   begin     x:=0;     for i:=1 to n do       x:=x+a[i,j];     writeln('Сумма элементов ',j,'-го столбца = ',x);     if x<min then     begin       min:=x;       jm:=j;     end;   end;   writeln('Минимальная сумма в ',jm,'-м столбце');   writeln('Полученный массив:');   for i:=1 to n do   begin     for j:=1 to m do     begin       if j<>jm then a[i,j]:=a[i,jm];     write(a[i,j]:4);     end;     writeln;   end;   readln; end.