Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.50/4:

Стюша

0 / 0 / 0

Регистрация: 07.12.2009

Сообщений: 8

Составить блок схему

08.12.2009, 11:30. Показов 634. Ответов 1

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
q:array[1..100]of real;
i,n,f:integer;
x:real;
begin
readln(n);
for i:=1 to n do
read(q[i]);
for i:=1 to n do
if  (-3*q[i]-sqrt(9*q[i]*q[i]+20)>=0)or(-3*q[i]+sqrt(9*q[i]*q[i]+20)>=0)
then
begin
write(q[i]:3:1);
f:=1;
end;
if f=0 then writeln('net chisel');
readln;
end.

Заказать работу у эксперта

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

08.12.2009, 11:30

Ответы с готовыми решениями:

Составить блок схему вычисления значения функции, а затем составить программу
Составить блок схему вычисления значения функции, а затем составить программу

Составить блок-схему
помогите и мне пожалуйста блок -схему правильно составить Program v18z8; Uses Crt; Var t:array of integer; e:array of real; ...

Составить блок-схему
program n14; var s:string; i,c:integer; begin writeln('vvedit stroky'); readln(s); for i:=1 to length(s) do c:=pos('.',s); ...

Давид

Программист 1С

859 / 647 / 187

Регистрация: 03.03.2009

Сообщений: 1,154

08.12.2009, 13:56

Вот - примерно так!

Вложения

shema.rar (5.0 Кб, 23 просмотров)

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

08.12.2009, 13:56

Помогаю со студенческими работами здесь

Составить блок схему
program zadacha2; Procedure Delyt(i:integer; var S:integer); Var J:integer; Begin S:=0; For J:=1 to I-1 do if (I mod J = 0)...

Составить блок-схему
Здраствуйте.. Срочно нужно составить блок схемы... Помогите прошу... задачи решил.. а с блок схемами у меня проблемы =(... var...

Составить блок схему
program test; uses crt; const n=10; var a:array of integer; b,c:arrayof integer; i,j,k,min,max:integer; begin j:=0;...

Составить блок схему
Дана действительная матрица размера m X n. Найти среднее арифметическое наибольшего и наименьшего значений ее элементов. Добавлено...

Составить блок-схему
uses crt; var i,n:byte; begin clrscr; write('vvedite chislo'); readln(n); case n of 1:begin textcolor(2);write('zelenie');

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

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
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 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .

Наверх