Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.09.2018, 14:23   #1
_хХх_МУрлОк2007_хХ
Новичок
Джуниор
 
Регистрация: 18.09.2018
Сообщений: 2
Вопрос Почему оно не работает?

Почему эта фигня не работает?


Нужно перевести старинные меры в современные
Вот программа:

Код:
VAR AAA:CHAR; OTBET,HET,A:REAL;
BEGIN
WRITELN ('ВЫБИРАЙТЕ МЕРУ');
WRITELN ('А) САЖЕНЬ(М)');
WRITELN ('Б) ДЮЙМ(СМ)');
WRITELN ('В) ФУТ(М)');
WRITELN ('Г) ДРАХМА(Г)');
WRITELN ('Д) УНЦИЯ(Г)');
WКITELN ('Е) ФУНТ(КГ)');
WRITELN ('Ё) АРШИН(М)');
WКITELN ('Ж) ЗОЛОТНИК(Г)');
WRITELN ('3) ДЮЙМ(ММ)');
READLN(AAA);
CASE AAA OF
1:'А' A:=2.13660;
2:'Б' A:=2.50000;
3:'В' A:=0.30480;
4:'Г' A:=3.73250;
5:'Д' A:=29.86000;
6:'Е' A:=0.40951;
7:'Ё' A:=0.71120;
8:'Ж' A:=4.26570;
9:'З' A:=25.39950;
ELSE WRITELN
END;
WRITELN ('ВЫБИРАЙТЕ КОЛ-ВО');
READLN(OTBET);
HET:=A*OTBET
WRITELN(HET);
END.
Пожалуйста, оформляйте Ваш код согласно правилам.

Последний раз редактировалось Вадим Мошев; 18.09.2018 в 17:31.
_хХх_МУрлОк2007_хХ вне форума Ответить с цитированием
Старый 18.09.2018, 14:33   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Потому, что фигня и есть фигня) Какие-то WКITELN, case новым способом оформлен, точка с запятой не везде
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 21.09.2018, 13:56   #3
_хХх_МУрлОк2007_хХ
Новичок
Джуниор
 
Регистрация: 18.09.2018
Сообщений: 2
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Потому, что фигня и есть фигня) Какие-то WКITELN, case новым способом оформлен, точка с запятой не везде
Не я конечно всё понимаю но я лишь новичёк и совсе-е-е-е-ем чуть-чуть знаю паскаль
_хХх_МУрлОк2007_хХ вне форума Ответить с цитированием
Старый 21.09.2018, 14:11   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Тут и знать-то всего ни чего. Правильно написать WRITELN, точку с запятой не пропускать и самое трудное - почитать как case оформляется )
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wear OS] как получить доступ к api NFC? или почему оно не работает? SadiQ228 Java Мобильная разработка (Android) 0 29.07.2018 20:33
Почему при инверсии изображения, оно (изображение) исчезает? Blame Мультимедиа в Delphi 1 02.10.2012 21:11
Что это такое и как оно работает genya-yatsun Общие вопросы C/C++ 4 16.01.2011 17:46
Delphi. RadioButton. Как оно работает? :) R11 Помощь студентам 20 10.01.2008 11:10