Протабулировать функцию

@bigman135 · Регистрация: 19.02.2018

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

проверьте пожалуйста мои программы. и помогите пжл с блок схемой
Разработать программу табулирования (вычисления таблицы значений) функции для произвольного диапазона изменения независимого параметра или аргумента. Выполнить расчет для заданных значений исходных данных.
а) с использованием оператора цикла с предусловием while
б) с использованием оператора цикла с постусловием repeat-until
в) с использованием оператора цикла с параметром for
y=9*exp(3*ln(x))+exp(1/3*ln(x))-1,1-x
x=(1+a)/(3*a)
a={1;4}
da=0,5

a)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program prim31;
var an,ak,da,a,x,y:real;
begin
write (‘Введите an,ak,da=’);
readln(an,ak,da);
a:=an;
while a<=ak+0.0001 do
begin
x:=(1+a)/(3*a);
y:=9*exp(3*ln(x))+exp(1/3*ln(x))-1;
writeln(‘a=’,a:3:1,’ x=’,
x:5:3,’ y=’,y:5:3);
a:=a+da;
end;
end.

b)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program prim32;
var an,ak,da,a,x,y:real;
begin
write(‘Введите an,ak,da=’);
readln(an,ak,da);
a:=an;
repeat
x:=(1+a)/(3*a);
y:=9*exp(3*ln(x))+exp(1/3*ln(x))-1,1-x;
writeln(‘a=’,a:3:1,’ x=’,x:5:3,
‘ y=’,y:5:3);
a:=a+da;
until a>ak;
end.

c)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program prim33;
var an,ak,da,a,x,y:real;
i,n:integer;
begin
write(‘Введите an,ak,da=’);
redln(an,ak,da);
n:=trunc((ak-an)/da)+1;
a:=an;
for i:=1 to n do
begin
x:=(1+a)/(3*a);
y:=9*exp(3*ln(x))+exp(1/3*ln(x))-1,1-x;
writeln(‘a=’,a:3:1,
‘ x=’,x:5:3,’ y=’,y:5:3);
a:=a+da;
end;
end.

Добавлено через 2 часа 22 минуты
в паскале никак не могу составить ее, постоянно ошибки

@ZX Spectrum-128 · 04.03.2018, 10:27

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program prim31;
 
var
  an, ak, da, a, x, y: real;
 
begin
  write('Введите an,ak,da= ');
  readln(an, ak, da);
  a := an;
  while a <= ak + 0.0001 do
  begin
    x := (1 + a) / (3 * a);
    y := 9 * exp(3 * ln(x)) + exp(1 / 3 * ln(x)) - 1.1 - x;
    writeln('a= ', a:3:1, ' x= ', x:5:3, ' y= ', y:5:3);
    a := a + da;
  end;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program prim32;
 
var
  an, ak, da, a, x, y: real;
 
begin
  write('Введите an,ak,da=');
  readln(an, ak, da);
  a := an;
  repeat
    x := (1 + a) / (3 * a);
    y := 9 * exp(3 * ln(x)) + exp(1 / 3 * ln(x)) - 1.1 - x;
    writeln('a=', a:3:1, ' x=', x:5:3, ' y=', y:5:3);
    a := a + da;
  until a > ak;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program prim33;
 
var
  an, ak, da, a, x, y: real;
  i, n: integer;
 
begin
  write('Введите an,ak,da=');
  readln(an, ak, da);
  n := trunc((ak - an) / da) + 1;
  a := an;
  for i := 1 to n do
  begin
    x := (1 + a) / (3 * a);
    y := 9 * exp(3 * ln(x)) + exp(1 / 3 * ln(x)) - 1.1 - x;
    writeln('a=', a:3:1, ' x=', x:5:3, ' y=', y:5:3);
    a := a + da;
  end;
end.

@bigman135 · 04.03.2018, 22:19 **[ТС]**

ZX Spectrum-128, Спасибо!!!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии 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(), которая. . .

@bigman135 0 / 0 / 0 Регистрация: 19.02.2018 Сообщений: 4
	04.03.2018, 22:19 [ТС]
	ZX Spectrum-128, Спасибо!!! 0