Перевести с Delphi в C# на консольном режиме

Узнай цену своей работы

Формулировка задачи:

Program Case20;
var
D,M:integer;
begin
Writeln('введите целое число (день) D=');
readln(D);
Writeln('введите целое число (месяц) M=');
readln(M);
case M of
1:begin
if (D<19)then Writeln('Козерог')
else Writeln('Водолей')
end;
2:begin
if (D<18)then Writeln('Водолей')
else Writeln('Рыбы')
end;
3:begin
if (D<20)then Writeln('Рыбы')
else Writeln('Овен')
end;
4:begin
if (D<19)then Writeln('Овен')
else Writeln('Телец')
end;
5:begin
if (D<20)then Writeln('Телец')
else Writeln('Близнецы')
end;
6:begin
if (D<21)then Writeln('Близнецы')
else Writeln('Рак')
end;
7:begin
if (D<22)then Writeln('Рак')
else Writeln('Лев')
end;
8:begin
if (D<22)then Writeln('Лев')
else Writeln('Дева')
end;
9:begin
if (D<22)then Writeln('Дева')
else Writeln('Весы')
end;
10:begin
if (D<22)then Writeln('Весы')
else Writeln('Скорпион')
end;
11:begin
if (D<21)then Writeln('Скорпион')
else Writeln('Стрелец')
end;
12:begin
if (D<19)then Writeln('Стрелец')
else Writeln('Козерог')
end;
else Writeln('ошибка');
end;
end.
А можно сделать по короче в с# ? как тогда будет?

Решение задачи: «Перевести с Delphi в C# на консольном режиме»

textual
Листинг программы
static void Main(string[] args) {
    do {
        string[] Signs = new string[12] { "Козерог", "Водолей", "Рыбы", "Овен", "Телец", "Близнецы", "Рак", "Лев", "Дева", "Весы", "Скорпион", "Стрелец" };
        int[] dates = new int[12] { 19, 18, 20, 19, 20, 21, 22, 22, 22, 22, 21, 19 };
        Console.Write("День рождения (число): ");
        int d = int.Parse(Console.ReadLine());
        Console.Write("Месяц рождения (число): ");
        int m = int.Parse(Console.ReadLine());
        int index = d < dates[m - 1] ? m - 1 : m;
        if (index == 0)
            index = 11;
        else if (index == 12)
            index = 0;
        Console.WriteLine("Ваш знак гороскопа — {0}", Signs[index]);
    } while (Console.ReadKey().Key != ConsoleKey.Escape);

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5