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

Перевести код с Паскаля

07.05.2020, 09:25. Показов 310. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
program sinv;
 
var x, xl, n, k, i: integer; //текущее число, прошлое число, количество чисел,
                             //количество изменений знака, счётчик
 
begin
  repeat //цикл ввода и проверки n
    write('n = '); //ввод n
    readln(n);
    if n < 2 then writeln('Error: n < 2, reenter.') //считаем, что n >= 2
  until n >= 2; //если n >= 2, прекращаем повтор ввода n
  k := 0; //количество изменений знака пока 0
  writeln('Enter sequence:'); //приглашение
  for i := 1 to n do //цикл ввода последовательности и счёта k
    begin
      write(i:3, ': '); //печатаем номер числа, можно убрать
      readln(x); //читаем текущее число
      if i = 1 then xl := x; //если число первое, то считаем, что перед ним было 
                             //оно же - надо ведь от чего-то плясать
      if ((x < 0) and (xl >= 0)) or ((xl < 0) and (x >= 0)) then k := k + 1; 
      //если текущее и прошлое числа имеют разный знак, то k := k + 1
      xl := x //посчитали, текущее число теперь становится прошлым
    end; //конец цика ввода последовательности и счёта k
  writeln('Count of sign inverting: ', k); //печатаем результат
  readln //ждём нажатия <Enter> перед закрытием программы
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.05.2020, 09:25
Ответы с готовыми решениями:

Каким образом можно перевести код Паскаля в код Фортран?
Здравствуйте уважаемые программисты! Может быть банальная, но довольно сложная проблема - перевод...

Как перевести код с паскаля на Java. Пытался сам но код не хочет работать переведенный
А сам код на паскале работает. Вот код на паскале var i,j,m,c,d: integer; A:array of...

Перевести код из Паскаля в Си++
Переведите пожалуйста из Паскаля в Си++, кому не сложно.

Перевести код с паскаля на Си
Задача написана под паскаль! Знающим людям прошу,помогите написать ее на Borland C (чистый С)...

0
07.05.2020, 09:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.05.2020, 09:25
Помогаю со студенческими работами здесь

Перевести код с паскаля на с#
Помогите пожалуйста перевести код с паскаля на с# продолжение

Перевести код с Паскаля на C
var f,g: text; s: string; begin assign(f,'F:\text1.txt'); assign(g,'F:\text2.txt');...

перевести код с паскаля на С++
Доброго времени суток! у меня большая просьба: имеется код на паскале, программа, которая рисует...

Перевести код с Паскаля на Си
Думаю Вам не составит труда ). А я запутался) uses crt; var N,M:integer; function...

Перевести код с Паскаля на C#
program lm; uses crt; Type P= array of integer; M= array of integer; Var a:p; b:m;...

Перевести код с Паскаля в Си
uses crt; var i: integer; begin for i:=10 to 99 do if ((i*2) mod 10=8) or ((i*3) mod 10=4)...


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

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

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