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

[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, пожалуйста.

[Alexander]

Visio я ска4ал с thepiratebay бесплатно..)
Спасибо за зада4ку)
Как я понимаю 2ая программа тоже 4ерез CASE но только не могу понять,как делать
Номера дня недели заменить на имя фамилию, выводиться ошибка.

[-Кристина-]

1. Вычислить выражение u=((x+y-z)3 – (x-y+z)2 + √|x+y+z|)/log2(tg(z)).
2. Вычислить выражение h=2z3+x2/√2+|y3|/√3 + (z4(ln(x)+1)√5)/√3.
3. На плоскости заданы точки A, B, C своими координатами в декартовой системе координат. Найти расстояние каждой точки до точки D(-124, -340).
4. Определить высоту h треугольника АВС, если его площадь равна s и основание больше высоты на величину a.
5. Найти решение квадратного уравнения ax2+bx+c=0 для a=3.45, b=5.6, c=-4.5.
6. Написать программу, которая для заданного целого числа а печатает на экране следующую таблицу:
a
a a2
а3 а4 a6
а6 а3 а2 a

помогите до завтра ,хоть несколько.

[Lapp]

Кристина, прочти правила и создай свою тему.

!

Закрыто