Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
Рейтинг 4.68/25: Рейтинг темы: голосов - 25, средняя оценка - 4.68
0 / 0 / 0
Регистрация: 14.01.2014
Сообщений: 16

Блок-Схема (С оператором CASE)

19.01.2014, 16:38. Показов 5223. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program zadanie3-11;
Var a,b,x,y,c:real;
n:1..5;
Begin
write('1<=N<=5: ');readln(n);
Case n of
1:
Begin
write('a,b,c,x: ');readln(a,b,c,x);
writeln('a*sqr(x)+b*x+c = ',a*sqr(x)+b*x+c:0:2);
End;
2:
Begin
write('a,b,x: ');readln(a,b,x);
writeln('a*x*x*x+3*b*x+b*b*b = ',a*x*x*x+3*b*x+b*b*b:0:2);
End;
3:
Begin
write('x: ');readln(x);
writeln('4*sqr(sin(x))+sqr(cos(x)) = ',4*sqr(sin(x))+sqr(cos(x)):0:2);
End;
4:
Begin
write('x,y: ');readln(x,y);
writeln('sqrt(abs(x-y))*sqr(cos(x)) = ',sqrt(abs(x-y))*sqr(cos(x)):0:2);
End;
5:
Begin
write('x: ');readln(x);
writeln('sqr(cos(x)/sin(x)) = ',sqr(cos(x)/sin(x)):0:2);
End;
else writeln('Не верно');
End;
readln;
End.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.01.2014, 16:38
Ответы с готовыми решениями:

Блок-схема к CASE
Привет всем! Возникла необходимость написать программу, и нарисовать к ней блок-схему. Проблема в том, что я даже смутно не представляю...

Блок-схема Case
Ребята помогите построит блок-схему. Заранее спасибо! Вот текст программы: Program Proverochnaya_4; Type mounth =...

Пример программы с оператором case
Пример программы с оператором case. uses Crt; Var a, k: Integer; begin ClrScr; a:= 3; case a * a + 1 of {в случае если а...

5
-11 / 5 / 7
Регистрация: 25.04.2013
Сообщений: 80
24.02.2014, 00:18
пожалуйста
Миниатюры
Блок-Схема (С оператором CASE)  
0
 Аватар для L_e_g_i_o_n
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
24.02.2014, 08:03
Craider, у вас получилась линейная блок-схема, получается, ваша программа для автоматического создания блок-схем, если таковую вы использовали, не распознает метки
0
Почетный модератор
 Аватар для Puporev
64320 / 47616 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
24.02.2014, 08:26
Существенный недостаток FCEditor что он не понимает case
0
 Аватар для L_e_g_i_o_n
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
24.02.2014, 08:30
BlokShemnik.exe выдал такую блок-схему:
Миниатюры
Блок-Схема (С оператором CASE)  
0
 Аватар для L_e_g_i_o_n
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
24.02.2014, 08:31
правда на нем подредактировать никак нельзя
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.02.2014, 08:31

Две программы с оператором CASE
1. Найти значение Y в зависимости от X способом использования оператора выбора CASE Y=SQRT(x+1) если X принадлежит отрезку 2. Даны 3...

Программа с оператором CASE, выводит некорректные значения
С клавиатуры вводится число a и число b ∈ {1, 2, 3, 4} (конкретно в этом порядке). Рассматривается равнобедренный прямоугольный...

Блок-схема с оператором цикла.
Дана задача: Дан одномерный массив В элементы которого формулируются по формуле Bi=i sin i,где i-номер элемента в массиве В .Подсчитать...

Задача с оператором CASE.
Составить программу , которая бы реализовала следующий алгоритм работы светофора. 1-зелёный, 2-жёлтый, 3-красный. Названия цветов выделите...

Программа с оператором CASE
Пример отредактированной программы из Само- учителя (стр. 55) с оператором CASE, чтобы печа тались все значения k. Вот...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP
and_y87 12.10.2026
10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP
and_y87 12.10.2026
10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .
День 5 из 28: Codex подсказывает следующий запрос
and_y87 12.10.2026
9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru