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

Перевести из Pascal в C# (консоль)

20.10.2022, 21:49. Показов 419. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
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
uses crt;
const
n = 10;
var
x, y : array[1..n] of real;
i : byte;
begin
{вводим первый массив}
for i := 1 to n do
begin
write('введите ', i, ' элемент массива: ');
readln(x[i])
end;
clrscr;
{формируем второй массив согласно правилам}
for i := 1 to n do
begin
if x[i] < 0 then y[i] := ln(abs(x[i])) else
if (x[i] >= 1) and (x[i] <= 10) then y[i] := sqrt(sqr(x[i]) + 2 * x[i] + 3) else
if (x[i] in [0.1, 0.2, 0.3, 0.4]) then y[i] := sin(x[i]) + sqr(cos(x[i])) else
y[i] := 1 - x[i]
end;
{выводим оба массива в столбик}
writeln('x[n]':10, 'y[n]':10);
for i := 1 to n do
writeln(x[i]:10:2, y[i]:10:2);
repeat until keypressed
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.10.2022, 21:49
Ответы с готовыми решениями:

Перевести программу из Pascal в C# (консоль)
const n = 10; var a : array of integer; k, i : byte; begin randomize; writeln('исходный массив:'); for i := 1...

Перевести программу из Pascal в visual basic (консоль)
const n = 10; var a : array of integer; k, i : byte; begin randomize; writeln('исходный массив:'); for i := 1...

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.NET Program graphics; uses graph; var...

1
 Аватар для roach1967
983 / 463 / 233
Регистрация: 27.06.2014
Сообщений: 1,033
21.10.2022, 08:40
denisvodny,
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
29
30
31
32
33
34
35
36
37
38
using System;
using static System.Console;
using static System.Math;
 
namespace ConsoleApp82
{
    internal class Program
    {
        private static readonly int n = 10;
        private static double[] x = new double[n], y = new double[n];
        private static double[] z = { 0.1, 0.2, 0.3, 0.4 };
        static void Main(string[] args)
        {
            // вводим первый массив
            for (int i = 0; i < n; i++)
            {
                Write($"Введите {i + 1} элемент массива: ");
                x[i] = double.Parse(ReadLine());
            }
            Clear();
            // формируем второй массив согласно правилам
            for (int i = 0; i < n; i++)
            {
                if (x[i] < 0) y[i] = Log(Abs(x[i]));
                else if (x[i] >= 1 && x[i] <= 10) y[i] = Sqrt(x[i] * x[i] + 2 * x[i] + 3);
                else if (Array.Exists(z, a => a == x[i])) y[i] = Sin(x[i]) + Cos(x[i]) * Cos(x[i]);
                else y[i] = 1 - x[i];
            }
            // выводим оба массива в столбик
            WriteLine($"{"x[n]",10}{"y[n]",10}");
            for (int i = 0; i < n; i++)
            {
                WriteLine($"{x[i],10:0.00}{y[i],10:0.00}");
            }
            ReadLine();
        }
    }
}
Результат:
Code
1
2
3
4
5
6
7
8
9
10
11
      x[n]      y[n]
      0.10      1.09
     -0.60     -0.51
      0.80      0.20
     15.00    -14.00
      9.00     10.10
      0.50      0.50
     11.00    -10.00
    -10.00      2.30
      9.00     10.10
      1.00      2.45
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.10.2022, 08:40
Помогаю со студенческими работами здесь

Нужно перевести код из Turbo Pascal в Pascal ABC.NET
Доброго времени суток. На форуме находил похожие темы, но к сожалению так и не смог разобраться. Помогите пожалуйста перевести код из Turbo...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record x,y:integer; end; ...

Перевести код из Pascal Abc. net в Turbo Pascal
var n, s, k: integer; begin s := 0; k := 0; writeln('Введите число: '); readln(n); while n &lt;&gt; 0 do ...

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл последовательного доступа N...

Необходимо перевести программу с Pascal ABC на free pascal
program vozrostan; type Mass=array of longint; func= function(a,b:Longint): boolean; var s:text; MassX,mas:Mass; ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
BOINC: 22 года — и всё ещё работает
Programma_Boinc 12.03.2026
BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru