Question

Pascal ABC.Задайте массив из файла, в котором будут размещены однозначные цифры Вашей даты рождения. Например, Вы родились 5 ноября 1990 года, но массив будет выглядеть следующим образом: 0,5,1,1,1,9,9,0. Отсортируйте данный массив, посчитайте сумму его элементов и среднее арифметическое. Результат сохраните в файл.

Answer 1

Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". В первый записываешь 8 чисел без пробелов и запятых ("22031991", например).


type  matrix = array [1..8] of integer;var  F, output: text;  i, n, cc, sum: integer;  c: char;  x: matrix;  ma: real;
procedure convert (var c: char; var cc: integer);begin  if c='1' then cc:=1;  if c='2' then cc:=2;  if c='3' then cc:=3;  if c='4' then cc:=4;  if c='5' then cc:=5;  if c='6' then cc:=6;  if c='7' then cc:=7;  if c='8' then cc:=8;  if c='9' then cc:=9;  if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin  for n:=1 to 7 do begin    if x[n]>x[n+1] then swap(x[n],x[n+1]);  end;end;
begin  Assign(F, '1.txt');  Reset(F);  for i:=1 to 8 do begin    read(F, c);    convert(c,cc);    x[i]:=cc;  end;  Close(F);
  sorting(n,x);  sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8];  ma:=sum/8;    Assign(output, 'output.txt');  rewrite(output);  writeln(output, sum); writeln(output, ma);  Close(output);end.

Answer 2

Для начала создадим файл "birthdate.txt" и запишем в него однозначные цифры своей даты рождения. Например, если я родился 5 ноября 1990 года, то файл будет содержать следующие цифры: 0,5,1,1,1,9,9,0.

Теперь напишем программу на языке Pascal ABC, чтобы прочитать этот файл, создать массив из его содержимого, отсортировать массив, посчитать сумму его элементов и среднее арифметическое, а затем сохранить результаты в другой файл.

Вот пример программы на Pascal ABC:

program BirthdateArray;

var
  inputFile, outputFile: text;
  i, sum, average: real;
  birthdateArray: array[1..8] of integer;

begin
  // Открываем файл для чтения
  assign(inputFile, 'birthdate.txt');
  reset(inputFile);

// Считываем цифры из файла и записываем их в массив
  for i := 1 to 8 do
  begin
    read(inputFile, birthdateArray[i]);
  end;

// Закрываем файл
  close(inputFile);

// Сортируем массив
  for i := 1 to 8 do
  begin
    for j := i + 1 to 8 do
    begin
      if birthdateArray[i] > birthdateArray[j] then
      begin
        temp := birthdateArray[i];
        birthdateArray[i] := birthdateArray[j];
        birthdateArray[j] := temp;
      end;
    end;
  end;

// Вычисляем сумму элементов массива
  sum := 0;
  for i := 1 to 8 do
  begin
    sum := sum + birthdateArray[i];
  end;

// Вычисляем среднее арифметическое
  average := sum / 8;

// Открываем файл для записи
  assign(outputFile, 'result.txt');
  rewrite(outputFile);

// Записываем результаты в файл
  writeln(outputFile, 'Сумма элементов массива: ', sum);
  writeln(outputFile, 'Среднее арифметическое: ', average);

// Закрываем файл
  close(outputFile);
end.

После выполнения этой программы в файле "result.txt" будет содержаться сумма элементов массива и их среднее арифметическое.