Найти ошибку. Табуляция функции

@IIaJIbI4 · Регистрация: 16.11.2009

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

Доброго время суток)))

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program lab3;
var a,b,an,ak,ah,bn,bk,bh,x,c:real;
begin
writeln('an,ak,ah,bn,bk,bh,x');
readln(an,ak,ah,bn,bk,bh,x);
a:=an;
repeat
b:=bn;
repeat
if (a<0.3) and (b>0.2) then
c:=(b*(sin(a*x)))
else
c:=(a*(cos(b*x)));
b:=bn+bh;
until b>bk;
a:=an+ah;
until a>ak;
writeln('c= ',c);
readln;
end.

@WolfCF · 12.01.2010, 08:44

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function ArcCos ( X : Real ): Real; 
var 
tmpArcCos : Real; 
begin 
if X = 0.0 then { чтобы не было деления на 0 } 
tmpArcCos := Pi / 2.0 
else 
tmpArcCos := ArcTan ( Sqrt ( 1 - X * X ) / X ); 
 
if X < 0.0 then 
tmpArcCos := Pi - tmpArcCos; 
 
ArcCos := tmpArcCos; 
end; 
 
function ArcSin ( X : Real ): Real; 
begin 
if X = 1.0 then { чтобы не было деления на 0 } 
ArcSin := Pi / 2.0 
else 
ArcSin := ArcTan ( X / Sqrt ( 1 - X * X ) ); 
end;

примерно так

@IIaJIbI4 · 12.01.2010, 08:51 **[ТС]**

а варианта решения этой задачи попроще нет????

@WolfCF · 12.01.2010, 08:59

IIaJIbI4, у меня только как функции расписывать правильно. остальное уж Вы сами думайте.

@IIaJIbI4 · 12.01.2010, 09:03 **[ТС]**

блин... ее не нужно решать через функции... мои наброски вроде правильные но не работает она с донными числами просто тупо зависает... помогите найти ошибку в моих набросках... скорее всего из за sin и cos где должны стоять arcsin и arccos но не знаю как их прописать...

Новые блоги и статьи Все статьи Все блоги /
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .

@IIaJIbI4 2 / 2 / 0 Регистрация: 16.11.2009 Сообщений: 122
	12.01.2010, 08:51 [ТС]
	а варианта решения этой задачи попроще нет???? 0

@WolfCF 3317 / 1379 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	12.01.2010, 08:59
	IIaJIbI4, у меня только как функции расписывать правильно. остальное уж Вы сами думайте. 0

@IIaJIbI4 2 / 2 / 0 Регистрация: 16.11.2009 Сообщений: 122
	12.01.2010, 09:03 [ТС]
	блин... ее не нужно решать через функции... мои наброски вроде правильные но не работает она с донными числами просто тупо зависает... помогите найти ошибку в моих набросках... скорее всего из за sin и cos где должны стоять arcsin и arccos но не знаю как их прописать... 0