Przetłumaczenie c++ na pascala

Question

Koledzy, bardzo proszę was o sprawdzenie i poprawienie kodu Pascala . Napisałem działający program w C++, ale niestety mój nauczyciel zna tylko pascala i wymaga kodu w pascalu mimo, że pozwolił pracować C++. Próbowałem ogarnąć ten język, ale niestety nie wyszło. Bardzo proszę o sprawdzenie i poprawę . Z góry bardzo serdecznie dziekuję!

Oto kod w języku C++

#include <iostream>
#include <windows.h>
using namespace std;
int przedmioty, studenty, maks, bufor, roznica;
string nazwisko;
string tabelka[100][100];
int main()
{
    cout << "Podaj ilosc przedmiotow" << endl;
    cin>>przedmioty;
    system("cls");
    for(int i=1;i<=przedmioty;i++)
    {
        cout<<"Podaj nazwe "<<i<<" przedmiotu "<<endl;
        cin>>tabelka[0][i];
        system("cls");
    }
     cout << "Podaj ilosc uczniow" << endl;
    cin>>studenty;
    system("cls");
    for(int i=1;i<=studenty;i++)
    {
        cout<<"Podaj imie i nazwisko "<<i<<" ucznia "<<endl;
        cout<<"Imie: ";
        cin>>tabelka[i][0];
        tabelka[i][0]+=" ";
        cout<<"Nazwisko: ";
        cin>>nazwisko;
        tabelka[i][0]+=nazwisko;
        system("cls");
    }

    for(int x=1;x<=przedmioty;x++)
    {
        for(int y=1;y<=studenty;y++)
        {
            cout<<"Co dostal "<<tabelka[y][0]<<" z "<<tabelka[0][x]<<endl;
            cin>>tabelka[y][x];
            system("cls");
        }
    }

    for(int x=0;x<=przedmioty;x++)
    {
        for(int y=0;y<=studenty;y++)
    {
        bufor=tabelka[y][x].length();
        if(maks<bufor) maks=bufor;
    }
       for(int y=0;y<=studenty;y++)
    {
        bufor=tabelka[y][x].length();
        roznica=maks-bufor;
        for(int z=0;z<roznica;z++)
        {
            tabelka[y][x]+=" ";
        }

    }
maks=0;
    }

        for(int x=0;x<=studenty;x++)
    {
        for(int y=0;y<=przedmioty;y++)
        {
            cout<<tabelka[x][y]<<"  ";
        }
        cout<<endl<<endl;
    }
system("pause");
    return 0;
}

A oto kod Pascal:

 

program dziennik;
Uses Crt;
var
przedmioty, studenty, maks, bufor, roznica,x,y,z,i:integer;
nazwisko:string;
tabelka:array [0..99] of array [0..99] of integer;
Begin
writeln('Podaj ilosc przedmiotow');
readln(przedmioty);
 Clrscr;
for i:=0 to przedmioty do
Begin
writeln('Podaj nazwe ', i,' przedmiotu');
readln(tabelka[0][i]);
 Clrscr;
end;
writeln('podaj ilosc uczniow');
readln(studenty);
clrscr;
for i:=1 to studenty do
Begin
writeln('podaj immie i nazwisko ',i,' ucznia');
writeln('Imie: ');
readln(tabelka[i][0]);
tabelka[i][0]:=tabelka[i][0]+' ';
readln(nazwisko);
tabelka[i][0]:=tabelka[i][0]+nazwisko;
clrscr;
end;
begin
    for x:=1 to przedmioty do
    begin
        for y:=1 to studenty do
        begin
            writeln('Co dostal ',tabelka[y][0],' z ',tabelka[0][x]);
            readln([y][x]);
            clrscr;
        end;
    end;

    for x:=0 to przedmioty do
    begin
        for y:=0; to studenty do
    begin
        bufor=tabelka[y][x].length();
        if (maks<bufor) maks=bufor;
    end;
       for y:=0 to studenty do
    begin
        bufor=tabelka[y][x].length();
        roznica=maks-bufor;
        for z:=0 to roznica do
        begin
            tabelka[y][x]+' ';
        end;

    end;
max:=0;
    end;

        for x:=0 to studenty do
    begin
        for y:=0 to przedmiotydo
        begin
            readln(tabelka[x][y]'  ');
        end;
        end.

 

Comments

Cześć, widzę że jesteś nowym użytkownikiem naszego forum, dlatego radzę Ci jak najszybciej zapoznać się z naszym regulaminem oraz FAQ.

1. Kod wstawiamy w przystosowany do tego bloczek, a nie jako zwykły tekst, ponieważ wtedy jego czytanie jest... bardzo urtrudnione.
2. Prosiłbym także zadbać o interpunkcję - bez kropek i przecinków ani rusz!

Spójrz poniżej:

Napisałem działający program w C++, ale niestety mój nauczyciel zna tylko pascala i wymaga kodu w pascalu mimo, że pozwolił pracować C++.

Ja z tego zdania coś niewiele rozumiem ;) Nie musisz się nam tłumaczyć czy nauczyciel zna pascala, czy też nie :)

---

Tak jestem nowym forumowiczem dlatego proszę o wyrozumiałość ;)

---

Ja także proszę o wyrozumiałość, ponieważ poprawiałem już o to niezliczoną liczbę razy i zdaję sobie sprawę że jeszcze tyle razy będę to robił :)

---

Najważniejsze, że odnosi(przynajmniej w moim przypadku) skutek

---

@Eryk Andrzejewski Sam chciałeś ;)

---

Nom, bo to nawet fajna robota takie moderowanie. Ale nie powiem, ciężka i nieraz bardzo irytująca - szczególnie jeśli musisz niezliczoną liczbę razy komuś powtarzać, a on i tak Cię nie posłucha. No ale to wszystko zależy czy się ma dobry dzień, czy nie :)

---

Najdziwniejsze jest to, że niektórzy ludzie nie umieją po prostu się domyślić co zrobić. Kodu to sam nie wstawiałem od początku w ramkach, bo o tym nie wiedziałem, ale żeby dalej nie wstawiać i mieć to gdzieś, no to nie wiem :| Ale Szeryf Eryk czuwa, więc nie jest tak źle ;) I tak wolę Offtop xd