Переделать Программу Из С++ В Паскаль

Тема в разделе "Pascal and Delphi", создана пользователем andru1312, 20 июн 2013.

  1. andru1312

    andru1312 New Member

    Регистрация:
    4 май 2013
    Сообщения:
    0
    Симпатии:
    0
    Код (C++):
    #include <iostream>
    using namespace std;

    char Bykvi(int i)
    {
    return static_cast<char>('a'-1+i);
    }

    void main()
    {
    const int n=3;
    int i,j;
    int ct=1;
    unsigned int ch[n][n];
    char ch2[n][n];
    for(i=0;i<n;i++)
    for(j=0;j<n;j++)
    ch[i][j]=ct++;
    for(i=0;i<n;i++)
    {for(j=0;j<n;j++)
    {cout<<ch[i][j]<<" ";}
    cout<<endl;}
    cout<<endl;
    for(i=0;i<n;i++)
    {for(j=0;j<n;j++)
    ch2[i][j]=Bykvi(ch[i][j]);}
    for(i=0;i<n;i++)
    {for(j=0;j<n;j++)
    {cout<<ch2[i][j]<<" ";}
    cout<<endl;}
    system("pause");
    Как переделать функцию Bykvi ?
     
Загрузка...
Похожие Темы - Переделать Программу Из
  1. abcgeorgii
    Ответов:
    1
    Просмотров:
    1.664
  2. Ruslan737
    Ответов:
    0
    Просмотров:
    888
  3. natali75675
    Ответов:
    1
    Просмотров:
    938
  4. Alexey075
    Ответов:
    0
    Просмотров:
    876
  5. Alexey075
    Ответов:
    1
    Просмотров:
    940

Поделиться этой страницей