1 / 1 / 0
Регистрация: 07.07.2019
Сообщений: 81
1

Перевод кода с Паскаля (перевод в метры)

07.09.2019, 19:45. Показов 1997. Ответов 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
var a,b,d:integer;
c,e:real;
begin
writeln('1-дециметр    2-километр');
writeln('3-метр        4-миллиметр');
writeln('5-сантиметр');
read(a);
 if a = 1 then
 begin
  writeln('Введите количество дециметров.');
  read(b);
  c:=b/10;
  writeln(c,' метров');
 end;
 if a = 2 then
 begin
  writeln('Введите количество километров.');
  read(b);
  d:=b*1000;
  writeln(d,' метров');
 end;
 if a = 3 then
 begin
  writeln('Введите количество метров.');
  read(b);
  c:=b;
  writeln(c,' метров');
 end;
 if a = 4 then
 begin
  writeln('Введите количество миллиметров.');
  read(b);
  c:=b/1000;
  writeln(c,' метров');
 end;
 if a = 5 then
 begin
  writeln('Введите количество сантиметров.');
  read(b);
  e:=b/100;
  writeln(e,' метров');
 end;
end.
перевести в c#?, пожалуйста
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.09.2019, 19:45
Ответы с готовыми решениями:

Перевод кода с Паскаля на C#
надеюсь кто-то из C# юзеров ещё помнят паскаль. суть в том что я перебивал код с паскаля(работает...

Перевод кода с паскаля на C#
Помогите перевести код на C#. var n,i:integer; x:real; s:longint; begin repeat ...

Перевод кода с Паскаля на C#
uses crt; const nmax=100; var a:array of integer; n,i,mx,imx,mn,imn:integer; begin...

Добавить переменную: перевод кода с Паскаля
Суть программы в том, что после каждого слова ставиться заданное число. Но тут сделано оно...

1
Просто хороший человек
390 / 180 / 24
Регистрация: 26.04.2011
Сообщений: 434
07.09.2019, 23:04 2
Лучший ответ Сообщение было отмечено KristinaBest как решение

Решение

Ну, как то так наверное.

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
39
40
41
42
43
44
45
46
47
48
    class Program
    {
        static void Main(string[] args)
        {
            int a, b, d;
            double c, e;
            Console.WriteLine("1-дециметр    2-километр");
            Console.WriteLine("3-метр        4-миллиметр");
            Console.WriteLine("5-сантиметр");
            while (!int.TryParse(Console.ReadLine(), out a));
            switch (a)
            {
                case 1:
                    Console.WriteLine("Введите количество дециметров.");
                    while (!int.TryParse(Console.ReadLine(), out b));
                    c = (double)b / 10;
                    Console.WriteLine("{0} метров", c);
 
                    break;
                case 2:
                    Console.WriteLine("Введите количество километров.");
                    while (!int.TryParse(Console.ReadLine(), out b)) ;
                    d = b * 1000;
                    Console.WriteLine("{0} метров", d);
                    break;
                case 3:
                    Console.WriteLine("Введите количество метров.");
                    while (!int.TryParse(Console.ReadLine(), out b)) ;
                    c = b;
                    Console.WriteLine("{0} метров", c);
                    break;
                case 4:
                    Console.WriteLine("Введите количество миллиметров.");
                    while (!int.TryParse(Console.ReadLine(), out b)) ;
                    c = (double)b / 1000;
                    Console.WriteLine("{0} метров", c);
                    break;
                case 5:
                    Console.WriteLine("Введите количество миллиметров.");
                    while (!int.TryParse(Console.ReadLine(), out b)) ;
                    e = (double)b / 100;
                    Console.WriteLine("{0} метров", e);
                    break;
            }
            Console.WriteLine("Please press any key to exit");
            Console.ReadKey();
        }
    }
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.09.2019, 23:04
Помогаю со студенческими работами здесь

Перевод скорости из километров в час в метры в секунду
Напишите программу, переводящую скорость из километров в час в метры в секундах. Кому не сложно)

Перевод с Паскаля на c#
Помогите пожалуйста, заранее спасибо) program filer; uses crt; var g,s:real; n,i:integer;...

Перевод паскаля на C#
var a1,a2,x,i,j,n:integer; begin readln(a1,n); for j:=a1 to n do begin for...

Перевод с паскаля в C#
Ребят, помогите программку перевести с паскаля на C#. В паскале вообще ничего не понимаю, даже не...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru