Текстовое значение

@Aristes · Регистрация: 20.04.2010

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

Народ, помогите с командами к заданию, немогу присвоить текстовое значение символам. Или просто не знаю каким алгоритмом решить такое.
Видел, похожие теми есть, но не очень расбераюсь, то если кому не тяжело, прошу помоч.
Задание.
Дано металы:
1. низкоуглеродистых сталей
2. среднеуглеродистых сталей
3. легированных сталей
4. теплостойких сталей
5. коррозионностойких сталей
6. жаропрочных сталей
7. жаропрочных сталей и сплавов
То елси:
1. должно виводится «ОММ-5, SM-5 CМ-7, ОМА-2, UОNI-13/45, SМ-11»
2. ------------//------------ «UP-2/45, ОZS-2, UONI-13/55, К-5А, UONI-13/65
3. ------------//------------ «UONI-13/85, CL -14, CL -30-63, CL -18-63, NIAT-ZМ»
4. ------------//------------ «Gl-14, CL-20-63, CL-26М-63, CL-17-63»
5. ------------//------------ «ОZL-14, ОZL-8, CL -11, CL -15-1, ZIО-3»
6. ------------//------------ «ОZL -6, CL -25, ОZL -4, ОZL -9А, ОZL -5, CТ-17»
7. ------------//------------ «CТ-16-1, CТ-16, CL-1, CТ-7, KTI-7-62»

Добавлено через 10 часов 14 минут
Если есть программисты, укажите ошибку.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var l: char;
const N = {ОММ-5, SM-5 CМ-7, ОМА-2, UОNI-13/45, SМ-11};
Sr =  {UP-2/45, ОZS-2, UONI-13/55, К-5А, UONI-13/65};
L = {UONI-13/85, CL -14, CL -30-63, CL -18-63, NIAT-ZМ};
T = {Gl-14, CL-20-63, CL-26М-63, CL-17-63};
K = {ОZL-14, ОZL-8, CL -11, CL -15-1, ZIО-3};
Z = {ОZL -6, CL -25, ОZL -4, ОZL -9А, ОZL -5, CТ-17};
Zs = {CТ-16-1, CТ-16, CL-1, CТ-7, KTI-7-62};
begin;
writeln (‘Введите марку стали’);
writeln (' если сталь низкоуглеродистая введите - N');
writeln (' если сталь среднеуглеродистая - Sr');
writeln (' легированная - L');
writeln (' теплостойкая - T');
writeln (' коррозионностойкая - K');
writeln (' жаропрочная - Z');
writeln (' жаропрочный сплав - Zs');
readln (l);
Stal:=l;
writeln ('Stal=',Stal
end.

Добавлено через 1 минуту
Кроме этой:
* writeln ('Stal=',Stal);
end.

@WolfCF · 23.04.2010, 18:45

Не по теме:

как я эти марки сталей не люблю.

Pascal
1
2
3
4
5
6
readln(c);
case c of
1: writeln('ОММ-5, SM-5 CМ-7, ОМА-2, UОNI-13/45, SМ-11');
2: writeln('UP-2/45, ОZS-2, UONI-13/55, К-5А, UONI-13/65');
...
end;

скажите полностью задание.

@Aristes · 23.04.2010, 19:00 **[ТС]**

Ну это вообще часть с курсового проекта. Теории 10 листов, где то так. Если кратко, то нужна программа, в которую вводят, марку стали, ее толщину, время работы с ней и т.п. В итоге, программа, должна показать, какие электроды для электродуговогй сварки подходят, это они:
ОММ-5, SM-5 CМ-7, ОМА-2, UОNI-13/45, SМ-11;
UP-2/45, ОZS-2, UONI-13/55, К-5А, UONI-13/65;
UONI-13/85, CL -14, CL -30-63, CL -18-63, NIAT-ZМ;
Gl-14, CL-20-63, CL-26М-63, CL-17-63;
ОZL-14, ОZL-8, CL -11, CL -15-1, ZIО-3;
ОZL -6, CL -25, ОZL -4, ОZL -9А, ОZL -5, CТ-17;
CТ-16-1, CТ-16, CL-1, CТ-7, KTI-7-62;
А остоальное математические подщёты, которые я проверял, ошибоквроде нет.
Если вам не тяжело, подскажите или спрашивайте еще.
P.S. Код Паскаля не понял, что за «С»?

@WolfCF · 23.04.2010, 19:10

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

P.S. Код Паскаля не понял, что за «С»?

это так,прелюдии

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
writeln (‘Введите марку стали’);
writeln (' если сталь низкоуглеродистая введите - 1');
writeln (' если сталь среднеуглеродистая - 2');
writeln (' легированная - 3');
writeln (' теплостойкая - 4');
writeln (' коррозионностойкая - 5');
writeln (' жаропрочная - 6');
writeln (' жаропрочный сплав - 7');
readln (c);
case c of
1: writeln('ОММ-5, SM-5 CМ-7, ОМА-2, UОNI-13/45, SМ-11');
2: writeln('UP-2/45, ОZS-2, UONI-13/55, К-5А, UONI-13/65');
...
end;

Добавлено через 51 секунду
алгоритм вертится,сказать не могу.

@Aristes · 23.04.2010, 19:19 **[ТС]**

Вообще или сейчас?)
Если вспомните, то напишите.
И вообще, скобки эти – {}, по теми или нет, и что они обозначают?

Новые блоги и статьи Все статьи Все блоги /
Установка 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/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Aristes 0 / 0 / 0 Регистрация: 20.04.2010 Сообщений: 16
	23.04.2010, 19:00 [ТС]
	Ну это вообще часть с курсового проекта. Теории 10 листов, где то так. Если кратко, то нужна программа, в которую вводят, марку стали, ее толщину, время работы с ней и т.п. В итоге, программа, должна показать, какие электроды для электродуговогй сварки подходят, это они: ОММ-5, SM-5 CМ-7, ОМА-2, UОNI-13/45, SМ-11; UP-2/45, ОZS-2, UONI-13/55, К-5А, UONI-13/65; UONI-13/85, CL -14, CL -30-63, CL -18-63, NIAT-ZМ; Gl-14, CL-20-63, CL-26М-63, CL-17-63; ОZL-14, ОZL-8, CL -11, CL -15-1, ZIО-3; ОZL -6, CL -25, ОZL -4, ОZL -9А, ОZL -5, CТ-17; CТ-16-1, CТ-16, CL-1, CТ-7, KTI-7-62; А остоальное математические подщёты, которые я проверял, ошибоквроде нет. Если вам не тяжело, подскажите или спрашивайте еще. P.S. Код Паскаля не понял, что за «С»? 0

@Aristes 0 / 0 / 0 Регистрация: 20.04.2010 Сообщений: 16
	23.04.2010, 19:19 [ТС]
	Вообще или сейчас?) Если вспомните, то напишите. И вообще, скобки эти – {}, по теми или нет, и что они обозначают? 0