2 / 2 / 0
Регистрация: 07.11.2012
Сообщений: 26

Создать файл, содержащий не более 50 случайных целых чисел. Записать в новый файл и вывести на экран максимальное и минимальное числа

17.01.2013, 12:37. Показов 2616. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Создать файл, содержащий не более 50 случайных целых
чисел. Записать в новый файл и вывести на экран максимальное и
минимальное числа.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.01.2013, 12:37
Ответы с готовыми решениями:

Дан файл f, содержащий целые числа. Найти максимальное из чисел и записать результат в новый файл
Помогите со ошибкам пожалуйста ((( procedure TForm1.Button1Click(Sender: TObject); var f,nf:textfile; a:array of integer; ...

Дан файл f, содержащий целые числа. Найти максимальное из чисел и записать результат в новый файл
Дан файл f, который содержит целые числа. Найти максимальное из чисел и записать результат в новый файл. procedure...

Создать файл, содержащий не более 100 случайных целых чисел
Создать файл, содержащий не более 100 случайных целых чисел. Создать новый файл, разместив все нечетные числа в начале файла, а...

1
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
17.01.2013, 14:03
Лучший ответ Сообщение было отмечено Masox как решение

Решение

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
Var
  f,g: File of Integer;
  i,n,x,max,min: Integer;
BEGIN
Repeat
 Write('Vvedite kol-vo chisel <=50: ');
 Readln(n);
until n in [1..50];
Assign(f,'file.dat');
Rewrite(f);
Randomize;
For i:=1 to n do
begin
  x:=Random(51)-25;
  Write(f,x);
end;
max:=Low(max);
min:=High(min);
Reset(f);
Writeln;
Writeln('Fail:');
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If x>max Then
  max:=x;
  If x<min Then
  min:=x;
  Write(x,' ');
end;
Assign(g,'file2.dat');
Rewrite(g);
Write(g,max);
Write(g,min);
Reset(f);
Writeln;
Writeln('Max & Min: ');
For i:=0 to Filesize(g)-1 do
begin
  Seek(g,i);
  Read(g,x);
  Write(x,' ');
end;
Close(f);
Close(g);
Readln
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.01.2013, 14:03
Помогаю со студенческими работами здесь

Создать файл, содержащий не более 100 случайных целых чисел
Создать файл, содержащий не более 100 случайных целых чисел. Создать новый файл, разместив все нечетные числа в начале файла, а...

Создать файл случайных целых чисел типа byte и вывести из него на экран чётные числа
Создать файл случайных целых чисел типа byte и вывести из него на экран чётные числа.

Дан файл, содержащий числа. Найти в нём минимальное и максимальное число и записать их в другой файл.
Дан файл, содержащий числа. Найти в нём минимальное и максимальное число и записать их в другой файл. (Есть конечно кое-какие...

Дан файл состоящий из целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла
Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла (серией называется набор последовательно...

Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла.
Задачу нужно решить в Borland C++ 3.11 Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла...


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

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

Новые блоги и статьи
Unity 4D
GameUnited 13.06.2025
Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .
SSE (Server-Sent Events) в ASP.NET Core и .NET 10
UnmanagedCoder 13.06.2025
Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .
С днём независимости России!
Hrethgir 13.06.2025
Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .
Лето вокруг.
kumehtar 13.06.2025
Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .
Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев).
Hrethgir 12.06.2025
Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений
bytestream 12.06.2025
Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .
Dispose и Finalize в C#
stackOverflow 12.06.2025
Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .
Повышаем производительность игры на Unity 6 с GPU Resident Drawer
GameUnited 11.06.2025
Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .
Множества в Python
py-thonny 11.06.2025
В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .
Работа с ccache/sccache в рамках C++
Loafer 11.06.2025
Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru