Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 15, средняя оценка - 4.73
yulia2012
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 48
#1

Записать в новый файл в порядке возрастания целые числа - Pascal ABC

05.03.2012, 08:15. Просмотров 2022. Ответов 18
Метки нет (Все метки)

Записать в файл N Целых чисел. Записать в новый файл в порядке возрастания целые числа, большие минимального элемента и меньшие максимального элемента исходного файла
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.03.2012, 08:15
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Записать в новый файл в порядке возрастания целые числа (Pascal ABC):

Вывести в порядке возрастания все целые числа, между A и B - Pascal ABC
Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, рас-положенные между A и B(в том числе A и B), a также...

Вывести в порядке возрастания все целые числа, расположенные между А и В - Pascal ABC
Даны два целых числа А и В (А < В). Вывести в порядке возрастания все целые числа, расположенные между А и В (в том числе А и В), а также...

Вывести в порядке возрастания все целые числа, расположенные между A и B - Pascal ABC
Integer10. Дано трехзначное число. Вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки). ...

Вывести в порядке возрастания все целые числа, расположенные между A и B - Pascal ABC
Даны два целых числа A и B (A<B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами...

Вывести в порядке возрастания все целые числа расположенные между А и В - Pascal ABC
{Даны два целых числа А и В(АВ) Вывести в порядке возрастания все целые числа расположенные между А и В(включая сами числа А и В) а...

В порядке возрастания напечатать все целые числа, которые представимы в заданном виде - Pascal ABC
в порядке возрастания напечатать все целые числа,которые представимы в виде 3ij+1,но непредставимы в виде n^3+k^3 (i,j,n,k >= 0). как...

18
yulia2012
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 48
10.05.2012, 14:43  [ТС] #16
приношу свои извинения)
0
КонецСвета
Почетный модератор
7924 / 3894 / 940
Регистрация: 30.10.2011
Сообщений: 5,379
10.05.2012, 15:40 #17
yulia2012, спасибо за понимание...
0
yulia2012
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 48
15.05.2012, 19:16  [ТС] #18
помоги пожалуйста составить программу
0
КонецСвета
Почетный модератор
7924 / 3894 / 940
Регистрация: 30.10.2011
Сообщений: 5,379
15.05.2012, 20:40 #19
yulia2012, а в чем проблема с программами Puporev и WebMax 2.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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
var n,i,max,min: integer;
    f,g: file of integer;
begin                                       //ассоциирую переменную с файлом
assign(f,'C:\in.dta');
assign(g,'C:\out.dta');
rewrite(f);                                 //открываю для записи
for i:=1 to 20+random(20) do                //в цикле с параметрами заполняю случайными числами
    begin
    n:=random(199)-99;
    write(f,n);
    end;
writeln('Компоненты исходного файла');
reset(f);                                       //открывааю для чтения
read(f,n);                                      //считываю первый компонент, присваиваю его значение
max:=n; min:=n;                                  //и максимуму и минимуму
reset(f);
while not (eof(f)) do                          //в цикле с предусловием пока не закончится файл
      begin
      read(f,n);                              //считываю переменные, сравниваю с мин и макс если больше, то меняю на новое значение макс, если меньше, то наоборот
      write(n:5);
      if n>max then max:=n;
      if n< min then min:=n;
      end;
writeln;
writeln('Максимальный элемент ',max);
writeln('Mинимальный элемент  ',min);
rewrite(g);
for i:=min+1 to max-1 do                       //в цикле с параметром от минимального до максимального не включительно для каждого значения счетчика i
    begin
    reset(f);                                  //открываю файл для чтения
    while not (eof(f)) do
          begin                               //считываю переменную
          read(f,n);                          //если совпадает со счетчиком,
          if n=i then write(g,i);            //заношу в новый файл
          end;
    end;
writeln;
writeln('Компоненты итогового файла');
reset(g);                                   //открываю для чтения
while not (eof(g)) do                       //в цикле с предусловием
      begin
      read(g,n);                            //считываю и вывожу компоненты нового файла
      write(n:5);
      end;
close(f);                                 //закрываю
close(g);
end.
пс решение нерациональное =) очень...
1
15.05.2012, 20:40
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2012, 20:40
Привет! Вот еще темы с ответами:

Указать все целые числа, которые увеличиваются на 20%, если их цифры записать в обратном порядке - Pascal ABC
Нужно составить программу, которая бы указывала все целые числа, которые увеличиваются на 20%, если их цифры записать в обратном порядке. ...

Укажите все целые числа которые увеличатся на 20% если их цифры записать в обратном порядке - Pascal ABC
укажите все целые числа которые увеличатся на 20% если их цифры записать в обратном порядке. задачу решить через for.

Дано натуральное число n. Записать в файл g все целые числа b[1]...b[n] - Pascal ABC
Здравствуйте! Есть такое условие: дано натуральное число n. Записать в файл g все целые числа b...b. Если b=i!+i^2 Вот такая программа...

Файлы. Записать в новый файл десятичные цифры исходных чисел в обратном порядке - Pascal ABC
Создать файл целых чисел. Получить новый файл целых чисел, содержащий исходные числа, десятичные цифры которых записаны в обратном порядке....


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

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

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