Составить программу вычисления значений функции f(x) на отрезке [a,b] с шагом h

@Kolapsis · Регистрация: 08.01.2016

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

Задание - Составить программу вычисления значений функции f(x) на отрезке [a,b] с шагом h.Результат представить в виде таблицы, первый столбец которой - значение аргумента, а второй - соответствующие значение функции. Вывести окно сообщений.

Возникла проблема. Не могу перенести вывод модального окна из паскаля в делфи. Есть рабочий код паскаля и дэлфи. Помогите соединить код паскаля с выводом из дэлфи.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Var a,b,x,y,h:real; 
Begin 
Writeln('Введите a,b'); 
readln(a,b); 
Writeln('Введите шаг'); 
readln(h); 
 
x:=a; 
 
While x<=b do 
Begin 
y:=(sin(2*x)/cos(2*x))-3; 
Write('x=',x:6:2, ' y=',y:6:2); 
Writeln; 
x:=x+h; 
end; 
readln; 
end.

Т.е надо переделать код дэлфи под паскаль.

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm10.Button1Click(Sender: TObject); 
var i:integer; 
st:string; 
begin 
st:=' '; 
for i := 1 to 5 do 
begin 
st:=st+IntToStr(i)+' '+IntToStr(sqr(i))+#13; 
end; 
ShowMessage(st); 
end;

@Cold · 27.03.2017, 21:38

Составить программу для вычисления значений функции F(x)=tgx

Добавлено через 1 минуту
Написать программу вычисления значений функции f(x) на отрезке [a,b] с заданным шагом h.

Добавлено через 2 минуты
Составить программу для вычисления значений функции F(x) на отрезке [a,b] c шагом h

@Ivandur · 28.03.2017, 15:04

А обязательно в ShowMessage?
Не удобнее ли в Memo?

Новые блоги и статьи Все статьи Все блоги /
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .

@Cold 87 / 87 / 65 Регистрация: 22.05.2014 Сообщений: 485
	27.03.2017, 21:38
	Составить программу для вычисления значений функции F(x)=tgx Добавлено через 1 минуту Написать программу вычисления значений функции f(x) на отрезке [a,b] с заданным шагом h. Добавлено через 2 минуты Составить программу для вычисления значений функции F(x) на отрезке [a,b] c шагом h 0

@Ivandur 694 / 6061 / 265 Регистрация: 11.08.2016 Сообщений: 3,645
	28.03.2017, 15:04
	А обязательно в ShowMessage? Не удобнее ли в Memo? 0

Опции темы