Из C++ в Pascal

@n0pk123 · Регистрация: 09.07.2019

Студворк — интернет-сервис помощи студентам

Здраствуйте. Надеюсь найдутся люди которые помогут мне с моей проблемой. Мне надо перевести код из c++ в pascal.

C++

#include <iostream>
#include <stack> 
using namespace std;
 
stack<int> aka;
stack<int> tuksa;
 
int main()
{
    aka.push(1);
    aka.push(2);
    aka.push(3);
    
    if (aka.empty()) {
        cout << "aka tuksa\n";
    } else {
        cout << aka.size() << " elementi akaa\n";
        
        while(!aka.empty()) {
            tuksa.push(aka.top());
            aka.pop();
        }
    }
    
    cout << "elementi akaa " << aka.size() << "\n";
    cout << "elementi tuksa " << tuksa.size() << "\n";
    cout << "Beigas";
 
    return 0;
}

@JuriiMW · 09.07.2019, 18:24

Дословно (почти) в PascalABC.NET:

Pascal

begin
  var aka:=New Stack<integer>;
  var tuksa:=New Stack<integer>;
  aka.Push(1);
  aka.Push(2);
  aka.Push(3);
  if aka.Count=0 then
    'aka tuksa'.Println
  else
    begin
      $'{aka.Count} elementi akaa'.Println;
      while aka.Count>0 do
        tuksa.Push(aka.Pop);
    end;
  $'elementi akaa {aka.Count}'.Println;
  $'elementi tuksa {tuksa.Count}'.Println;
  'Beigas'.Println;
end.

Лишний оператор в цикле удалён.

Опции темы

Из C++ в Pascal

Решение