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

@dimon_13 · Регистрация: 23.12.2008

Author24 — интернет-сервис помощи студентам

Указатели:
1) Используя один просмотр текстового файла, вывести сначала содержащиеся в нем цифры, затем остальные символы. (нужно использовать динамическую структуру).

Файлы:
2) type numbers=0..99; fnum=file of number;
программа, содержащая логическую функцию range (var f2:fnum) проверяет, упорядочены ли по возрастанию элементы файла типа numbers.

3)дано целое число M, вещественное число X. Вещественные картежи A,B[1..M], C[1..M+5] картеж имеющий наименьшее кол-во отрицательных компонент (в предположении что такой картеж только один), домножить на значение R, где R=X для картежа A, R=SQR(X) для картежа B и R = X/10 для картежа С

@Evklid · 23.12.2008, 21:41

Вот код самой второй проги:

Code
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
program cyb_59;
uses
 Crt;
type
 numbers = 0..99;
 fnum = file of numbers;
var
 f1: fnum;
function Range(var f2: fnum):boolean;
var
 x0, x1: numbers;
begin
 ClrScr;
 Range:= true;
 read(f2,x0);
 while not Eof(f2) do
  begin
   read(f2,x1);
   if x1 < x0 then
    begin
     Range:= false;
     break;
    end;
   x0:= x1;
  end;
end;
begin
 assign(f1,'input.num');
 reset(f1);
 if Range(f1) then
  writeln('Uporiadochenu')
 else
  writeln('Ne uporiadochenu');
 close(f1);
 readln;
end.

А это код проги, которая создает в текущем каталоге типизированный файл с именем input.num, так что кинь их обе в одну папку:

Code
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
program cyb_59_1;
uses
 Crt;
type
 numbers = 0..99;
 fnum = file of numbers;
var
 f1: fnum;
 k: numbers;
 n, i: word;
begin
 ClrScr;
 write('Vvedite kol-vo komponent faila: ');
 readln(n);
 writeln('Vvedite komponentu faila: ');
 assign(f1,'input.num');
 rewrite(f1);
 for i:= 1 to n do
  begin
   read(k);
   write(f1,k);
  end;
 readln;
 close(f1);
 writeln('Fail s komponentami uspeshno sozdan');
 readln;
end.

@dimon_13 · 23.12.2008, 21:45 **[ТС]**

а третье не вариант сделать?

Новые блоги и статьи Все статьи Все блоги /
Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .	Система статов в Unity GameUnited 20.04.2025 Статы — фундаментальный элемент игрового дизайна, который определяет характеристики персонажей, предметов и других объектов в игровом мире. Будь то показатель силы в RPG, скорость передвижения в. . .	Статические свойства и методы в TypeScript run.dev 20.04.2025 TypeScript прочно занял своё место в системе современной веб-разработки. Этот строго типизированный язык программирования не просто расширяет возможности JavaScript — он делает разработку более. . .	Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .
Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .	Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .	Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .	Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .

@dimon_13 0 / 0 / 0 Регистрация: 23.12.2008 Сообщений: 22

	Используя один просмотр текстового файла, вывести сначала содержащиеся в нем цифры, затем остальные символы. 23.12.2008, 20:50. Показов 1115. Ответов 2 Метки нет (Все метки) Указатели: 1) Используя один просмотр текстового файла, вывести сначала содержащиеся в нем цифры, затем остальные символы. (нужно использовать динамическую структуру). Файлы: 2) type numbers=0..99; fnum=file of number; программа, содержащая логическую функцию range (var f2:fnum) проверяет, упорядочены ли по возрастанию элементы файла типа numbers. 3)дано целое число M, вещественное число X. Вещественные картежи A,B[1..M], C[1..M+5] картеж имеющий наименьшее кол-во отрицательных компонент (в предположении что такой картеж только один), домножить на значение R, где R=X для картежа A, R=SQR(X) для картежа B и R = X/10 для картежа С 0

@dimon_13 0 / 0 / 0 Регистрация: 23.12.2008 Сообщений: 22
	23.12.2008, 21:45 [ТС]
	а третье не вариант сделать? 0

Опции темы