Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Juliali
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 3
#1

Перевод кода C# в Паскаль - Turbo Pascal

30.05.2016, 10:01. Просмотров 197. Ответов 1
Метки нет (Все метки)

Здравствуйте! Помогите, пожалуйста, перевести этот код в Паскаль.

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
double[] array = new double[20];
Console.WriteLine("Введите массив");
for (int a = 0; a<20;a++)
{
      array[a] = Convert.ToDouble(Console.ReadLine());
}
int countOfChanges = 0;
string currentSign;
if (array[0] >= 0)
{
    currentSign = "+";
}
else
{
    currentSign = "+";
}
for (int b = 1; b<=19;b++)
{ 
     if (array[b] < 0 && currentSign == "+")
     {
         countOfChanges +=1;
         currentSign = "-";
      }
      else if (array[b] >= 0 && currentSign == "-")
      {
          countOfChanges +=1;
          currentSign = "+";
       }
}
Console.WriteLine("Введенный массив");
for(int c = 0; c < 20; c++);
{
        Console.Write(array[c] + " ");
}
Console.WriteLine();
Console.WriteLine("Количество смен знака = " + countOfChanges);
Console.ReadKey();
}
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2016, 10:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевод кода C# в Паскаль (Turbo Pascal):

Перевод кода из си в паскаль
Здравствуйте.Помогите пожалуйста. Я написал программу на си,нужно этот код...

перевод кода на Си в код на Паскаль
пытаюсь освоить Паскаль путем перевода небольшой программки с кодом на Си в код...

Срочно нужен перевод кода с С++ на Паскаль!
//---------------------------------------------------------------------------...

Узнать длину ключа зашифрованного текста (Перевод кода из C в Паскаль)
Собственно с Паскалем плохо дружу, а программу нужно реализовать именно в...

Перевод из С++ в Паскаль
Плиз переведите код из C++ в Турбо Паскаль static void Main(string args) ...

перевод в паскаль
#include &lt;iostream&gt; void main() { int n, i, j; std::cin&gt;&gt;n; ...

1
Joy
Эксперт Pascal/Delphi
2119 / 1159 / 1418
Регистрация: 29.08.2014
Сообщений: 4,225
30.05.2016, 13:28 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  a:array[0..19] of real;
  i,j,k:integer;
function Z(t:real):integer;
begin
  if t<0 then Z:=-1 else Z:=1;
end;
begin
  writeln('Enter Array:');
  for i:=0 to 19 do read(a[i]);
  j:=0;k:=0;
  for i:=1 to 19 do
    if Z(a[i])<>Z(a[k]) then begin
      j:=j+1;
      k:=i;
    end;
  writeln('original array:');
  for i:=0 to 19 do writeln(a[i]:0:4);
  writeln('Number of sign changes:',j);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2016, 13:28
Привет! Вот еще темы с решениями:

перевод из с++ в паскаль
помогите пожалуйста перевести // Создать счетчики. // data-сортируемый...

Перевод с С++ в Паскаль
Памагите перевисти з С++ в Паскаль оч нужна пажалуста: case 3 : //Пошук за...

Перевод с c++ на паскаль.
Всем форумчанам Добрый вечер! Начну по-порядку. Сегодня в школе к нам пришла...

перевод из С в паскаль.
есть код в с++, его надо в паскаль переделать, а мне паскаль как-то уж очень...


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

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

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