Помогите с задачками Опции

[Alexander]

1. Составить блок-схему определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям.
2. Составить блок-схему, которая реализует пользовательское меню (меню - это список, из которого необходимо сделать выбор), пункты которого содержат фамилии Ваших друзей. При выборе некоторой фамилии появляется адрес и телефон.


Помогите Сделать блок схему (желательно в Visio) и написать программу... Не понимаю как работать с CASE..
Заранее спасибо..))

[Lapp]

Показывай свои наработки. Поможем.

[Alexander]

Показывай свои наработки. Поможем.

Это для 1ой ,а как сделать для второй я не могу понять

Код

Program DAY;
    Var D: byte;
      Begin

   Write ('Введите номер дня недели');

   Readln ( D );

   Case D of
   1: writeln ( '1руб./мин' );
   2: writeln ( '1руб./мин' );
   3: writeln ( '1руб./мин' );
   4: writeln ( '1руб./мин' );
   5: writeln ( '1руб./мин' );
   6: writeln ('0.8руб/мин' );
   7: writeln ('0.8руб/мин' );
   End;
      End.

[Lapp]

Хорошо.
Я немного переделал. Посмотри - так не лучше?

Program DAY;
Var
  D: byte;
  Price, discount, cost: single;

Begin
  Price:= 1.0;  {цена минуты по прейскуранту}
  WeekendDiscount:= 20;   {скидка выходного дня в % }
  Write ('Введите номер дня недели');
  Readln (D);
  Case D of
    1..5: Cost:= Price;
    6,7: Cost:= Price*(1-WeekendDiscount/100);
  End;
  writeln (Cost:5:2,' руб/мин' );
End.

По второй - я не спец по схемам, да и visio у меня нет (дорогое оно, блин). Может, еще кто поможет.

PS
используй тэги code=pas и /code, пожалуйста.