0 / 0 / 0
Регистрация: 16.01.2019
Сообщений: 57

Сформировать типизированный файл из целых чисел, ввести в файл массив, прочитать массив, упорядочить массив по убыванию

21.01.2019, 17:27. Показов 2336. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Сформировать типизированный файл из целых чисел, ввести в файл массив, прочитать массив, упорядочить массив по убыванию, результат вывести в текстовый файл.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.01.2019, 17:27
Ответы с готовыми решениями:

Массив целых чисел из 10 элементов заполнить случайным образом. Упорядочить массив по убыванию. Найти сумму квадратов
Массив целых чисел из 10 элементов заполнить случайным образом. Упорядочить массив по убыванию. Найти сумму квадратов нечетных элементов...

Ввести массив из 12 целых чисел. Найти первое значение элемента, равное нулю и упорядочить массив
Ввести массив из 12 целых чисел. Найти первое значение элемента, равное нулю и упорядочить массив по возрастанию элементов, начиная с...

Записать в файл F1 массив отрицательных целых чисел по убыванию
Помогите написать 2 задачи в Pascal ABC 1)Записать в файл F1. d массив отрицательных целых чисел "A" по убыванию , ...

1
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
22.01.2019, 10:02
Лучший ответ Сообщение было отмечено НикиНикита как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
const
  n = 25;
 
type
  vector = array[1..n] of integer;
 
var
  a: vector;
  f: file of integer;
  g: text;
  i, j, t: integer;
 
begin
  randomize;
  assign(f, 'f.dat');
  assign(g, 'g.txt');
  rewrite(f);
  for i := 1 to n do
  begin
    a[i] := -n * n div 2 + random(n * n);
    write(f, a[i]);
  end;    
  close(f);
  reset(f);
  writeln('Типизированный файл: ');
  for i := 0 to filesize(f) - 1 do
  begin
    read(f, a[i + 1]);
    write(a[i + 1]:6);
  end;
  writeln;
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i] < a[j] then
      begin
        t := a[i];
        a[i] := a[j];
        a[j] := t;
      end;
  close(f);
  writeln;
  assign(g, 'g.txt');
  rewrite(g);
  for i := 1 to n do
    writeln(g, a[i]);
  close(g);
  reset(g);
  writeln('Текстовый файл:');
  while not eof(g) do
  begin
    readln(g, t);
    write(t:6);
  end;
  close(g);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.01.2019, 10:02
Помогаю со студенческими работами здесь

Упорядочить массив целых чисел A[10] по убыванию
Упорядочить массив целых чисел A по убыванию.

Сформировать одномерный массив из 20 целых чисел, записать его в файл
И Считать из этого файла массив B(7), найти произведение отрицательных элементов и их номера. Написанное мной не работает никак, очень...

Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке
program viweglavnoidiagonaali; var f:file of integer; i,bi,k,d,z,z1,a,b,x,y:integer; begin writeln('x '); for I:=1 to 2 do begin...

Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке
Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке

Упорядочить вставкой массив целых чисел по убыванию
Упорядочить вставкой массив целых чисел по убыванию


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

Новые блоги и статьи
Трассировка корутин Kotlin с OpenTelemetry
mobDevWorks 14.07.2025
Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
Облачные приложения на Rust: руководство по архитектуре микросервисов
golander 13.07.2025
Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .
Как Node.js выполняет асинхронные операции
Reangularity 13.07.2025
Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .
Как писать чистый, тестируемый и качественный код на Python
py-thonny 12.07.2025
Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
Изучаем новый шаблон ИИ-чата .NET AI Chat Web App
stackOverflow 10.07.2025
В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .
Результаты исследования от команды ARP (июль 2025 г.)
Programma_Boinc 10.07.2025
Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .
Angular vs Svelte - что лучше?
Reangularity 09.07.2025
Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework
UnmanagedCoder 09.07.2025
Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru