Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
2 / 2 / 0
Регистрация: 07.11.2012
Сообщений: 26
1

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

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

Создать файл, содержащий не более 50 случайных целых
чисел. Записать в новый файл и вывести на экран максимальное и
минимальное числа.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.01.2013, 12:37
Ответы с готовыми решениями:

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

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

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

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

1
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
17.01.2013, 14:03 2
Лучший ответ Сообщение было отмечено 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2013, 14:03

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru