Переделать готовые задания с Pascal на C#

@DenDen · Регистрация: 25.03.2014

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

помогите переделать готовые задания с паскаля на С#..

1)Дано целое число, лежащее в диапазоне от 1 до 9999. Вывести строку — словесное описание данного числа вида "четное двузначное число", "нечетное четырехзначное число" и т.д.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var n:integer;
 
begin
 clrscr;
 write('N-> '); 
 readln(n);
 if n mod 2=0 then write('Четное ') else write('Нечетное ');
 case n of
 1..9:write('однозначное ');
 10..99:write('двузначное ');
 100..999:write('трёхзначное ');
 1000..9999:write('четырехзначное ');
 end;
 write('число');
 readln;
end.

2)Дана строка-предложение на русском языке. Подсчитать количество содержащихся в строке гласных букв.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
const
 gl=['а','е','ё','и','о','у','ы','э','ю','я'];
var
    i,count:integer;
    s:string;
begin
 
readln (s);
count := 0;
for i := 1 to length(s) do
 begin
    if s[i] in gl then count:=count+1;
 end;
Writeln (count);
end.

3)Дан целочисленный массив размера 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
Uses crt;
Var
x: Array[1..100] of Integer;
i,n: Integer;
BEGIN
Clrscr;
Randomize;
Writeln('Введите кол-во чисел: '); Readln(n);
Writeln('Исходный массив:');
    for i:=1 to n do
 begin
  if(i<n)and(a[i] mod 2=0) then a[i]:=a[i]+a[n];
  write(a[i],' ') 
 end;
For i:=2 to n-1 do
If x[i] mod 2=0 Then
x[i]:=x[i]+x[1];
Writeln;
Writeln('Полученный массив: ');
For i:=1 to n do
Write(x[i],' ');
Readln
END.

4)Поменять местами элементы на 3 и 5 позициях

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
program Project1;
uses
  SysUtils;
const
  n=10;
var
  Arr:array[1..n,1..n] of integer;
  i,j,t:integer;
begin
  writeln('Matrix is - ');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      Arr[i,j]:=random(30)-5;
      write(Arr[i,j],'  ');
    end;
    writeln;
  end;
  for i:=1 to n do
  begin
    t:=Arr[i,5];
    Arr[i,5]:=Arr[i,3];
    Arr[i,3]:=t;;
  end;
  writeln(#13#10'Result massive - ');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(Arr[i,j],'  ');
    writeln;
  end;
  readln;
end.

5)Вставить 1 после каждого четного отрицательного числа и 0 после каждого нечетного положительного исходного массива. Тестовый пример 4 3 4 5 -1 -2 -3 2. Результат: 4 3 0 4 5 0 -1 -2 1 -3 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
31
32
const
  n=20;
var
  a: array [1..n] of integer;
  i,j,m: integer;
begin
  randomize;
  repeat
    write('Введите размер массива (до ',n div 2,'): ');
    readln(m);
  until m in [1..n div 2];
  writeln('Массив: ');
  for i:=1 to m do
    begin
      a[i]:=random(201)-100;
      write(a[i]:6);
    end;
  writeln;
  i:=1;
  while i<=m do
    if ((a[i] mod 2=0) and (a[i]<0)) or ((a[i] mod  2<>0) and (a[i]>0)) then
      begin
        m:=m+1;
        for j:=m downto i+1 do a[j]:=a[j-1];
        if a[i]<0 then a[i+1]:=1
        else a[i+1]:=0;
        i:=i+2;
      end
    else i:=i+1;
  writeln('Преобразованный массив: ');
  for i:=1 to m do write(a[i]:6);
end.

Комментарий модератора

Одна тема - одна задача. Чистить всё не стал, поскольку уже даны ответы. Но на будущее прошу учесть это правило

@dracon4ik · 28.03.2014, 08:29

1 программа

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
using System; 
 
namespace ConsoleApplication35
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.Write("N-> ");
            int n = Convert.ToInt32(Console.ReadLine());
            if (n % 2 == 0) Console.Write ("Четное");
            else Console.Write ("Нечетное");
            if (n < 10) Console.Write ("однозначное");
            else if (n < 100) Console.Write ("двухзначное");
            else if (n < 1000) Console.Write ("трехзначное");
            else if (n < 10000) Console.Write ("четырехзначное");
            Console.WriteLine(" число");
            Console.ReadLine();
        }
    }
}

2 задача

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
using System; 
 
namespace ConsoleApplication35
{
    class Program
    {
        static void Main(string[] args)
        {
           char[] ch=new char[]{'а','е','ё','и','о','у','ы','э','ю','я'};
           string s = Console.ReadLine();
           Console.WriteLine("Число гласных в строке: {0}", s.Split(ch, StringSplitOptions.None).Length  - 1);
        }
    }
}

@Jack Wade · 28.03.2014, 09:53

Задача 3