Моя первая "программа" - нормальная или уг?)

[Visker]

Сидел сидел за компьютером, решил что-то в Pascal ABC попробовать сделать, решился и сделал следующую программку, хочется узнать, нормальная штука или нет? Программа первая, гнобить автора не стоит, то что ламер и сам знаю

uses crt;
var a,b,c,d,e,f,g,r:real;
 begin
writeln('                                               ');
writeln('                                               ');
writeln('Данная программа создана для применения формул диаметров, радиусов, и прочей    нечисти.');
Writeln('Чтобы начать подсчет, введите порядковый номер того, что вам нужно');

textcolor(red);
writeln('     1- Расчет площади круга.');
writeln('     2- Расчет периметра круга.');
writeln('     3- Площадь и периметр прямоугольника.');
writeln('     4- Площадь параллелограма.');
writeln('     5- Периметр параллелограмма.');



textcolor(black);
writeln('                                               ');
writeln('                                               ');
write('Порядковый номер : ');
readln(a);
if a=1 then
begin
clrscr;
write('Введите радиус: ');
readln(r);
b:=3.14*r*r;
writeln('Подсчет завершен, площадь равна: ',b);
  end else
  if a=2 then
  begin
  clrscr;
  write('Введите радиус:  ');
  readln(r);
  b:=2*3.14*r;
  writeln('Подсчет завершен, периметр равен: ' ,b);
  end else
  if a=3 then
  begin
  clrscr;
  write('Введите длину: ');
  readln(a);
  write('Введите ширину: ');
  readln(c);
  b:=a*c;
  writeln('Подсчет завершен, площадь равна: ',b);
  d:=(2*a)+(2*c);
  writeln('Подсчет завершен, периметр равен: ',d);
  end  else
  if a=4 then
  begin
  clrscr;
  write('Введите высоту(h): ');
  readln(a);
  write('Введите ширину: ');
  readln(b);
  c:=b*a;
  writeln('Подсчет завершен, площадь равна: ',c);
  end else
  if a=5 then
  begin
  clrscr;
  write('Введите длинну боковой стороны: ');
  readln(a);
  write('Введите длину ширину: ');
  readln(b);
  c:=2*(a+b);
  writeln('Подсчет завершен, перимитр равен: ',c);
   end
  end.

[Leshii]

Не уг, но сюда лучше применить конструкцию

Case ... Of

Тогда тебе не надо будет столько

If ... else ...

конструкций писать, ну и соотвественно столько переменных вводить
Достаточно будет одной и типа она будет Char . А так нормально, просто не знаю как оценить.

[Visker]

Спасибо =) Мне просто хватит фразы, автор идиот или все-таки есть надежда на будущее

[Poma][a]

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

Спасибо =) Мне просто хватит фразы, автор идиот или все-таки есть надежда на будущее

не атор нормальный и надежда есть) НО лучше case of ИЛИ правильно оформить блок else if ( отступы, и прочее)

[Stilet]

автор идиот или все-таки есть надежда на будущее

Нормальная программа... Выдает результат верный? - значит имеет право на существование.

[Visker]

ура, я счастлив =)

[raxp]

...а что такое "УГ" ? Нет, правда, я в этот слэнг как то не углублялся.

[Alex11223]

а что такое "УГ" ? Нет, правда, я в этот слэнг как то не углублялся.

В первую ссылку гугла тоже не углублялся?)
http://lurkmore.ru/Унылое_говно

[_-Re@l-_]

Хм, ну, прога, канешна, может и ничё, но стиль - УГ.

[Stilet]

но стиль - УГ.

А по-моему норм. Читабельно. Форматирование малость хромает, но все же с первого взгляда понятно что делает прога и как устроена.