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

Блок-схема

07.11.2019, 19:31. Показов 804. Ответов 1

Студворк — интернет-сервис помощи студентам
помогите сделать блок схему по следующему коду:

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
program а;
const 
a=0.3; b=1.1;
var xN, xC, sN, sC, s, h, h2: real;
n: integer;
function f (m: real): real;
begin
f := cos(0.3 * m + 0.5)/ (1.8 + sin(m*m + 0.8));
end;
begin
write ('N='); readln (n);
h:= (b-a)/n;
h2:= 2*h;
sN:=0;
sC:=0;
s:=f(a)+f(b);
xN:=a+h;
while xN<=(b-h) do
begin
sN:=sN+f(xN);
xN:=xN+h2;
end;
xC:=a+h2;
while xC<=(b-h2) do
begin
sC:=sC+f(xC);
xC:=xC+h2;
end;
s:=(h/3)*(s+2*sC+4*sN);
writeln('S=',s:0:10);
readln;
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.11.2019, 19:31
Ответы с готовыми решениями:

Блок-схема
Найти все трёхзначные числа кратные 15, но не кратные 30. Помогите составить блок-схему! Цикл while.

блок-схема
помогите сделать блок-схему uses crt; var a: arrayof integer; b: arrayof integer; i,mi,n:integer; begin mi:=1;

Блок-схема
uses crt; var s,s1,s2:string; i,t,r:integer; begin clrscr; writeln('Ââåñòè ñòðîêó: ');readln(s); writeln('Ââåñòè ñëîâî:...

1
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
07.11.2019, 20:34
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.11.2019, 20:34
Помогаю со студенческими работами здесь

Блок-схема
uses crt; var k,i: integer; begin write ('k='); readln (k); write('мы нашли ',k); if k in then writeln(' грибов в лесу')...

Блок-схема
Помогите, пожалуйста!) Мне нужна блок схема по массиву, а именно отсортированый массив, только в Qbasicе)

Блок-Схема
Прошу.. Напишите пожалуйста блок-схему. procedure One; var sum,i, count: integer; zaput: string; zp: st; ...

Блок-схема
Помогите выполнить блок -схему по задаче. Постановка задачи: Дана матрица А(4,4) 1) Найти сумму S отрицательных элементов на побочной...

Блок схема
Господа вот этот вопрос: &quot;Постройте блок-схему решения поисковой задачи: среди трёх автомобилей найти автомобиль черного цвета с номером...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru