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

08.09.2019, 14:34. Показов 800. Ответов 0

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

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

Помогите перевести этот код

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
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
Program three;
var
a,a1:array[1..10, 1..10] of real;
b,b1:array[1..10] of real;
x: array[1..10] of real;
n,i,j,k:integer;
z,r,g:real;
begin
n:=3;
A[1,1]:=3; A[1,2]:=2;A[1,3]:=-5;
A[2,1]:=2; A[2,2]:=-1; A[2,3]:=3;
A[3,1]:=1; A[3,2]:=2; A[3,3]:=-1;
b[1]:=-1; b[2]:=13; b[3]:=9;
writeln('Матрица A: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:5);
a1[i,j]:=a[i,j];
end;
writeln;
end;
writeln;
Writeln('Матрица B: ');
for i:=1 to n do
writeln(b[i]);
for k:=1 to n do // { прямой ход Гаусса }
begin
for j:=k+1 to n do
begin
r:=a[j,k]/a[k,k];
for i:=k to n do
begin
a[j,i]:=a[j,i]-r*a[k,i];
end;
b[j]:=b[j]-r*b[k];
end;
end;
for k:=n downto 1 do // { обратный ход Гаусса }
begin
r:=0;
for j:=k+1 to n do
begin
g:=a[k,j]*x[j];
r:=r+g;
end;
x[k]:=(b[k]-r)/a[k,k];
end;
writeln('Корни системы:');
for i:=1 to n do
write('x[', i, ']=', x[i], '   ');
end.

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

08.09.2019, 14:34

Ответы с готовыми решениями:

Перевод с Pascal на C#
Function Bits(x, b, k: integer) : integer; begin Bits := (x shr b) and (1 shl k-1); end;

Перевод из pascal
var s:string; n,i,k,mx:byte; begin writeln('Введите предложение'); readln(s); n:=length(s); k:=0; mx:=0; for i:=1 to n...

Перевод из Pascal в C#
Переведите пожалуйста function f(x:real):real; begin f:=x/sqr(sin(3*x)); end; var a,b,h,s:real; n,i:integer; begin ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

08.09.2019, 14:34

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

Перевод из Pascal в C#
Переведите пожалуйста Const n=20; Var m:array of integer; i,c,f:integer; b:boolean; Begin For i:=1 to n do...

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

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

Перевод из Pascal в C#
Uses crt; Var A,B,C:real; Begin Clrscr; Write(‘Введите размеры огорода: ’); Readln(A,B); Write(‘Введите...

Перевод с Pascal на C#
Для каждого посетителя парикмахерской (с одним мастером) известны следующие величины: t – момент его прихода и τ – продолжительность...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через 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 На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

Наверх