Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
-MaZaHaKa-
20 / 20 / 16
Регистрация: 30.09.2013
Сообщений: 262
1

Отладить код

25.12.2013, 01:00. Просмотров 179. Ответов 1
Метки нет (Все метки)

Есть программа в которой нужно прочесть строку, посчитать количество повторений каждого символа, найти его код. Найти сумму кодов всех символов в 10й и 16й системе счисления

Можете отладить? (прога работает норм, но вот хотелось бы немного улучшить читаемость такого кода)

Вот код программы:
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
var
{вывод количества символов}
  a:array [#1..#255] of integer;
  s:string;
  i:integer;
{вывод кода символов}
  c:char;
{вывод суммы в 10й}
  s10:integer;
{вывод суммы в 16й}
  s16:integer;
const
  case16:string[16]='0123456789ABCDEF';
begin
{пишем строку текста}
  write('Введите текст: ');readln(s);
{читаем каждый символ, s[i] - текущий символ, a[s[i]] - находим код текущего символа}
  for i:=1 to length(s) do
    inc(a[s[i]]);
{выводми коды всех символов}
  for c:=#1 to #255 do
{если этот код встречается в тексте - выводим}
    if a[c] <> 0 then
      begin
{выводим символ, количество символов, и код символа}
        writeln ('| ',c,' | ',a[c],' | ',ord(c),' |');
        writeln ('---------------');
{сумируем коды символов}
        s10:=ord(c)+s10;
      end;
{присваиваем s16 значение s10, что бы далее вывести s10 без изменений}
  s16:=s10;
  s:='';
  while s16>0 do
    begin
      s:=case16[s16 mod 16+1]+s;
      s16:=s16 div 16;
    end;
  writeln('Сумма кодов в десятичной: ',s10);
  writeln('Сумма кодов в шеснадцатиричной: ',s);
end.
Спасибо)
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2013, 01:00
Ответы с готовыми решениями:

Отладить код
Отладьте пожалуйста код в соответсвии с условием: Для заданной группы вывести...

Нужно отладить код. Не получается нужный шаг
var s,n,m,z,y,x,k:integer; begin repeat writeln('Определить предел аргумента x...

Отладить программу
РЕбят помогите с задачкой. НЕ могу разобратся. program Newton; uses...

Отладить программу
Помогите отдалить программу. Составить алгоритм и программу нахождения суммы...

Отладить программу
Помогите пожалуйста, сегодня надо сдать программу. Нужно отладить мой код. Вот...

1
Cyborg Drone
Модератор
5474 / 3293 / 2480
Регистрация: 17.08.2012
Сообщений: 10,582
25.12.2013, 03:39 2
Цитата Сообщение от -MaZaHaKa- Посмотреть сообщение
Можете отладить?
Цитата Сообщение от -MaZaHaKa- Посмотреть сообщение
прога работает норм
Цитата Сообщение от -MaZaHaKa- Посмотреть сообщение
улучшить читаемость такого кода
Программа работает, и нечего её отлаживать. И читается хорошо. Что делать, неясно.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2013, 03:39

Отладить задачу на строки
Вот сама задача. На планете Роботов очень не любят десятичную систему...

Отладить функцию на модельной задаче
Задание 1 Составить логическую функцию, проверяющую, упорядочены ли по...

Написать и отладить программу с применением операторов циклов
Пассажирский самолет может поднять груз общим весом 30т. Составить программу ...


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

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

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