Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 28.09.2012
Сообщений: 31

Циклы, построить блок схему

27.03.2013, 22:49. Показов 1353. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны натуральные a, действительное число n вычислить:
S=sin x + sin sin+...+sin sin...sinx
\ /
n раз
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program lab_3
uses crt;
var n,p,s: real;
a,i, integer
begin
 crlscrl;
   write ('n=1');
   readln (n);
   write ('a=');
   readln (a);
s:=0;
p:=1;
for i=1 to a do
   begin
n: =sin(n);             <------ Тут ошибка, не знаю как исправить, помогите, возможно и еще они в задании есть
i:= i+1;
end; 
write ('S=', S:0:4);
readln
end.
Если кому не трудно помогите задание правильно сделать, и блок схему к этому заданию построить. Очень прошу
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
27.03.2013, 22:49
Ответы с готовыми решениями:

Построить блок-схему
program Project1; var a: array of integer; // Переменная для хранения массива. n: integer; // Переменная для хранения...

Построить блок схему
Найти координаты точек пересечения прямой y=kx+b и окружности радиуса R с центром в начале координат.В каких координатных четвертях...

Построить блок схему
program a2; var a,b,k,sum:integer; sr:real; begin writeln('Введите значение конца интервала'); readln(b); a:=1; ...

5
 Аватар для Федя Форточкин
69 / 83 / 33
Регистрация: 09.12.2012
Сообщений: 222
Записей в блоге: 3
28.03.2013, 00:05
Az47, вот:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program lab_3;
uses crt;
var n,p,s: real;
a,i:integer;
begin
 clrscr;
   write ('n=1');
   readln (n);
   write ('a=');
   readln (a);
s:=0;
p:=1;
for i:=1 to a do
   begin
n:= sin(n);
i:= i+1;
end;
write ('S=', S:0:4);
readln
end.
стрелочку между циклом и действием до него забыл вставить
1
0 / 0 / 0
Регистрация: 28.09.2012
Сообщений: 31
28.03.2013, 01:30  [ТС]
Цитата Сообщение от Федя Форточкин Посмотреть сообщение
Вложение 249172Az47, вот:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program lab_3;
uses crt;
var n,p,s: real;
a,i:integer;
begin
 clrscr;
   write ('n=1');
   readln (n);
   write ('a=');
   readln (a);
s:=0;
p:=1;
for i:=1 to a do
   begin
n:= sin(n);
i:= i+1;
end;
write ('S=', S:0:4);
readln
end.
стрелочку между циклом и действием до него забыл вставить
Спасибо тебе за старания) А с ошибкой, не знаешь как исправить?
0
 Аватар для Федя Форточкин
69 / 83 / 33
Регистрация: 09.12.2012
Сообщений: 222
Записей в блоге: 3
28.03.2013, 10:26
Az47, я же исправил, у тебя там было присваивание написано как ": =" и он принимал это как два разных символа
1
0 / 0 / 0
Регистрация: 28.09.2012
Сообщений: 31
28.03.2013, 16:45  [ТС]
Цитата Сообщение от Федя Форточкин Посмотреть сообщение
Az47, я же исправил, у тебя там было присваивание написано как ": =" и он принимал это как два разных символа
Но там вроде все так же и осталось, тока пробел убран, именно то же самое у меня учитель подчеркнул. Не знаю что ей там не устроило)

Добавлено через 30 минут
Цитата Сообщение от Федя Форточкин Посмотреть сообщение
Az47, я же исправил, у тебя там было присваивание написано как ": =" и он принимал это как два разных символа
Хотя спасибо, думаю прокатит. А не мог бы ты еще 1 блок схему нарисовать Создать блок схему к заданию определения треугольника по двум углам Если тебе не трудно.
0
 Аватар для Федя Форточкин
69 / 83 / 33
Регистрация: 09.12.2012
Сообщений: 222
Записей в блоге: 3
28.03.2013, 19:20
Az47, щас посмотрю
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
28.03.2013, 19:20
Помогаю со студенческими работами здесь

Построить блок схему
Построить блок схему. Заранее спасибо =) const a1=8; b1=12; a2=16; b2=24; var mas: array of integer; mas2: array ...

Построить блок-схему
uses crt; var a:array of integer; i,n:integer; begin writeln('введите n'); readln(n); i:=1; writeln('введите элементы...

Построить блок-схему
uses crt; const m=10; {размеры матрицы} n=8; type Tmn=set of byte; {тип множества} Tmatr=arrayof byte; {тип матрицы} ...

Множества, построить блок-схему
Помогите пожалуйста построить блок схему. uses crt; var k,i: integer; s:string; begin while i&lt;=length(s) do begin if s in ...

Построить блок схему по массивам
Здравствуйте, прошу вашей помощи, завтра экзамен, и к нему нужна блок схема по программному коду Pascal, программа по массивам. Очень...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru