Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 5

Построить блок-схему

18.11.2013, 18:48. Показов 718. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var x:integer;
begin
writeln('ввод года->');
read(x);
case x of
800..899:writeln('IX век');
900..999:writeln('X век');
1000..1099:writeln('XI век');
1100..1199:writeln('XII век');
1200..1299:writeln('XIII век');
1300..1399:writeln('XIV век');
1400..1499:writeln('XV век');
1500..1599:writeln('XVI век');
1600..1699:writeln('XVII век');
1700..1799:writeln('XVIII век');
1800..1899:writeln('XIX век');
1900..1999:writeln('XX век');
2000..2099:writeln('XXI век');
end;
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.11.2013, 18:48
Ответы с готовыми решениями:

Построить блок-схему
Линейный алгоритм Написать Блок -схему Program e1; Var b,c,d:real; Begin Read (b,c); D:=sgrt(sgr(b) – 4*c); Writeln (`x1=`...

построить блок-схему
Помогите построить блок-схему по одномерным массивам: program lab5_1; uses crt; var a,b: array of integer; i:byte; begin ...

Построить блок-схему
sum:=0; For i:=1 to n do sum:=sum+Pi*sqr(R); Writeln(sum);

1
 Аватар для Soniyagfto
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
18.11.2013, 19:49
Предлагаю вам "погуглить":
Блок-схема для оператора выбора
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.11.2013, 19:49
Помогаю со студенческими работами здесь

построить блок-схему
Помогите пжл построить блок-схемы var f,x: real; begin ReadLn(x); if x < 3 then f := 4; else f := 4;

Построить блок-схему
Решение задачи такое: Var f,x,y,z:real; Begin write('Введите x,y,z: ');readln(x,y,z); f:=3*z*(x*x*x)-5*x*y+4*x*sqr(z); ...

Построить блок схему
Очень прошу, помогите пожалуйста построить блок схему type printer=record name:string; yan,fev,mar:integer; ...

Построить блок-схему
for i:=a to b do if (i mod 2 =0) and (i mod 3 =0) then writeln(i) Добавлено через 2 часа 29 минут кто может помогите ,кто...

Построить блок-схему
1)Написать программу, которая вычисляет площадь равностороннего треугольника, периметр которого равен p. Программу писать не надо ,надо...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru