IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
Closed Topic Открыть новую тему 
> Помогите с задачками
сообщение
Сообщение #1


Гость






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


Помогите Сделать блок схему (желательно в Visio) и написать программу... Не понимаю как работать с CASE..
Заранее спасибо..))
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата(Lapp @ 13.11.2009 4:02) *

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



Это для 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.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Хорошо.
Я немного переделал. Посмотри - так не лучше?
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, пожалуйста.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






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


Гость






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

помогите до завтра ,хоть несколько.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


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

 ! 
Закрыто



--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 31.10.2020 14:14
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name