Исправить ошибки

@Dj Programmer · Регистрация: 05.10.2013

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

Исправьте пожалуйста ошибки в коде , написал , но не хочет запускаться . Вот задание :

Мастям игральных карт присвоены порядковые номера:
1 — пики, 2 — трефы, 3 — бубны, 4 — червы. Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз. Даны два целых чис-ла: N — достоинство (6 <= N <= 14) и M — масть карты (1 <= M <= 4). Вывести название соответствующей карты вида «шестерка бубен», «дама червей», «туз треф» и т. п.

а вот сам код :

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
Var point, lear :string;
N,M:integer ;
Begin
        writeln ('Выберите достоинство :');
        writeln ('    6..10 ---  шестерка , семерка , восьмерка , девятка , десятка');
        writeln ('    11 --- валет 12 --- дама , 13 --- король 14 --- туз ');
        readln (N);
 
 Case N of
    6: point:='шестерка';
    7: point:='семерка';
    8: point:='восьмерка';
    9: point:='девятка';
    10: point:='десятка';
    11: point:='валет'
    12: point:='дама';
    13: point:='король'
    14: point:='туз';
 end;
        writeln('Выберите масть из :');
        writeln('1. --- пик');
        writeln('2. --- треф');
        writeln('3. --- бубен');
        writeln('4. --- червей');
 
 Case M of
   1: lear:=' пик';
   2: lear:=' треф'
   3: lear:=' бубен';
   4: lear:=' червей';
 end;
 
 if point = ' ' or lear = ' ' then writeln ('Такой карты нет в колоде ');
 
 writeln;
 writeln (point,lear);
 readln;
 end.

Добавлено через 2 часа 25 минут
Что это за ошибка в 33 строке : "операция не применима к операндам этого типа" ???? Выдает эту ошибку , ну если не считать , что там еще будет пару ошибок ( по типу : нету ";" или значение переменной вообще не записано в память) . Подскажите пожалуйста как здесь написать проверку на пустую строку .

@Apostol584 · 11.10.2013, 03:19

Pascal
1
2
3
4
у операции or приоритет выше чем у сравнения
if (point = ' ') or (lear = ' ') then writeln ('Такой карты нет в колоде ');
у вас нет readln (M);
Не хватает трех точек с запятой.

@Dj Programmer · 11.10.2013, 08:32 **[ТС]**

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

у вас нет readln (M);
Не хватает трех точек с запятой

Это я увидел , а за приоритет не знал , спасибо

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .