Шайсе...со мной или с Паскалем =)

BuPy7 · Регистрация: 01.12.2011

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

Как обычно сижу пишу программу. Постепенно компилирую, сохраняю, проверяю. И на определённом этапе не работает оператор readln....Вот как так?
Код программы:

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
const n=100;
var a:array[1..n] of record
                       name:string;
                       time:integer;
                     end;
    ti,k,time1,tch,tmin,osh:integer;
    c1:char;
    c:string;
    i:byte;
begin
  writeln('Vvedite vremya na4ala');
  readln(c);
    delete(c,3,1);
      val(c,time1,osh);
      tch:=time1 div 100;
      tmin:=time1 mod 100;
      time1:=(tch*60)+tmin;
  writeln('Kolli4estvo uchastnikov siomki');
  readln(k);
    for i:=1 to k do
      begin
          writeln('Vvedite familia i imya');
        repeat
          read(c1);
          a[i].name:=a[i].name+c1;
        until c1=' ';
          repeat
            read(c1);
            a[i].name:=a[i].name+c1;
          until c1=' ';
      //вот сюда вот вставляю "readln(c);", а во время компиляции программа его даже и не видит.....
     end;
end.

В чём проблема? Попробуйте кто нибудь, возможно у вас такого не будет, тогда дело в Паскале.
P.S. В отладочном режиме точно так же.

Добавлено через 11 минут
Кстати, если в readln типизирую переменную делаю integer, то всё пашет. Но мне то нужно уже имеющуюся переменную использовать с типом string!

Добавлено через 4 минуты
Ну все типы пашут, а string - нет!!!

@Puporev · 05.04.2012, 18:00

Во первых какой Паскаль?

Добавлено через 1 минуту
А во вторых что пытатесь делать? Судя по коду какую-то чушь.

BuPy7 · 05.04.2012, 18:01 **[ТС]**

Borland Turbo Pascal 7.0. Вытащил из Шуль Пак'а, т.к. не понравилось как работает в Досбокс'е.

@Puporev · 05.04.2012, 18:02

Ну и чего мы творим?

BuPy7 · 05.04.2012, 18:03 **[ТС]**

Сообщение от Puporev

А во вторых что пытатесь делать? Судя по коду какую-то чушь.

Не чушь, а выполняю задание по информатике. То что я делаю - полностью не важно, важно то, что оператор read с типом string не видит компилятор.

Добавлено через 28 секунд

Сообщение от Puporev

Ну и чего мы творим?

Что не так?

@Puporev · 05.04.2012, 18:05

Я это типа написал чтобы ты задание написал.
А использовать оператор read в Турбо не нужно, нужно readln(c);

BuPy7 · 05.04.2012, 18:11 **[ТС]**

Сообщение от Puporev

А использовать оператор read в Турбо не нужно, нужно readln(c);

А если я хочу на новую строку, то мне везде writeln писать чтоль?
Я не мало труъ-программ уже написал и никогда такого не было. Лучше скажите: как исправить можно, может сборку другую скачать Паскакаля, а то вот так вот без Readln - ну капец полный.

Добавлено через 3 минуты

Сообщение от Puporev

Я это типа написал чтобы ты задание написал.

Оно очень длинное. Лень. И полностью не относится к данной теме, т.к. я помощи по написанию программы не прошу, а прошу помощи по разрешению проблем с оператором.

@Puporev · 05.04.2012, 18:12

Когда пишешь типа

Pascal
1
2
write('Введите имя');
readln(c);

то само переходит на новую строку.

Добавлено через 1 минуту

Сообщение от Metallnote

а прошу помощи по разрешению проблем с оператором.

Если не зная что к чему пытаться искать ошибку в коде, то так и помереть можно не найдя ее. Говорят есть форумы экстрасенсов, там такое находят, удачи!

BuPy7 · 05.04.2012, 18:15 **[ТС]**

Сообщение от Puporev

Когда пишешь типа

Pascal
1
2
write('Введите имя');
readln(c);

то само переходит на новую строку.

А, извиниюсь, я ступил. Понял суть полностью наоборот. Но тогда альтернативный вопрос, а если мне нужно, чтобы всё было на одной строке?
У вас лично такая проблема имеется?

Добавлено через 1 минуту

Сообщение от Puporev

Если не зная что к чему пытаться искать ошибку в коде, то так и помереть можно не найдя ее. Говорят есть форумы экстрасенсов, там такое находят, удачи!

Вы пробовали копировать код в Паскаль? Есть ли у вас проблема описанная выше? Если нет - проблема в компиляторе, а если да - то проблему в коде я сам найду.

@Puporev · 05.04.2012, 18:21

Сообщение от Metallnote

а если мне нужно, чтобы всё было на одной строке?

тогда

Pascal
1
readln(imya,fam);

вводишь через пробел в строку, считывает 2 переменных, или сколько их написано, например

Pascal
1
readln(x1y1,x2,y2);

Добавлено через 51 секунду

Сообщение от Metallnote

Вы пробовали копировать код в Паскаль?

Пробовал, но нефига не понял что нужно делать, ибо это тайна великая есть..

BuPy7 · 05.04.2012, 18:28 **[ТС]**

Сообщение от Puporev

Пробовал, но нефига не понял что нужно делать

Не нужно понимать, нужно посмотреть: требует ли программа ввод данный в указанном месте.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	05.04.2012, 18:00
	Во первых какой Паскаль? Добавлено через 1 минуту А во вторых что пытатесь делать? Судя по коду какую-то чушь. 0

BuPy7 Нет ТЗ - давай досвидания 746 / 377 / 64 Регистрация: 01.12.2011 Сообщений: 2,250 Записей в блоге: 6
	05.04.2012, 18:01 [ТС]
	Borland Turbo Pascal 7.0. Вытащил из Шуль Пак'а, т.к. не понравилось как работает в Досбокс'е. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	05.04.2012, 18:02
	Ну и чего мы творим? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	05.04.2012, 18:05
	Я это типа написал чтобы ты задание написал. А использовать оператор read в Турбо не нужно, нужно readln(c); 0