Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
argossi
0 / 0 / 0
Регистрация: 13.04.2010
Сообщений: 7
1

Объясните код программы

22.04.2010, 17:11. Просмотров 1704. Ответов 1
Метки нет (Все метки)

Если не сложно, можно объяснить что означает каждая строчка в этой программе и что она делает, а именно 3,4 и 11-17. Что такое chr, почему random(27)+97, что такое odd и ord, почему -32?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
  Crt;
const
  N = 7;
var
  s: string;
  i: byte;
begin
  ClrScr;
   Randomize;
   s := ' ';
   for i := 1 to N do
     s := s + chr(Random(27) + 97);
   WriteLn(s);
   for i := 1 to N do
     if odd(ord(s[i])) then
       s[i] := chr(ord(s[i]) - 32);
   WriteLn(s);
   ReadLn;
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.04.2010, 17:11
Ответы с готовыми решениями:

Объясните код
Объясните код желательно расписать каждый оператор и строчку. Program...

Объясните код
слово такое var Quantity: byte;

Объясните работу программы по её коду
program lab; uses crt; var n, k: integer; type t_razm = arrayof...

Объясните пожалуйста суть работы программы
Тут мне ребята помоги с задачей, но не объяснили суть работы задачи. var ...

Объясните работу программы по решению СЛАУ
Объясните пжлйста очень подробно работу программы,т.е что выполняется в тот или...

1
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
22.04.2010, 18:14 2
3,4 - раздел описания констант, значения которых в процессе работы программы нельзя изменять, т.е. постоянная величина;
11 - переменной строкового типа s присваиваем значение пустой строки, т.е. в ней не содержится ни одного символа;
12 - for - цикл со счётчиком или как его ещё называют - с параметром (начиная с одного параметра и заканчивая другим); мы повторяем одну или несколько команд кол-во раз равное n - i ;
13 - изменяем переменную s: s:= s + chr(random(27)+97)(т.е. пустой строке присваиваем значение пустая строка + символ из кодовой таблицы символов ASCII); random(27) - команда которая выбирает произвольное число из диапазона от 0 до 26 (здесь не ошибка) и прибавляем к полученному значению 97; chr(n) - функция, возвращающая символ с кодом n;
14 - вывод значения переменной s на экран;
15 - см. п. 12
16,17 - if <условие> then <команда 1> (или группа команд) ; odd - функция проверки числа на нечётность; если то, что в скобках нечётно, то i-му элементу строки присваиваем значение chr(ord(s[i])-32), т.е. вместо символа строки s с порядковым номером i мы ставим chr(ord(s[i]-32)); (ord - функция обратная функции chr); ord(s[i])-32 - код символа s[i] и минус 32
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.04.2010, 18:14

Кто-нибудь, объясните, что за код такой??? Какая-то двойная рекурсия???
function F(n:Integer):Integer; begin if (n &gt; 2) then F := F(n -...

Код программы
Есть здача вроде бы все правельно ввожу но не могу понять почему он мне...

Неверный код программы
program page96; function f(u,v:real):real; begin if (u+v&gt;0) then ...


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

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

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