Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 09.04.2020
Сообщений: 33

В файле g записать все числа кратные 3

09.04.2020, 15:03. Показов 987. Ответов 1

Студворк — интернет-сервис помощи студентам
Вот прошлая тема Получить в файле g все четные компоненты файла f, а в файле h - все нечетные , к ней такое задание
Задание 2. Внесите изменения в программу: в файле g записать все числа кратные 3 и сохраните программу с другим имением.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.04.2020, 15:03
Ответы с готовыми решениями:

Записать в файл В все числа,кратные N
дан текстовый файл А,содержащий целые числа.Записать в файл В все числа,кратные N

Записать во множество S2 все числа из S1 кратные 6
1. Задача: Есть множество S1 от 1 до 200. Записать во множество S2 все числа из S1 кратные 6. Я написал программу, но без использования...

Найти третий массив, в который записать сначала все кратные 4 элементы первого массива, а затем все кратные 3
4.Элементы двух массивов – целые числа в пределах от 4 до 29. Найти третий массив, в который записать сначала все кратные 4 элементы...

1
2374 / 776 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
09.04.2020, 21:21
Создайте новую папку и поместите исполняемый файл этой программы в неё.
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
56
57
58
59
60
61
62
63
64
65
66
67
68
program Project2;
 
uses
  CRT;
const
  filename1 = 'filef.dat';
  filename2 = 'fileg.dat';
  filename3 = 'fileh.dat';
 
type
  TfileInt = file of integer;
 
 
procedure InfoOutFile(var ff: TfileInt);
{Процедура для вывода информации из файла в консоль}
var
  a: integer;
begin
  reset(ff);
  while not eof(ff) do
    begin
      read(ff,a);
      Write(a,' ');
    end;
  Close(ff);
end;
 
 
var
  f,g,h: TfileInt;   { Файловые переменные}
  i: integer;        { Вспомогательная переменная для организации циклов}
  a: integer;        { Промежуточная переменная для переноса информации}
begin
  clrscr;
  assign(f,filename1);    {Связывание файловой переменной с именем файла}
  assign(g,filename2);
  assign(h,filename3);
  rewrite(f);               {Установка файла f в режим записи}
  for i:= 1 to random(20)+10 do
    begin
      a:= random(199)-99;        { Заполнение массива случайными числами}
      write(f,a);
    end;
  Close(f);                      {Закрытие файла}
  writeln('Исходный файл:');
  InfoOutFile(f);
  reset(f);           {Установка файла f в режим чтения}
  rewrite(h);         {Установка файла h в режим записи}
  rewrite(g);         {Установка файла g в режим записи}
  while not eof(f) do       { Цикл с предусловием: пока не достигнут конец файла ... }
    begin
      read(f,a);           { Чтение информации из файла f и присвоение значения промежуточной переменной}
      if a mod 3 = 0 then  { Условие для поиска элементов файла f кратных трем}
        write(g,a);         { Запись найденных элементов в файл g}
      if a mod 2 <> 0 then { Условие для поиска нечетных элементов файла f}
        write(h,a);          { Запись найденных элементов в файл h}
    end;
  close(f);                  {Закрытие файла}
  close(g);
  close(h);
  writeln;
  writeln('Файл чисел кратных трем:');
  InfoOutFile(g);                {Вывод информации из файла с помощью подпрограммы}
  writeln;
  writeln('Файл нечетных чисел:');
  InfoOutFile(h);                {Вывод информации из файла с помощью подпрограммы}
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
09.04.2020, 21:21
Помогаю со студенческими работами здесь

Из текстового файла записать в файл целых чисел все числа кратные заданному K
Добрый вечер! Помогите написать код на Паскале,.

Напечатайте все двухзначные числа, которые кратные 5 и не кратные 3
в паскаль. помогите пожалуйста 1) Напечатайте все двухзначные числа, которые кратные 5 и не кратные 3.

Дан массив из указателей на целые числа, вывести все члены данного массива, кратные 3, кратные 5
Дан массив из указателей на целые числа вывести все члены данного массива кратные 3 , кратные 5 Заранее благодарю.

Записать в файл g все числа из заданного массива, кратные 3; найти ошибки в коде
Задача следующая: Создать файл f, содержащий одномерный массив из 10 целых чисел. Записать в файл g все числа из этого массива, кратные 3....

В текстовом файле хранится целочисленная матрица. Заменить в ней все числа, кратные 7, наибольшим значением матрицы
В текстовом файле хранится целочисленная матрица. Заменить в ней все числа, кратные 7, наибольшим значением матрицы. Исходные текстовые...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru