0 / 0 / 0
Регистрация: 16.04.2011
Сообщений: 9
1

В символьном файле определить символы с максимальным и минимальным кодом

17.04.2011, 14:53. Показов 1219. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В символьном файле определить символы с максимальным и минимальным кодом.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.04.2011, 14:53
Ответы с готовыми решениями:

Сформировать файл и оставить в файле только числа, находящиеся между минимальным и максимальным
Здравствуйте, помогите пожалуйста с написанием кода для следующей задачи на Pascal'е. Задача:...

Определить разницу между минимальным и максимальным значением массива
Приветствую всех на этом форуме! К сожалению, я пока что полнейший нуб в плане программирования на...

Определить разницу между максимальным и минимальным двухзначным числом
Написать программу, позволяющую определить разницу между максимальным и минимальным двухзначным...

Определить среднее значение между минимальным и максимальным значением
помогите решить задачу.. в масиві m(20) фіксується десять аварійних ситуацій по напрузі для десяти...

1
9 / 9 / 5
Регистрация: 11.04.2011
Сообщений: 29
17.04.2011, 15:41 2
Лучший ответ Сообщение было отмечено MaRiShKaa как решение

Решение

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
type
  fi = file of char;
 
procedure cozd(var f: fi);
var
  i: char;
begin
  rewrite(f);
  writeln('введите компоненты файла признак остановки *');
  
  read(i);
  while i <> '*' do 
  begin
    write(f, i);
    read(i);
  end;
  close(f);
end;
 
procedure print(var f: fi);
var
  i: char;
begin
  reset(f);
  while not eof(f) do 
  begin
    read(f, i);
    writeln('символ ',i, '  код- ', ord(i));
  end;
  close(f);
end;
 
function minkod(f: fi): integer;
var
  x: char; min: integer;
begin
  reset(f);
  read(f, x);
  min := ord(x);
  while not eof(f) do 
  begin
    read(f, x);
    if  min > ord(x) then 
      min := ord(x);
  end;
  minkod := min;
end;
function maxkod(f: fi): integer;
var
  x: char; max: integer;
begin
  reset(f);
  read(f, x);
  max := ord(x);
  while not eof(f) do 
  begin
    read(f, x);
    if  max<ord(x) then 
      max := ord(x);
  end;
  maxkod := max;
end;
 
 
var
  f: fi; 
  n, x, i: integer;
 
begin
  assign(f, 'cimwol.txt');
  cozd(f);
  writeln('исходный файл');
  print(f);
  writeln('минимальный код ', minkod(f));
  writeln;
  writeln('максимальный  код ', maxkod(f));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.04.2011, 15:41
Помогаю со студенческими работами здесь

Определить, какое число из данных трех не является ни максимальным и ни минимальным
Определить, какое число из данных трех не является ни максимальным и ни минимальным, используя в...

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

Удалить из строки символы с минимальным и максимальными ASCII-кодом.
Удалить из строки символы с минимальным и максимальными ASCII-кодом. Исходные данные вести с...

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


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

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

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