Форум программистов, компьютерный форум, киберфорум
C# для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 31.03.2019
Сообщений: 42

Перевод из Pascal в C#

21.04.2019, 15:43. Показов 545. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Переведите пожалуйста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function f(x:real):real;
begin
f:=x/sqr(sin(3*x));
end;
var a,b,h,s:real;
    n,i:integer;
begin
a:=0.2;
b:=1;
write('Введите число разбиений n=');
readln(n);
h:=(b-a)/n;
s:=(f(a)+f(b))/2;
for i:=1 to n-1 do
s:=s+f(a+i*h);
s:=s*h;
write('S=',s:0:5);
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.04.2019, 15:43
Ответы с готовыми решениями:

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома стоит эта версия /перестала работать что...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой ABC. Важен именно этот метод. ...

Перевод из Pascal в C++
Перевод из Pascal в C++ Здравствуйте, помогите пожалуйста с переводом, сам нисколько не знаю паскаль, только в этом году начал...

3
 Аватар для Веселый
87 / 88 / 48
Регистрация: 12.10.2013
Сообщений: 1,103
21.04.2019, 21:35
Почти всё перевёл, СЭР Jonson228! Попыхтите немного и сами. Я Паскаль не Leider, spreche ich deutsch nicht.Короче не учил.Не победил цикл for .Надо пыхтеть по сайтам.
C#
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
class Program
    {
        static double func(double i)
        {
          string f = (i / Math.Pow(Math.Sin(3 * i),2)).ToString();
          double func = Double.Parse(f);
          return func;
        }
        static void Main(string[] args)
        {
           double a,b,h,s;
           int n,i;
           a = 0.2;
           b = 1;
           Console.Write("Введите число разбиений n=");
           n = Convert.ToInt32(Console.ReadLine());  
           h =(b-a)/n;
           s = (func(a) + func(b)) / 2;
 
            // Pascal :
          /*  for i:=1 to n-1 do
               s:=s+f(a+i*h);
               s:=s*h;
               write('S=',s:0:5);
               end.
           */
        }
    }
1
454 / 278 / 163
Регистрация: 17.04.2019
Сообщений: 1,637
21.04.2019, 21:39
Веселый, что-то вы тут намудрили, если честно
0
35 / 29 / 15
Регистрация: 20.11.2010
Сообщений: 481
22.04.2019, 06:38
Цитата Сообщение от Веселый Посмотреть сообщение
for i:=1 to n-1 do
* * * * * * * *s:=s+f(a+i*h);
* * * * * * * *write('S=',s:0:5);
* * * * * * * *end.
C#
1
2
3
4
5
6
for(i=1; i<=n-1; i++)
{
  s += func(a+i*h); -- компилятора увы с собой нет. Не могу проверить вычисляется ли вначале результат выражения, а -- потом передается или он выпадет в ошибку. Если будет выпадать ошибка, то придется создать переменную типа Double --и ему присваивать это выражение и затем его передавать в функцию
  s *= h;
 Console.WriteLine($"S = {Math.Round(s,5)}")
}
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.04.2019, 06:38
Помогаю со студенческими работами здесь

Перевод из Pascal в C#
Пожалуйста переведите var x:integer; a,y:real; begin write('Введите коэффициент а='); readln(a); x:=1; y:=sin(a); ...

перевод с Pascal на C++
Const Max=1000; Eps=0.00001; Type Para=record X: integer;

Перевод из Pascal в C#
Переведите если не сложно, пожалуйста var a: array of integer; n, m, i, j, k, k_min, i_max, j_max, t: integer; begin ...

Перевод из Pascal в С++
Можно пожалуйста перевести в С++ и сделать ее рандомной. Еще у меня не получается вывести на печать номера столбцов в которых заданы...

Перевод из pascal в С
Program pr4_1; uses crt; var firstmaxpos, lastminpos, n, i :integer; x, MAX,MIN ...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru