B Практическая работа
качес
ИХ Вт
NE
Исследование чисел
Задано пятизначное число, например 54289. При исследовании вы-
полните следующие задания:
1) найдите квадрат числа;
2) найдите квадратный корень числа;
3) найдите сумму цифр в составе числа;
4) найдите среднее арифметическое цифр, составляющих число;
5) найдите наименьшее значение среди цифр, составляющих число.
Практическое задание выполним в приложении MS Excel в соответ-
ствии с рисунком 3.
1
2
со
3

Pascal

const

 nmax = 100;

var

 A: array[1..nmax, 1..nmax] of real;

 i, j, n, count: byte;

begin

 Writeln('Введите N');

 Readln(n);

 Writeln('Исходная матрица');

 count:=0;

 for i := 1 to N do

 begin

   for j := 1 to N do

   begin

     a[i, j] := (Sin(Sqr(i) - Sqr(j)) / N);

     write(A[i, j]:10:3);

     if a[i,j]> 0 then Inc(count);

   end;

   writeln;

 end;

 Writeln('Количество положительных элементов: ', count);

end.

Тестовое решение

Введите N

5

Исходная матрица

    0.000    -0.028    -0.198    -0.130     0.181

    0.028     0.000     0.192     0.107    -0.167

    0.198    -0.192     0.000    -0.131     0.058

    0.130    -0.107     0.131     0.000    -0.082

   -0.181     0.167    -0.058     0.082     0.000

Количество положительных элементов: 10

1.
a:=10;
b:=20;
c:=30;
2.
При write(a) - выведется на экран просто значение а;
При write('a') - выведется просто буква "а";
При write('a=', a) - выведется на экран, например: a=10
3. Чтобы вывести на экран число с фиксированной запятой нужно написать write(a:0:3). a - должна быть вещественного типа. 3 - означает три знака после запятой, поэтому если у вас число 1.2758234, то будет выведено на экран 1.275

4. 
a = 1;
b = 11;

5.

program pl;
var 
a, b : integer;
s, p : real;
begin
writeln("Введите первую сторону прямоугольника:");
readln(a);
writeln("Введите вторую сторону прямоугольника:");
readln(b);
p = 2*(a+b);
s = a*b;
writeln("Площадь прямоугольника равна:", s);
writeln("Периметр прямоугольника равен:", p);
end.