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

Вычислить функцию Z=(X(I)^2)/(Sin(X(I)/2)) где X(I) элемент массива X(18)

22.03.2012, 11:03. Показов 1622. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Пока только начинаю учить паскаль .
В чем ошибка у меня?
Pascal
1
2
3
4
5
6
7
8
9
10
11
var X:array[1..18] of integer;
I:=integer;
Begin
for I:= 1 To 18 DO
Begin
X[I]:= Trunc(Random*100)-50;
END;
Begin
Z:=(X[I]^2)/(Sin(X[I]/2));
Write(A[i],Z);
END.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.03.2012, 11:03
Ответы с готовыми решениями:

Подпрограммы: Вычислить выражение F(t)= sqr(t)+sin(t)/sqrt(t) где t=e^ax+1/sin(x)
1. Вычислить выражение F(t)= sqr(t)+sin(t)/sqrt(t) где t=e^ax+1/sin(x) Прошу помощи по этим задачам,если кому не трудно) ...

Циклом «пока» вычислить сумму ряда 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n
1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n

Подсчитать функцию y=sin(sin(...sin(x)))))) для заданого х (рекурсия)
посчитать функцыю y=sin(sin(...sin(x)))))) для заданого х, в котором имя "sin" повторяется n раз

3
 Аватар для PCixoPAD
15 / 21 / 18
Регистрация: 20.03.2012
Сообщений: 55
22.03.2012, 11:33
В самом начале программы напиши Randomize
Без него рандомное заполнение не будет работать
PS Зачем Trunc использовал?

Добавлено через 7 минут
Подправил:
Pascal
1
2
3
4
5
6
7
8
9
10
var X:array[1..18] of integer;
I:integer;
Begin
Randomize;
for I:= 1 To 18 DO
X[I]:= -50+Random(100)
For i:= 1 to 18 do
Z:=(X[I]^2)/(Sin(X[I]/2));
Writeln(A[i]:5,Z:5);
END.
0
Mobile Software Engineer
Эксперт С++
 Аватар для Ev[G]eN
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
22.03.2012, 18:46
Цитата Сообщение от PCixoPAD Посмотреть сообщение
Подправил:
и что нормально?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const
  n = 18;
var
  Arr: array[1..n] of Integer;
  i: Byte;
begin
  Randomize;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    Arr[i]:=Random(20);
    write(Arr[i], ' ');
  end;
  writeln;
  writeln('Массив: ');
  for i:=1 to n do
    write(((sqr(Arr[i]))/(Sin(Arr[i]/2))):0:2, '  ');
end.
0
0 / 0 / 0
Регистрация: 22.03.2012
Сообщений: 6
22.03.2012, 19:55  [ТС]
trunc был в где-то в учебнике,в одном из примеров сам незнаю зачем написал его.
спасибо всем!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.03.2012, 19:55
Помогаю со студенческими работами здесь

Вычислить Z= Ʃ sin(xi)-Ʃ sin(yi)/Ʃ |xi| где X(n) и Y(m) данные линейные массивы
вычислить Z= Ʃ sin(xi)-Ʃ sin(yi)/Ʃ |xi| где X(n) и Y(m) данные линейные массивы

Рассчитать функцию y=sin(sin(sin(…(sin(x))))), в которой имя функции «sin» повторяется n раз.
1. Вычислить элементы последовательности, используя рекурсию. L0(x)=1, L1(x)= +1-x, kLk(x)=(-x+2k+ -1)Lk-1(x)-(k+ -1)Lk-2(x) ...

Дано натуральное число N. Вычислить S=sin x+ sin sinx +...+sin sin....sin x
Дано натуральное число N. Вычислить S (составить программу с использованием операторов While и Repeat) S=sin x+ sin sinx +...+sin...

Вычислить сумму индексов положительных элементов массива С(9) которые формируются по правилу: C(i)=Sin(C(i-1) + 2) где С(1)=13
Составить блок-схему. Буду признательно.

Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ., меньшее по модулю 10-4
Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ..., меньшее по модулю 10-4 Видел код на паскале, перенес его на Java. Не...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm)
8Observer8 30.01.2026
Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru