Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
5 / 4 / 0
Регистрация: 09.12.2020
Сообщений: 362

Перевести в С++

10.12.2020, 20:09. Показов 881. Ответов 21
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
program Project2;
 
//Коротких Татьяна
 
{$APPTYPE CONSOLE}
 
uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  Math;
 
var
        x: real;
    Exact: real; //точное значение функции
    n, i,j: integer;
 
  CurElem, tmp: real;
  SumAbsE: real; //сумма для точности e
    Count:integer;
 
Begin
 
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  writeln('Введите значение x');
  readln(x);
 
  Exact := 0.3;
  SumAbsE := 0;
  Count:=0;    //счетчик
 
  while abs(Exact - SumAbsE)> 0.000001 do
  begin
   Count := Count + 1;
   i := Count;
    for j := 1 to i+1 do
     begin
       tmp := tmp*(-1)
     end;
   CurElem := tmp*(exp((2*i+1)/(4*i*i-1))*ln(x));
   SumAbsE := SumAbsE + CurElem;
  end;
 
 
 writeln(#10'Точное значение функции = ',Exact:10:8);
 writeln(#10'========================================================');
 writeln(#10'Сумма слагаемых для точности 0.000001 = ',SumAbsE:10:8);
 writeln(#10'Количество слагаемых: ', Count);
 writeln(#10'=========================================================');
 
 readln
 
End.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
10.12.2020, 20:09
Ответы с готовыми решениями:

Чтобы перевести мышку на второй монитор надо сделать усилие или бистро перевести
Чтобы перевести мышку на второй монитор надо сделать усилие или быстро перевести, на винде нет такого. Как исправить чтобы мышка ходила...

Перевести фиолетовый (105, 62, 151) из RGB в HSB, уменьшить яркость в 2 раза и перевести обратно
Помогите пожалуйста! Перевести фиолетовый (105, 62, 151) из RGB в HSB, уменьшить яркость в 2 раза и перевести обратно

Ошибка в коде: Перевести число 2-ую СС, переставить цифры так, чтоб получилось максимальное и перевести его в 10-ую СС
Перевести число 2 -ую сс, переставить цифры так, чтоб получилось максимальное и перевести его в 10-ую сс. Выводит ошибку, при вводе...

21
11.12.2020, 13:05
Студворк — интернет-сервис помощи студентам

Не по теме:

Цитата Сообщение от Arcor Посмотреть сообщение
самое стремное - на другом форуме я принимаю эти же зачеты и реально стремно помогать так вот... ээх
Забавно наверное свой же код получить на проверку xD

0
11.12.2020, 13:14

Не по теме:

Цитата Сообщение от M@RsHall Посмотреть сообщение
Забавно наверное свой же код получить на проверку xD
не, пока без этого)) я пока свои задачи не узнаю, хотя я не сижу на сишном форуме тут))) но я об общем смысле имел в виду)

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
11.12.2020, 13:14
Помогаю со студенческими работами здесь

Не получается перевести код из jQuery перевести в обычный JS
Есть урывок строки: value1 = jQwery('#val1').val(); . Нужно как-то в чистий JS превратить. Буду благодарен за помощь.

Перевести из Pascal в C++ и наоборот просто перевести обьясните
Перевести c c++ на Pascal #include <stdio.h> main () { char s; float а=86.531; printf("%s\n","Кафедра ПО"); ...

QString перевести в char* || QChar перевести в char*
Подскажите пожалуйста как сделать: Исходники в utf-8, qt4.8 setlocale(LC_ALL, "Russian"); QTextCodec *wincodec =...

Как презентации SWF флэш сайта перевести в HTML5 с сохранением эфектов ) Как правильно и полноценно Перевести SWF в HTML5
программа Sothink SWF Decompiler конвертирует SWF файл в HTML5 разбивая его на HTML и JS ...но она тянет только файл 15kb ...это очень...

Текстовый файл перевести в двоичный, а потом полученный двоичный файл перевести обратно в текстовый
Всем привет. Есть такая задачка: "текстовый файл перевести в двоичный, а потом полученный двоичный файл перевести обратно в текстовый"...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
22
Ответ Создать тему
Новые блоги и статьи
Хитросплетение родственных связей пантеона греческих богов.
russiannick 14.05.2026
Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .
[golang] Угол между стрелками часов
alhaos 12.05.2026
По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .
Debian 13: Установка Lazarus QT5
ВитГо 09.05.2026
Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива.
Hrethgir 06.05.2026
На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта
Argus19 01.05.2026
Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++
pyirrlicht 29.04.2026
попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита
Maks 28.04.2026
Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание
Maks 24.04.2026
У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru