Разобрать алгоритм

@Okina · Регистрация: 28.10.2011

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

Разобрать алгоритм и написать программу, позволяющую найти и вывести на экран(печать) наибольшее целое НЕЧЕТНОЕ положительное число Х, удовлетворяющее условию
0.7 е^х - 150х < 12.375.
Помогите написать программу в делфи..

@Okina · 01.11.2011, 13:49 **[ТС]**

А как с repeat написать?)

@Puporev · 01.11.2011, 14:43

А разве здесь
https://www.cyberforum.ru/post2123248.html
не repeat?

Добавлено через 6 минут
Или так.

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
x:=1;
repeat
x:=x+2;
until 0.7*exp(x+1)-150*(x+1)>=12.375;
Edit1.Text:='x='+IntToStr(x)+' Значение='+FloatToStrF(0.7*exp(x)-150*x,ffFixed,7,3);
end;

@SYSM · 01.11.2011, 14:48

1. число 1 не обрабатывается, при смене условия работать не будет.
этот бы код да с while'ом

@Puporev · 01.11.2011, 14:54

Тогда в последнем коде

Pascal
1
x:=-1;

просто работает и лень заморачиваться...

@Okina · 01.11.2011, 18:57 **[ТС]**

Спасибо

Добавлено через 1 час 48 минут
А скажите можно сделать как нибудь что бы в программе можно было ввести другое условие?
0.7 е^х - 150х < 12.375.
не эту цифру а другую..

Добавлено через 38 минут
А еще вопросик.. я вставляю картинку.. и текст получается за ней а кнопка нормально на ней.. как мне текст поместить на картинку а не под нее?

@Puporev · 01.11.2011, 19:07

Сообщение от Okina

что бы в программе можно было ввести другое условие?

нет проблем

Pascal
1
2
3
4
5
6
7
8
9
10
var z:real;
..........
z:=StrToFloat(Edit1.Text);
 
x:=1;
repeat
x:=x+2;
until 0.7*exp(x+1)-150*(x+1)>=z;
Edit2.Text:='x='+IntToStr(x)+' Значение='+FloatToStrF(0.7*exp(x)-150*x,ffFixed,7,3);
end;

Добавлено через 4 минуты

Сообщение от Okina

я вставляю картинку.. и текст получается за ней

Как вставляете картинку, на чем или в чем текст?

Добавлено через 1 минуту

Сообщение от Okina

а кнопка нормально на ней..

Вот и выводите текст на кнопки
Button1.Caption:=.....

@Puporev · 01.11.2011, 19:25

Вот так все показывает.

@Okina · 01.11.2011, 19:25 **[ТС]**

