0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 8
1

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

08.12.2009, 11:30. Показов 629. Ответов 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.
0
08.12.2009, 11:30
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
Программист 1С
 Аватар для Давид
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
08.12.2009, 13:56 2
Вот - примерно так!
Вложения
Тип файла: rar shema.rar (5.0 Кб, 23 просмотров)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
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');


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Linux API: Полное руководство
hw_wired 08.02.2025
Linux API – это низкоуровневый программный интерфейс, обеспечивающий взаимодействие пользовательских приложений с ядром операционной системы. Он включает набор системных вызовов, библиотечных функций. . .
Асинхронное программировани­­­­­е и эмуляция async/await в C (СИ)
hw_wired 08.02.2025
Язык программирования C, несмотря на свой возраст, предоставляет неплохие средства для реализации асинхронных операций, позволяя создавать эффективные решения для обработки параллельных задач. В. . .
Как сгенерировать случайное число в указанном диапазоне в JavaScript
bytestream 08.02.2025
В JavaScript генерация случайных чисел основана на детерминированном алгоритме, который создает последовательность псевдослучайных значений. Встроенный метод Math. random() возвращает псевдослучайное. . .
Как получить список всех таблиц в PostgreSQL
bytestream 08.02.2025
PostgreSQL предлагает несколько методов для получения списка таблиц в базе данных. Наиболее распространенный способ - использование системного каталога pg_tables, который содержит информацию обо всех. . .
Java Spring для начинающих
bytestream 08.02.2025
Spring Framework - это универсальное решение для создания корпоративных Java-приложений. Он предоставляет комплексную программную и конфигурационную модель для современных приложений на Java. Spring. . .
Асинхронное программировани­­­­­­е и async/await в Visual Basic
bytestream 08.02.2025
В основе асинхронного программирования в Visual Basic лежит концепция неблокирующего выполнения операций. Когда программа встречает длительную операцию, например, чтение большого файла или запрос к. . .
Async/await и асинхронное программировани­­е в Delphi
bytestream 08.02.2025
Асинхронное программирование является неотъемлемой частью разработки современных приложений, позволяя создавать отзывчивые и эффективные программы. В Delphi реализация асинхронности опирается на. . .
Асинхронное программировани­­­­­е и async/await в C#
bytestream 08.02.2025
Асинхронное программирование - концепция, позволяющая приложениям эффективно выполнять длительные операции без блокировки основного потока выполнения. В контексте современной разработки на C# это. . .
Асинхронное программировани­­­­­е и горутины/каналы в Go
bytestream 08.02.2025
Язык Go изначально разрабатывался с учетом современных многоядерных процессоров и необходимости эффективного параллельного выполнения задач. В отличие от традиционных подходов к асинхронному. . .
Как восстановить stash в Git
hw_wired 08.02.2025
Git stash - это средство для временного сохранения изменений в рабочей директории. В процессе разработки часто возникают ситуации, когда нужно быстро переключиться на другую задачу, но текущие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru