Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Алгоритм (Исправить ошибку)
Алгоритм
Люди, если кто разбирается, исправьте ошибку.

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 | Автор: Arist | 2010-04-25, 12:04   |  Репутация: [ + 0 ]
Точка с запятой завершает не строку а команду. Убрать ; после begin и заменить точку с запятой на запятую в списке констант. И только в конце поставить точку с запятой:

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}, и т.д.

2 | Автор: admin | 2010-04-25, 19:03   |  Репутация: [ + 21 ]
Все-равно не работает.
3 | Автор: Arist | 2010-04-25, 20:53   |  Репутация: [ + 0 ]
напиши, что не работает? Код ошибки и где?
4 | Автор: admin | 2010-04-27, 20:26   |  Репутация: [ + 21 ]
Извините за беспокойство. Задача уже решена. Спасибо.
Тема закрыта.
5 | Автор: Arist | 2010-04-28, 20:39   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Алгоритм (Исправить ошибку)
Страница 1 из 11
Поиск: