Контрольные задания > Program Zavdanya_3; Uses crt; Type masiv-array[1..10000) of Integer; Var F, fl:file of integer; y, R:byte; var x:integer; Procedure Stvorenna_file (var Fifile of integer); i,n:integer; Begin rewrite (F); Write ('Ñòâîðáííî õàéë ç õîçi ðí³ñòóp: '); read (n); For i:=1 Ton Do Begin x:=Random(100)-50; Write (f,x); End; Close (F); writeln; write ('Õàéë ñòâîðäíî!'); End; Procedure Pereglad file (var F:file of integer); var x: integer; Begin reset (F); Write ('Ai³ñò ôàéëó: '); While not eof(f) do begin read (f,x); write (x,' '); End; Writeln; Writeln; Write ('Õàéë ïðî÷èòàíî ïîâí³ñòp'); close (F); End; Procedure Dopovnenna_file (var F:file of integer); Var x,a,i:integer; Begin reset (f); seek (f, filesize(f)); write ('Ââåä òü ê³ëüê òü åëåìåíòâ íà yêó òðåáà çá³ëüøèòè ôàéë: '); Read (a); For i:=1 To a Do Begin x:=random(100)-50; write (F,x); End; close (f); end; Procedure Vulychenna_10 (var F:file of integer); Var Q:masiv; x:integer; a, b, c, i, v, p:integer; Begin i:=1; reset (f);
Вопрос:

Program Zavdanya_3; Uses crt; Type masiv-array[1..10000) of Integer; Var F, fl:file of integer; y, R:byte; var x:integer; Procedure Stvorenna_file (var Fifile of integer); i,n:integer; Begin rewrite (F); Write ('Ñòâîðáííî õàéë ç õîçi ðí³ñòóp: '); read (n); For i:=1 Ton Do Begin x:=Random(100)-50; Write (f,x); End; Close (F); writeln; write ('Õàéë ñòâîðäíî!'); End; Procedure Pereglad file (var F:file of integer); var x: integer; Begin reset (F); Write ('Ai³ñò ôàéëó: '); While not eof(f) do begin read (f,x); write (x,' '); End; Writeln; Writeln; Write ('Õàéë ïðî÷èòàíî ïîâí³ñòp'); close (F); End; Procedure Dopovnenna_file (var F:file of integer); Var x,a,i:integer; Begin reset (f); seek (f, filesize(f)); write ('Ââåä òü ê³ëüê òü åëåìåíòâ íà yêó òðåáà çá³ëüøèòè ôàéë: '); Read (a); For i:=1 To a Do Begin x:=random(100)-50; write (F,x); End; close (f); end; Procedure Vulychenna_10 (var F:file of integer); Var Q:masiv; x:integer; a, b, c, i, v, p:integer; Begin i:=1; reset (f);

Смотреть решения всех заданий с листа

Ответ:

Ответ: Предоставлен программный код на языке Pascal.

Краткое пояснение: Код содержит процедуры для создания, просмотра, дополнения и изменения файла, содержащего целые числа.

Описание программы

  • Program Zavdanya_3; - Объявление имени программы.
  • Uses crt; - Подключение модуля crt (вероятно, для работы с экраном).
  • Type masiv=array[1..10000] of Integer; - Определение типа данных "masiv" как массива целых чисел размером от 1 до 10000.
  • Var F, fl:file of integer; - Объявление файловой переменной F и fl для работы с файлами целых чисел.
  • y, R:byte; - Объявление переменных y и R типа byte.

Процедуры

  1. Procedure Stvorenna_file (var F:file of integer);
    • Создает файл и заполняет его случайными числами в диапазоне от -50 до 50.
    • Запрашивает у пользователя количество чисел для записи в файл.
    • Использует функцию Random(100)-50 для генерации случайных чисел.
  2. Procedure Pereglad_file (var F:file of integer);
    • Открывает существующий файл и выводит его содержимое на экран.
    • Использует цикл While not eof(f) do для чтения файла до конца.
  3. Procedure Dopovnenna_file (var F:file of integer);
    • Дополняет существующий файл новыми случайными числами.
    • Запрашивает у пользователя количество элементов для добавления.
    • Использует seek (f, filesize(f)) для перемещения указателя в конец файла.
  4. Procedure Vulychenna_10 (var F:file of integer);
    • Объявление переменных Q типа masiv (массив), x, a, b, c, i, v, p типа integer (целое число).
    • Начало процедуры, присваивание переменной i значения 1 и открытие файла для чтения с начала.

Ответ: Предоставлен программный код на языке Pascal.

Аналитик кода

Минус 15 минут нудной домашки. Потрать их на катку или новый рилс

Не будь NPC — кинь ссылку бро, который всё еще тупит над этой задачей

ГДЗ по фото 📸
Подать жалобу Правообладателю