Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


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

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


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

Код:

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 в 18:31.
_хХх_МУрлОк2007_хХ вне форума   Ответить с цитированием
Старый 18.09.2018, 15:33   #2
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 17,950
Репутация: 6285
По умолчанию

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


02:36.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru