задача с массивом, string, циклами

@wowcuc · Регистрация: 11.05.2021

Студворк — интернет-сервис помощи студентам

этот код скопипастен из старого учебника, и не работает, можете точно указать ошибки?

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
Program CONVERT;
(* Эта программа вводит строку и заменяет в ней
все литеры нижнего регистра на литеры верхнего
регистра.*)
const
UPPER = 'ABCDEFGHIJKLMNOPQRSTUVW
XYZ';
LOWER = 'abcdefghijklmnopqrstuvwxyz';
var
LINE STRING;
COUNT, LETTER : INTEGER;
begin
WRITELN('Bвeдитe, пожалуйста, строку для
преобразования')
WRITELN(' ее литер к верхнему регистру.');
READLN (LINE);
for COUNT := 1 to LENGTH(LINE) do
if (LINE[COUNT] > - 'a') and
(LINE[COUNT] < - 'z') then
for LETTER := 1 to 26 do
if LINE[COUNT] = LOWER[LETTER] then
LINE[COUNT] = UPPER[LETTER];
WRITELN(' Преобразованная строка:');
WRITELN (LINE)
end.

@JuriiMW · 15.05.2021, 10:42

Даже если предположить, что этот учебник середины 80-х, то хотя бы можно было прочесть его начало!
Вы же, я так понимаю, просто открыли его где-то посредине. Увидели какой-то код и набили его в каком-то паскале…
В старых учебниках нередко были опечатки — хоть их в то время „отчитывали“, но это делали люди, которые не то, что к программированию не имели отношения, но и компьютер только по телевизору видели!

По любому, нужно было читать его с начала для того, чтобы понимать, что вы перепечатываете.
А здесь на лицо то, что строки кода были перенесены в произвольном месте — они, видимо, не входили в печатную строку книги…

Code
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
Program CONVERT; <—— вот эта строка не нужна с 3 версии Turbo Pascal… т.е. уже 35 лет как! Хотя это не важно.
(* Эта программа вводит строку и заменяет в ней
все литеры нижнего регистра на литеры верхнего
регистра.*)
const
UPPER = 'ABCDEFGHIJKLMNOPQRSTUVW <—— вот здесь строковая константа прерывается неожиданно…
XYZ'; <—— а здесь продолжается… хотя этого быть не должно!
LOWER = 'abcdefghijklmnopqrstuvwxyz';
var
LINE STRING; <—— в учебнике тоже не хватает разделителя?
COUNT, LETTER : INTEGER;
begin
WRITELN('Bвeдитe, пожалуйста, строку для <—— вы писали всё точно как в учебнике, но не понимаете простых основ…
преобразования') <—— если в учебнике именно так, то выкинуть его на помойку!
WRITELN(' ее литер к верхнему регистру.');
READLN (LINE);
for COUNT := 1 to LENGTH(LINE) do
if (LINE[COUNT] > - 'a') and <—— что за бред спутать - и =?
(LINE[COUNT] < - 'z') then <—— вы не понимаете что пишете!
for LETTER := 1 to 26 do
if LINE[COUNT] = LOWER[LETTER] then
LINE[COUNT] = UPPER[LETTER]; <—— ????
WRITELN(' Преобразованная строка:');
WRITELN (LINE)
end.

Код в книге подразумевался примерно так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
(* Эта программа вводит строку и заменяет в ней все литеры нижнего регистра на литеры верхнего регистра.*)
const
  UPPER = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  LOWER = 'abcdefghijklmnopqrstuvwxyz';
var
  LINE : STRING;
  COUNT, LETTER : INTEGER;
begin
  WRITELN('Bвeдитe, пожалуйста, строку для преобразования');
  WRITELN(' ее литер к верхнему регистру.');
  READLN (LINE);
  for COUNT := 1 to LENGTH(LINE) do
    if (LINE[COUNT] >= 'a') and (LINE[COUNT] <= 'z') then
      for LETTER := 1 to 26 do
        if LINE[COUNT] = LOWER[LETTER] then
          LINE[COUNT] := UPPER[LETTER];
   WRITELN(' Преобразованная строка:');
   WRITELN (LINE)
end.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .