0 / 0 / 0
Регистрация: 07.09.2016
Сообщений: 298

Написать блок-схему

19.09.2016, 18:38. Показов 453. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите сделать блок схему.Заранее спасибо огромное.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program lab4;
uses crt;
var x,xn,xk,dx,z:real; i:integer;
begin
clrscr;
writeln ('Введите xn,xk,dx');
readln (xn,xk,dx);
{вывод заголовка таблицы}
writeln ('':6,'funktion z');
writeln ('|     x    |       z      |');
for i:=1 to 27 do write ('-'); writeln;x:=xn;
while x<=xk  do
begin
   if x>5 then z:=ln(sqrt(x))+2/x
    else if (x<=5) then z:=arcsin(x-5)
         else z:=sqrt(abs(x*x-10));
   writeln ('|',x:10:3,'|',z:10:3,'    |');
   x:=x+dx
end;
{вывод низа таблицы}
for i:=1 to 27 do write ('-');
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.09.2016, 18:38
Ответы с готовыми решениями:

Написать блок-схему
var n,m,i,j:byte; begin writeln('Введите n,m&gt;4'); readln(n,m); for i:=1 to m do write('+'); writeln; for i:=1 to n-2 do ...

Написать программу. И блок схему
Определить страну, имеющую наибольшее число соседей среди перечисленных: Алжир, Египет, Заир, Камерун, Ливия, Мали, Нигер, Судан, Чад,...

Надо написать блок-схему
var i:integer; begin for i:=1 to 1000 do if (i mod 15 = 11) and (i mod 11 = 9) then writeln(i); end.

1
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
19.09.2016, 20:22
немного "странное" там ветвление, но... хозяин барин.
Миниатюры
Написать блок-схему  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
19.09.2016, 20:22
Помогаю со студенческими работами здесь

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

Написать блок-схему для программы
Ввести массивы а(20) и b(20).Образовать массив с(20) из элементов,встречающихся в обоих массивах.Остаток массива С заполнить нулями.Вывести...

Написать программу и составить блок схему
Для массива A(N) получить сумму положительных и отрицательных элементов массива

Радость написать программу и блок схему
:cry: написать программу и блок-схему увеличивающая в 2 раза все эелементы массива которые больше 15 )) помогите плиз 2.Вычесть из...

написать блок схему по маленькому коду (8 строк)
program p; var a,b,n:real; begin writeln('введи число= '); readln(a); writeln('введи степень= '); readln(n); b:=exp(n...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

Новые блоги и статьи
Образование и практика
Igor3D 21.03.2025
Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек.
Massaraksh7 21.03.2025
Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .
Async/await в Swift: Асинхронное программировани­е в iOS
mobDevWorks 20.03.2025
Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .
Колмогоровская сложность: Приёмы упрощения кода
ArchitectMsa 20.03.2025
Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .
PostgreSQL в Kubernetes: Подготовка кластера и настройка
Mr. Docker 20.03.2025
Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .
C++26: Индексирование пакетов и метапрограммиро­вание
bytestream 20.03.2025
Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .
Состояние гонки в C#: подводные камни многопоточного программировани­я
UnmanagedCoder 20.03.2025
Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .
Next.js для разработки React: преимущества серверного рендеринга
Reangularity 20.03.2025
Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .
JUnit или TestNG: Выбираем Java-фреймворк для тестирования
Javaican 20.03.2025
История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .
Разбиваем монолит на два микросервиса и реализуем CI/CD
ArchitectMsa 20.03.2025
Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru