Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Niclan
0 / 0 / 0
Регистрация: 03.10.2016
Сообщений: 5
1

Переписать код с C# на pascal

10.10.2016, 21:02. Просмотров 864. Ответов 2
Метки нет (Все метки)

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
using System;
 
public class Test
{
    public static void Main()
    {
        // your code goes here
                   int[] myArray = new int[] { 5,-2,7,-8,-3,9,6,11,-3 };
            double multiply = 1;
            int count = 0;
            for (int i = 0; i < myArray.Length; i++)
            {
                if (i % 2 == 0 && myArray[i] < 0)
                {
                    count += 1;
                    multiply *= myArray[i];
                }
            }
            Console.WriteLine("Кол-во отрицательных элементов на четных индексах: {0}", count);
            Console.WriteLine("Произведение: {0}", multiply);
            Console.ReadLine();
    }
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2016, 21:02
Ответы с готовыми решениями:

Переписать программу с Basic на Pascal
Доброго времени суток! Перепишите, пожалуйста, программу на Паскаль... Я не...

Мне лишь нужно переписать эту задачу из С# на язык Pascal.
private string Programm(string input, string progress) { var result = input;...

Переписать код с использованием процедур
Нужно записать вот эту program two_five_three; type mass=array of real; ...

Переписать код с использованием процедур
Нужно переписать готовый код программы написанный форумцем STGE(за что ему...

Переписать код методом ООП с модулем
Переписать методом Объектно-Ориентированного Программирования и чтобы он...

2
Puporev
Модератор
54978 / 42287 / 29200
Регистрация: 18.05.2008
Сообщений: 99,910
10.10.2016, 21:14 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const n=9;
      myArray:array[1..n] of integer=(5,-2,7,-8,-3,9,6,11,-3);
var i,multiply,count:integer;
begin
writeln('Массив');
multiply:=1;
count:=0;
for i:=1 to n do
 begin
  write(myArray[i]:4);
  if(i mod 2=0)and(myArray[i]<0)then inc(count);
  multiply:=multiply*myArray[i];
 end;
writeln;
writeln('Кол-во отрицательных элементов на четных индексах=',count);
writeln('Произведение=',multiply);
end.
0
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
10.10.2016, 21:58 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Не по теме:

:rofl:

C#
1
count += 1;


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const
    myArray: Array[0..8] Of ShortInt = (5, -2, 7, -8, -3, 9, 6, 11, -3);
var
    i, count: Byte;
    multiply: Integer;
begin
    count := 0; multiply := 1;
    for i := 1 to Length(myArray) - 1 do
        if ((Not Odd(i)) And (myArray[i] < 0))
        then
        begin
            Inc(count);
            multiply := multiply * myArray[i];
        end;
    WriteLn('Кол-во отрицательных элементов на четных индексах: ', count);
    WriteLn('Произведение: ', multiply);
    ReadLn;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.10.2016, 21:58

Pascal код
Я очень прошу, помогите написать код, любого задания, очень прошу! Буду крайне...

Преобразование в код Pascal
Люди, помогите пожалуйста преобразовать код ассемблера в код Pascal: asm...

Перевести код из С в Pascal
Здравствуйте! Помогите пожалуйста перевести перевести код из С в Паскаль. В С...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru