JIy4ik
1

Текстовый файл. Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и записать в новый файл

01.06.2012, 14:22. Показов 5926. Ответов 3
Метки нет (Все метки)

Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и записать её в новый файл.

помогите пожалуйста!!завтра сдавать!!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2012, 14:22
Ответы с готовыми решениями:

Дан текстовый файл, в котором записана последовательность целых чисел. Записать в новый файл только четные из них
Дан текстовый файл, в котором записана последовательность целых чисел. Записать в новый файл только...

Записать в текстовый файл К целых чисел. Найти произведение наибольшего и наименьшего из чисел
Записать в текстовый файл К целых чисел. Найти произведение наибольшего и наименьшего из чисел.

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

Дан текстовый файл с действительными числами. Найти сумму его элементов с четными номерами и записать в новый файл
Дан текстовый файл с действительными числами. Найти сумму его элементов с четными номерами и...

3
Нет ТЗ - давай досвидания
745 / 376 / 64
Регистрация: 01.12.2011
Сообщений: 2,250
01.06.2012, 15:16 2
Вот держи
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
const n=10;
var
  f:Text;
  i:byte;
  b:string;
  min,max,x,k:integer;
begin
  assign(f,'d:\in.txt');
  rewrite(f);
  randomize;
  for i:=1 to n do
    writeln(f,random(40));
  close(f);
 
  assign(f,'d:\in.txt');
  reset(f);
  readln(f,b);
  val(b,min,k);
  close(f);
 
  max:=0;
 
  assign(f,'d:\in.txt');
  reset(f);
  while not EOF(f) do
    begin
      readln(f,b);
      val(b,x,k);
      if x>max then max:=x;
      if x<min then min:=x;
    end;
  close(f);
  writeln(min,max);
  assign(f,'d:\out.txt');
  rewrite(f);
  writeln(f,min);
  writeln(f,max);
  close(f);
end.
Добавлено через 1 минуту
Долго не мог вспомнить функцию преобразования строки в число. На дельфи и то проще.
1
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
01.06.2012, 15:45 3
Metallnote, не думаю, что есть нужда в преобразовании строки в число. да и max:=0 довольно рискованно, вдруг файл окажется заполненным только отрицательными элементами (=))
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
uses crt;
var f,g: text;
    i,n,max,min: integer;
begin
randomize;
assign(f,'D:\in.txt');
assign(g,'D:\out.txt');
rewrite(f);
for i:=1 to 20+random(20) do
    begin
    n:=random(199)-99;
    writeln(f,n);
    end;
writeln('Файл заполнен случайным количеством случайных чисел');
reset(f);
readln(f,n);
min:=n; max:=n;
while not (eof(f)) do
      begin
      readln(f,n);
      if n<min then min:=n;
      if n>max then max:=n;
      end;
rewrite(g);
write('Сумма min и max=',min+max);
write(g,min+max);
close(f);
close(g);
readln;
end.
1
Нет ТЗ - давай досвидания
745 / 376 / 64
Регистрация: 01.12.2011
Сообщений: 2,250
01.06.2012, 18:07 4
Цитата Сообщение от КонецСвета Посмотреть сообщение
не думаю, что есть нужда в преобразовании строки в число.
Хм, странно. Почему?0_о Я всегда считал, что в текстовых файлах хранится строковый тип, поэтому и преобразования делал.


Добавлено через 9 минут
Цитата Сообщение от КонецСвета Посмотреть сообщение
вдруг файл окажется заполненным только отрицательными элементами (=))
Ну у меня там положительные Само собой нужно из текстового файла брать значения.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2012, 18:07

Записать 60 случайных чисел в типизированный файл,переписать по 6 чисел в строке в текстовый файл
ЗАДАНИЕ: записать 60 случайных чисел в типизированный файл,переписать по 6 чисел в строке в...

Дан файл действительных чисел. Найти сумму наибольшего и наименьшего компонент
Дан файл f ,компоненты которого являются действительными числами . Найти сумму наибольшого и...

Файл H заполнить целыми числами, полученными помощью генератора случайных чисел. В файл M записать значение файла H, кратное 5
1) Файл H заполнить целыми числами, полученными помощью генератора случайных чисел. В файл M...

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

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

Найти сумму компонент с четным значением и записать в новый файл те из них, значения которых превышают 4
Создать файл целых чисел. Найти сумму компонент с четным значением и записать в новый файл те из...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.