Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
bukin777
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 4
#1

В файл М записать значения файла К, находящихся между максимальным и минимальным элементами - Turbo Pascal

31.10.2012, 15:38. Просмотров 319. Ответов 2
Метки нет (Все метки)

Файл К заполнить целыми числами, полученными с помощью генератора случайных чисел. В файл М записать значения файла К, находящихся между максимальным и минимальным элементами.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2012, 15:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В файл М записать значения файла К, находящихся между максимальным и минимальным элементами (Turbo Pascal):

Найти разность между максимальным и минимальным элементами
Заданы матрицы L(29); M(30); Найти разность между максимальным и...

Найти разность между максимальным и минимальным элементами
L (29); M (30); Разность между максимальным и минимальным элементами.

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

Найти разницу между минимальным и максимальным элементами масива (Н7)
Найти разницу между минимальным и максимальным элементами масива (Н7)..ПОМОГИТЕ...

Определить разницу между максимальным и минимальным элементами массива
помогите пожалуйста., вообще в Паскале не шарю. 2. С клавиатуры вводится...

Найти разность между максимальным и минимальным элементами массива.
Дан массив а(n) заполненый присвоением случайным образом. Найти разность между...

2
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
01.11.2012, 02:58 #2
Лучший ответ Сообщение было отмечено bukin777 как решение

Решение

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
uses crt;
var k,m: file of integer;
    i,n,max,min: integer;
begin
assign(k,'D:\in.dta');
assign(m,'D:\out.dta');
rewrite(k);
for i:=1 to random(50)+10 do
    begin
    n:=random(199)-99;
    write(k,n);
    end;
close(k);
writeln('Файл k заполнен случайным количеством случайных чисел');
writeln('Содержимое файла k:');
i:=0;
reset(k);
while not (eof(k)) do
      begin
      inc(i);
      read(k,n);
      write(n:4);
      if i=1 then max:=n else
         if n>max then max:=n;
      if i=1 then min:=n else
         if n<min then min:=n;
      end;
writeln;
writeln('Минимальный  элемент ',min);
writeln('Максимальный элемент ',max);
reset(k);
rewrite(m);
while not (eof(k)) do
      begin
      read(k,n);
      if (n>min) and (n<max) then write(m,n);
      end;
close(k); close(m);
writeln('Содержимое файла m:');
reset(m);
while not (eof(m)) do
      begin
      read(m,n);
      write(n:4);
      end;
close(m);
readln;
end.
1
bukin777
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 4
01.11.2012, 14:31  [ТС] #3
спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2012, 14:31
Привет! Вот еще темы с решениями:

Определить количество элементов между максимальным и минимальным элементами массива
1. Дан массив целых чисел. Определить количество элементов между максимальным и...

Определить количество элементов, расположенных между минимальным и максимальным элементами
помогите с решением: В массиве 25 элементов. Определить количество...

Матрица. Найти разность между максимальным и минимальным элементами матрицы
Дана матрица,содержащая N*M вещественных чисел.Найти разность между...

Вывести элементы массива, расположенные между минимальным и максимальным элементами
№1.вычислить y=cos(x)+cos(0.2x)+cos(0.4x)+.+cos(10x) var x,y,k:real; ...


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

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

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