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

@Филип · Регистрация: 18.05.2011

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

Здравствуйте помогите перевести несколько программ из pascal в c#.
1 программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var n,k:longint;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
k:=0;
while k*k<n do k:=k+1;
if k*k>n then k:=k-1;
writeln('k=',k,' k^2=',k*k);
readln
end.

2 программа:

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
uses crt;
var
a:array[1..100]of integer;
i,j,temp,n:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
writeln('uporydochennyi massiv:');
for i:=1 to n do
for j:=1 to n-1 do
if a[j]>a[j+1] then
 begin
  temp:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=temp;
 end;
for i:=1 to n do
write(a[i],'  ');
writeln;
writeln('izmenennyi masiv:');
for i:=1 to n do
if a[i]<>a[i+1] then write(a[i],'  ') ;
readkey;
end.

Срочно нужно. Заранее большое спасибо.

@sorcerer · 19.05.2011, 05:04

Помогите пожалуйста мне тоже перевести из pascal в c#

1)Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 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
uses crt;
const nmax=20;
var k,n,a,i,j,i1:integer;
    f:boolean;
begin
clrscr;
write('Количество наборов K=');
readln(k);
write('Количество чисел в наборе N=');
readln(n);
writeln('Введите наборы чисел:');
for i:=1 to k do
 begin
  writeln('Набор ',i);
  i1:=0;f:=true;
  for j:=1 to n do
   begin
    readln(a);
    if (a=2) and f then
     begin
      i1:=j;
      f:=false;
     end;
   end;
  writeln('Номер первого числа 2=',i1);
 end;
readln
end.

2) Описать процедуру AddRightDigit(D, K), добавляющую к целому положительному числу K справа цифру D (D — входной параметр целого типа, лежащий в диапазоне 0–9, K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K справа данные цифры D1 и D2, выводя результат каждого добавления.

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
Program Proc_1;
  Uses Crt;
  Var
    d,i : integer;
    k : longint;
 
  Procedure AddRightDigit(d :integer;
                          var k : longint);
    Var
    Begin
k:=k*10+d;
    End;
 
BEGIN
  ClrScr;
  Write('Vvedite 4islo-> ');  Readln(k);
  For i:= 1 to 2 do
  Begin
    Repeat
      Write('Vvedite cifru->(0-9): ');  Readln(d);
    Until (d >= 0) and (d <= 9);
    AddRightDigit(d,k);
    Writeln('Rezultat: ',k);
  End;
  Readkey;
END.

3)Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function Quarter(x,y: Real): Integer;
begin
 if (x > 0) and (y > 0) then Quarter := 1;
 if (x < 0) and (y > 0) then Quarter := 2;
 if (x < 0) and (y < 0) then Quarter := 3;
 if (x > 0) and (y < 0) then Quarter := 4;
end;
 
begin
 Write(Quarter(-1.5,2):2,Quarter(3,-2):2,Quarter(-0.45,-2):2);
 ReadLn;
end.

4)Дано целое число N и набор из N целых чисел. Найти номера первого минимального и последнего максимального элемента из данного набора и вывести их в указанном порядке.

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
program zadacha;
uses crt;
var
a:array[1..100]of integer;
n,i,max,min,maxi,mini:integer;
writeln('vvedite N');
readln(n);
max:=-1;
min:=100;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);
if a[i]<min then begin
min:=a[i];
mini:=i;
end;
end;
writeln;
for i:=n downto 1 do begin
if a[i]>max then begin
max:= a[i];
maxi:=i;
end;
end;
writeln('pervuj minimalnui element ', mini, ' poslednij maksimalnuj ', maxi);
readln;
end.

5)Дан целочисленный массив размера N, все элементы которого упорядочены (по возрастанию или убыванию). Найти количество различных элементов в данном массиве.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program zadacha;
var n,i,k:integer;
chusla:set of integer;
a:array[1..10] of integer;
begin
write('Введите размер массива');
readln(n);
chusla:='';
kol:=0;
for i:=1 to N-1 do
  if a[i]<>a[i+1] then 
    begin
      Inc(kol);
      if i=N-1 then Inc(kol)
   end;
end;
writeln('количество различных элементов',k);
readln;
end.

@Петррр · 19.05.2011, 12:38

1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var n,k:longint;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
k:=0;
while k*k<n do k:=k+1;
if k*k>n then k:=k-1;
writeln('k=',k,' k^2=',k*k);
readln
end.

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
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
class Program
{
    static void Main(string[] args)
    {
        long n, k;
        do
        {
            Console.Write("Введите n: ");
            n = int.Parse(Console.ReadLine());
        }
        while (n > 0);
        k = 0;
        while (k * k < n) 
            k = k + 1;
        if (k * k > n) 
            k = k - 1;
        Console.WriteLine("k = " + k + " k^2 =" + k * k);
        Console.ReadKey(true);
    }
}

Новые блоги и статьи Все статьи Все блоги /
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 На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

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

Решение