Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Что такое ОПИСАТЕЛЬ ? https://www.cyberforum.ru/ pascal/ thread593287.html
Подскажите что такое описатель и с чем его едят.....(google молчит) Добавлено через 3 часа 52 минуты help help
Pascal ГИА по информатике
Вот задача :) Расчитываю на вашу помощь :)
Pascal Работа по текстовым файлам. Найти сумму элементов массива, записать ее в новый файл Из текстового файла переписать данные в одномерный массив, найти сумму элементов массива, записать ее в новый файл. помогите пожалуйста!!! https://www.cyberforum.ru/ pascal/ thread592974.html Pascal Матрица. Найти минимальный элемент и и заполнить единицами строку и столбец, на пересечении которых он находится https://www.cyberforum.ru/ pascal/ thread592955.html
Матрица B состоит из 6 строк и 5 столбцов. Найти минимальный элемент и и заполнить единицами строку и столбец,на пересечении которых он находиться
Текстовый файл. Сколько слов в каждой строке Pascal
Дан файл, содержащий русский текст. Сколько слов в каждой строке помогите пожалуйста. очень надо прям край
Pascal Pascal Graph, глюк с прямоугольником https://www.cyberforum.ru/ pascal/ thread592851.html
Проблема в том что после того как я несколько раз стреляю в разные стороны, у меня он не стреляет, заранее благодарю! program tanki; uses crt, graph; var gd, gm, ax, ay, bx, by, px, py,...
Pascal Определение функций 1 Определить функцию для расчета факториалов. 2*5!+3*8!/6!+4! 2 Есть 2 предложения найти общее количество букв "н" в них. Определить функцию для расчета количества букв "н". https://www.cyberforum.ru/ pascal/ thread592850.html Ряды, табуляция Pascal
1. Дано n-целое. найти:sqrt{n+sqrt{n+...+sqrt{n}}} Помогите, пожалуйста. Кто понимает.:-| кто-нибудь знает?
Pascal Работа с текстовыми файлами. Произвольные символы заменить на символы, введенные с клавиатуры https://www.cyberforum.ru/ pascal/ thread592773.html
Ребята, помогите пожалуйста! Задали задачку по программированию вот условие: В выбранном текстовом файле произвольные символы заменить на символы, введенные с клавиатуры и записать получившийся...
Pascal Схема Несии-Шнейдермена програмисты вы могли бы зделать мне Схему Несии-Шнейдермена https://www.cyberforum.ru/ pascal/ thread592728.html
Построить график функции, отделить корни уравнения Pascal
Построить график функции lnx+(x+1)^5. Отделить корни уравнения аналитически и определить один из них с точностью 0,0001 во что придумал я program horda; const eps= 0.0001; var...
Pascal Даны 2 массива. Получить 3 массив, каждый элемент которого равен сумме соотвестветствующих элементов исходных 2) Даны 2 одномерных массива одинаковой длины.Получить 3 массива такой же размерности,каждый элемент которого равен сумме соотвеств. элементов данных массивов умноженной на больший из них ... https://www.cyberforum.ru/ pascal/ thread592690.html
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
01.06.2012, 15:45 0

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

01.06.2012, 15:45. Показов 6019. Ответов 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.


Вернуться к обсуждению:
Текстовый файл. Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и записать в новый файл Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2012, 15:45
Готовые ответы и решения:

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

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

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

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

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2012, 15:45

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

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

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

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

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

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

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