[quote=Puporev;2127179]Как вставляете картинку, на чем или в чем текст?[/quote
картинка Image просто вставляю и растягиваю выбираю из папки, потом делаю чтоб по форме было..
Текст Lable, вот он за картинкой получается.. мне просто подписать сверху функцию какую решаю.

@Puporev · 01.11.2011, 19:26

Сообщение от Okina

Текст Lable,

Это зря, Лабели не видно. Я там что-то слепил.

@Okina · 01.11.2011, 19:28 **[ТС]**

Что то она при запуске ошибку выдала..

Добавлено через 34 секунды
Так вот чем можно написать чтоб видно было?

@Puporev · 01.11.2011, 19:32

Какую? Может у Вас не модуля XPMan, тогда уберите его из Uses.

Добавлено через 2 минуты

Сообщение от Okina

Так вот чем можно написать чтоб видно было?

В принципе что угодно, кроме Лабеля, я сделал LabeledEdit с вкладки Additional.

@Okina · 01.11.2011, 19:33 **[ТС]**

Is not a valid floating point value

@Puporev · 01.11.2011, 19:36

В окно ввода нужно ввести число, если дробное то у меня через запятую, у Вас не знаю, это как настроено в системе, попробуйте и через запятую и через точку.

Добавлено через 47 секунд
Это я добавил чтобы не всегда 12....... как в задании а любое число, как Вы спрашивали.

@Okina · 01.11.2011, 19:40 **[ТС]**

мм.. так оно видится но не считает правильно( тогда надо как то сделать чтобы и точку и запяттую можно..а то вылетает(

@Puporev · 01.11.2011, 19:45

Сообщение от Okina

но не считает правильно

Почему не правильно?

Добавлено через 1 минуту
Уберите ввод и оставьте как есть по условию, что-то уже надоело.

@Okina · 01.11.2011, 20:49 **[ТС]**

Теперь правильно считает..просто вы забыли число в условии на z поменять) спасибо )
Извините что уж так мучаю..просто совсем не к кому обратится(

@Okina · 03.11.2011, 22:58 **[ТС]**

А можете помочь создать для нее блок схему?

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

@Okina 0 / 0 / 0 Регистрация: 28.10.2011 Сообщений: 37

	Разобрать алгоритм 31.10.2011, 16:27. Показов 2918. Ответов 36 Метки нет (Все метки) Разобрать алгоритм и написать программу, позволяющую найти и вывести на экран(печать) наибольшее целое НЕЧЕТНОЕ положительное число Х, удовлетворяющее условию 0.7 е^х - 150х < 12.375. Помогите написать программу в делфи.. 0

@Okina 0 / 0 / 0 Регистрация: 28.10.2011 Сообщений: 37
	01.11.2011, 13:49 [ТС]
	А как с repeat написать?) 0

@SYSM 117 / 117 / 30 Регистрация: 21.10.2011 Сообщений: 308
	01.11.2011, 14:48
	1. число 1 не обрабатывается, при смене условия работать не будет. этот бы код да с while'ом 1

@Okina 0 / 0 / 0 Регистрация: 28.10.2011 Сообщений: 37
	01.11.2011, 18:57 [ТС]
	Спасибо Добавлено через 1 час 48 минут А скажите можно сделать как нибудь что бы в программе можно было ввести другое условие? 0.7 е^х - 150х < 12.375. не эту цифру а другую.. Добавлено через 38 минут А еще вопросик.. я вставляю картинку.. и текст получается за ней а кнопка нормально на ней.. как мне текст поместить на картинку а не под нее? 0

@Okina 0 / 0 / 0 Регистрация: 28.10.2011 Сообщений: 37
	01.11.2011, 19:25 [ТС]
	[quote=Puporev;2127179]Как вставляете картинку, на чем или в чем текст?[/quote картинка Image просто вставляю и растягиваю выбираю из папки, потом делаю чтоб по форме было.. Текст Lable, вот он за картинкой получается.. мне просто подписать сверху функцию какую решаю. 0

@Okina 0 / 0 / 0 Регистрация: 28.10.2011 Сообщений: 37
	01.11.2011, 19:28 [ТС]
	Что то она при запуске ошибку выдала.. Добавлено через 34 секунды Так вот чем можно написать чтоб видно было? 0

@Okina 0 / 0 / 0 Регистрация: 28.10.2011 Сообщений: 37
	01.11.2011, 19:33 [ТС]
	Is not a valid floating point value 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	01.11.2011, 19:36
	В окно ввода нужно ввести число, если дробное то у меня через запятую, у Вас не знаю, это как настроено в системе, попробуйте и через запятую и через точку. Добавлено через 47 секунд Это я добавил чтобы не всегда 12....... как в задании а любое число, как Вы спрашивали. 1

@Okina 0 / 0 / 0 Регистрация: 28.10.2011 Сообщений: 37
	01.11.2011, 19:40 [ТС]
	мм.. так оно видится но не считает правильно( тогда надо как то сделать чтобы и точку и запяттую можно..а то вылетает( 0

@Okina 0 / 0 / 0 Регистрация: 28.10.2011 Сообщений: 37
	01.11.2011, 20:49 [ТС]
	Теперь правильно считает..просто вы забыли число в условии на z поменять) спасибо ) Извините что уж так мучаю..просто совсем не к кому обратится( 0

@Okina 0 / 0 / 0 Регистрация: 28.10.2011 Сообщений: 37
	03.11.2011, 22:58 [ТС]
	А можете помочь создать для нее блок схему? 0