lider-mpl550
?>

Написать программу, которая выводит на экран квадраты первых 10 целых положительных чисел.

Информатика

Ответы

DVOct33
Program aspfoj; 
var i, a:integer; 
begin
a:=1; 
for i:=1 to 10 do begin
writeln (a*a); 
a:=i+1; end; 
end. 
bchukhraev79

Особенности Windows:

Правила написания программы. Для работы в среде Windows программа должна быть написана по определенным правилам, существенно отличающимся от принятых в MS-DOS.

Windows позволяет запускать и программы, написанные для MS DOS, но при этом программы не могут использовать преимущества Windows.

Графический интерфейс пользователя в Windows основан на идее оконного интерфейса, принятого так же и в ряде других современных ОС (например, UNIX). Каждая программа имеет собственное окно, в котором и происходит обмен сообщений с пользователем. Для наглядности в Windows широко применяются иконки (пиктограммы), изображающие отдельные программы.

Кроме того, интерфейс Windows в значительной степени стандартизирован, что облегчает пользователям процесс освоения новых порограмм.

Многозадачость. Многозадачный режим работы позволяет запускать одновременно несколько приложений, например, текстовый процессор, базу данных, игру и переключаться между ними.

Обмен данными между приложениями. Кроме того возможен обмен данными между приложениями, что позволяет, например, информацию созданную в электронной таблице, перенести в текстовый документ через буфер обмена.

Объяснение:

 

Тенденции развития ОС на современном этапе

1. Развитие ОС происходит непрерывно по стадиям, этапам и фазам в зависимости от значимости достижений, новых технологий и разработок в аппаратном обеспечении компьютеров, периферийных устройств и коммуникаций.

2. Число конкурирующих ОС уменьшилось, выявились лидеры.

3. Свойства конкурирующих ОС сближаются.

4. Выделен ряд свойств, которыми должны обладать все системы.

5. Темпы разработки новых версий ОС увеличиваются, сокращая интервал выпуска до 1 – 2 лет.

6. Новая версия ОС, появляющаяся раньше новых версий конкурентов, может раньше захватить рынок, но обычно собирает всю критику конкурентов, друзей и врагов.

7. Новая версия ОС, выходящая последней, не только может учесть все ошибки и просчеты конкурентов, но и обязана сделать это.

vkaloshin
Const
  n = 6;

var
  b: array[1..n, 1..n] of integer;
  a: array[1..n] of integer;
  i, j, s1, s2, max: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  //max := -777; {заведомо меньше меньшего}
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      b[i, j] := Random(101) - 50;
      Write(b[i, j]:4)
    end;
    Writeln
  end;
 
  s1 := 0; s2 := 0;
  for i := 1 to n do begin s1 := s1 + b[1, j]; s2 := s2 + b[j, j] end;
  if s1 > s2 then begin
    Writeln('Сформированный массив');
    for i := 1 to n do
    begin
      max := b[i, 1];
      for j := 2 to n do if max < b[i, j] then max := b[i, j];
      a[i] := max;
      Write(max:4)
    end
  end
  else begin
    s1 := 0; s2 := 0;
    for i := 1 to n do
      for j := 1 to n do
        if b[i, j] > 0 then s1 := s1 + b[i, j]
        else s2 := s2 + b[i, j];
    Writeln('Среднее арифметическое положительных элементов= ', s1/n);
    Writeln('Среднее арифметическое отрицательных элементов= ', s2/n);
  end
end.

Тестовые решения:
Исходный массив
 -32  38 -10  42 -30 -35
 -13 -22  14  -2 -42   0
 -38  18  29  39 -26  19
  15  23  -4 -31  21   8
 -36  13 -26  -6 -13 -10
 -11  38  40  11 -10 -22
Среднее арифметическое положительных элементов= 61.3333333333333
Среднее арифметическое отрицательных элементов= -69.8333333333333

Исходный массив
 -37 -22  38  25 -23  21
 -33 -50  32  42  -1   7
   9  29  -9  21  29  -4
  50  13 -33 -13 -47  10
  25  46  18  47  15  48
 -48  12 -39  -8  34  14
Сформированный массив
  38  42  29  50  48  34

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу, которая выводит на экран квадраты первых 10 целых положительных чисел.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

карпова581
ivanpetrovichru1801
milkiev
Yevgenevich775
Джулия
Borg Fedak1162
oyunabaduraeva
anikamalish
miha23727
Chausmonk4
fokolimp
nash-crimea2019
Alnkseevna
Anatolevich667
rusart3