Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Создать программу по заданию с использованием модуля https://www.cyberforum.ru/ turbo-pascal/ thread2563007.html Задание: Разработайте универсальную подпрограмму, удаляющую из матрицы размером m*n заданную строку и столбец. Поместите подпрограмму в модуль. Разработайте тестирующую программу. Помогите, пожалуйста.	Turbo Pascal Файлы и меню BorlandPascal Разработать программу работы с файлами записей. Каждая запись создаваемых (исходных) файлов содержит сведения согласно варианту. Обработка каждого из исходных файлов заключается в формировании другого файла с требуемыми сведениями (согласно варианту). Программа должна уметь создавать любое количество исходных и формируемых по ним файлов выборок. Имена файлам (исходным и формируемым по ним)...
Turbo Pascal Решение уравнение 2 порядка методом рунге-кутта 1 порядка https://www.cyberforum.ru/ turbo-pascal/ thread2562641.html Всем привет, помогите с решением уравнения 2 порядка методом рунге-кутта 1 порядка, с вычислением точек, было бы неплохо если рисовался график само задание Уравнение: u''+u=1,5au^2+(1/p) u=1/r u'' - 2-ая производная по фи Необходимо рассчитать траекторию пробной частицы в центростремительном гравитационном поле Начало решения и как примерно надо сделать система из 3 уравнений:...	Turbo Pascal Напишите программу, которая сортирует последовательность целых чисел методом прямого включения Напишите программу которая сортиркет последовательность целых чисел методом прямого включения. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должнатвыдовать промежуточные состояния сортирует последовательности (построено) а двух последгихьстроках количество чисел в последовательности и ртсортированную потвозрастанию (или не унываю) ... https://www.cyberforum.ru/ turbo-pascal/ thread2562638.html
Turbo Pascal Написать программу, которая выводит средний балл каждого студента нужно пределать так, что бы программа выводила средний бал каждого студента!!!!!!!!! type stud=record name: string; godR: integer; godv:integer; mark: array of byte; end;	Turbo Pascal Составить подпрограмму и вычислить значение функции Y. Вычисление логарифмов осуществлять по подпрограмме https://www.cyberforum.ru/ turbo-pascal/ thread2561887.html ВАРИАНТ 9. Составить подпрограмму и вычислить значение функции Y. Вычисление логарифмов осуществлять по подпрограмме (LOGA(X)=LN(X)/LN(A) Y=(LOG2(X)+LOG3(X))/2*LOG5(X), при Х=5.8. Добавлено через 28 минут Решить с помощью функции
Turbo Pascal Вывести значения всех элементов заданной числовой последовательности, используя списки https://www.cyberforum.ru/ turbo-pascal/ thread2561727.html Помогите решить задачу, пожалуйста. Изучаю паскаль и хочу разобраться со списками, но понятного объяснения нигде не нашел. Думаю, мне будет легче, если у меня будет пример программы с использованием списков. Условие: "Вывести значения всех элементов заданной числовой последовательности, используя списки. Во входном потоке в первой строке через пробел перечислены значения элементов...	Написать программу вывода на экран русский алфавит в форме АаБбВв Turbo Pascal Написать программу вывода на экран русский алфавит в форме АаБбВв….
Turbo Pascal Ввести двумерный массив [n,m] Найдите сумму всех элементов Ввести двумерный массив, состоящую из элементов. Найдите сумму всех элементов. https://www.cyberforum.ru/ turbo-pascal/ thread2561334.html	Turbo Pascal Ввести двумерный массив [n,m] Вставьте в массив число 100 после пятого элемента в 3 строке https://www.cyberforum.ru/ turbo-pascal/ thread2561333.html Ввести двумерный массив, состоящий из элементов. Вставьте в массив число 100 после пятого элемента в 3 строке.
Turbo Pascal Ввести двумерный массив [n,m] Удалите из массива третий элемент во второй строке Ввести двумерный массив, состоящий из элементов. Удалите из массива третий элемент во второй строке.	Turbo Pascal Ввести двумерный массив [n,k] Найти количество положительных и отрицательных элементов https://www.cyberforum.ru/ turbo-pascal/ thread2561331.html Ввести двумерный массив, состоящий из элементов. Найти количество положительных и отрицательных элементов в данном массиве.

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

28.12.2019, 17:29

Сложное условие завершения цикла. Break - Turbo Pascal - Ответ 14135671

28.12.2019, 17:29. Показов 749. Ответов 3

Метки (Все метки)

Ответ

Шаг 0.1 очень большой, лучше так.

Pascal

function f1(x:real):real;
begin
f1:=exp(-x)*ln(1+x);
end;
function f2(x:real):real;
begin
f2:=0.5*x*x*x-x*x+0.5;
end;
var x:real;
begin
x:=0.1;
while abs(f1(x)-f2(x))>0.01 do
x:=x+0.01;
write('x=',x:0:2,' f1=',f1(x):0:2,' f2=',f2(x):0:2);
end.

Вернуться к обсуждению:
Сложное условие завершения цикла. Break Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.12.2019, 17:29

Готовые ответы и решения:

Сложное условие завершения цикла при работе с матрицами.
Методика выполнения работы. Составить программу, предусматривая завершение обработки матрицы при...

Сложное условие завершения цикла при работе с матрицами
Помогите пожалуйста написать программу на паскале Дана матрица А с 2 столбцами и 10...

Остановка цикла без break
For i:=1 to N-1 do begin If a>a then k1:=false; end; Выполняю проверку массива на...

Сложное условие завершения цикла
Помогите пожалуйста решить! Составить алгоритм и программу, вычисляющую значения функции с...

	28.12.2019, 17:29

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.12.2019, 17:29

Помогаю со студенческими работами здесь

Сложное условие цикла
Есть txt-файл с числами, каждое новое со след строки. Нужно присвоить этим числам значения...

Сложное условие цикла
Всем добрый вечер! Есть txt файл, внутри которого столбец чисел(которые, кстати, могут быть и с...

Составить условие для завершения цикла
Почему не работает цикл do-while на проверку '!='? Если проверку меняю на '==', то все работает....

Сложное условие
помогите доделать, а то что то не работает procedure TForm1.Timer1Timer(Sender: TObject); begin...

Наверх