Jezyk C++/Pascal

Dla specjalistów Programowanie
#1

witam, potrzebuje przerobic program z C++ do Pascala.

niestety problem tkwi w tym ze juz nie pamietam pascala- potrzebuje Waszej pomocy

ewentualnie moze ktos zna jakis konwerter.

z gory dziekuje

#include

#include

using namespace std;

int main(int argc, char *argv[])

{

int wybor, cukiertn, liczbak;

double kwota, sumac, pieniadze, sumaa, malo, pieniadze2, duzo;

cout<<“AUTOMAT”<

cout<

cout<<“Menu \n”;

cout<

cout<<“1. Kawa czarna - 1 zl \n”;

cout<<“2. Kawa biala - 1,50 zl \n”;

cout<<“3. Cherbata zwykla - 0,80 zl \n”;

cout<<“4. Cherbata zielona - 1,20 zl \n”;

cin>>wybor;

switch (wybor)

{

case 1:

cout<<“Wybrales kawe czarna \n”;

kwota = 1.00;

break;

case 2:

cout<<“Wybrales kawe biala \n”;

kwota = 1.50;

break;

case 3:

cout<<“Wybrales cherbate zwykla \n”;

kwota = 0.80;

break;

case 4:

cout<<“Wybrales cherbate zieloną \n”;

kwota = 1.20;

break;

cin>>kwota;

break;

}

if (wybor>4)

{

return 0;

}

if (wybor<1)

{

return 0;

}

cout<

cout<<“Podac cukier? (wybierz cyfre, ktora jest przy odpowiedzi) \n”;

cout<<“1. Tak \n”;

cout<<“2. Nie \n”;

cin>>cukiertn;

if(cukiertn==1)

{

cout<<“Ile kostek? (Cena za kostke 20gr) \n”;

cin>>liczbak;

//if(liczbak!=1 || liczbak!=2)

//{

// cout<<“za duzo cukru lub zly znak \n”;

// }

// else

// {

cout << "wybrales cos z " << liczbak << "kostkami cukru " << endl;

cout<<“Kwota za cukier to: “<< liczbak*0.20 <<” zł”<

sumac=liczbak*0.20;

// }

}

else

{

cout << “nie wybrales cukru” << endl;

}

cout<<"Suma do zapłaty to: "<

sumaa=kwota+sumac;

cout<

cout<<“Wrzuc pieniadze \n”;

cin>>pieniadze;

if(pieniadze

{

do{

cout<<"Za malo, dorzuc: "<

cin>>pieniadze2;

pieniadze = pieniadze + pieniadze2;

} while(pieniadze

}

if(pieniadze==sumaa)

{

cout<<"Dziekuje za zakup "<

}

if(pieniadze>sumaa)

{

duzo=pieniadze-sumaa;

cout<<"Reszta to: "<

cout<<“Dziekuje za zakup”<

}

system(“PAUSE”);

return EXIT_SUCCESS;

}

#2

Ja powiem tyle - Pascala nie znam, ale zakładam że nikt Ci tego programu nie napisze. To są podstawy tamtego języka, jeżeli konwertować kod z C++ na Pascala. Poszukaj jakiśch tutoriali Pascala.

//edit:

Moim zdaniem jeżeli ma się dobry mózg, można przesiedzieć nad tutorialem 15 minut i kolejne 15 na napisanie programy na żywca.

#3

Moze nie powinienem tego robic, ale…

program automat;

uses crt;

var

	wybor, cukiertn, liczbak: integer;

	kwota, sumac, pieniadze, sumaa, malo, pieniadze2, duzo: double;

begin


writeln('AUTOMAT');

writeln; writeln;


writeln('Menu');

writeln;

writeln('1. Kawa czarna - 1zl');

writeln('2. Kawa biala - 1,50zl');

write('3. '); highvideo; textcolor(4); write('H'); textcolor(7); lowvideo; writeln('erbata zwykla - 0,80zl');

write('4. '); highvideo; textcolor(4); write('H'); textcolor(7); lowvideo; writeln('erbata zielona - 1,20zl');

readln(wybor);


case wybor of

	1: begin

		writeln('Wybrales kawe czarna');

		kwota := 1.00;

	end;


	2: begin

		writeln('Wybrales kawe biala');

		kwota := 1.50;

	end;


	3: begin

		writeln('Wybrales herbate zwykla');

		kwota := 0.80;

	end;


	4: begin

		writeln('Wybrales herbate zielona');

		kwota := 1.20;

	end;

	else

		readln(kwota);

end;


if wybor > 4 then halt(0);

if wybor < 1 then halt(0);


writeln;

writeln('Podac cukier? (wybierz cyfre, ktora jest przy odpowiedzi)');

writeln('1. Tak');

writeln('2. Nie');

readln(cukiertn);


if cukiertn = 1 then begin

	writeln('Ile kostek? (Cena za kostke 20gr)');

	readln(liczbak);

	writeln('Wybrales cos z ', liczbak, ' kostkami cukru');

	writeln('Kwota za cukier to: ', (liczbak*0.20):4:2, ' zl');

	sumac := liczbak*0.20;

end

else

	writeln('nie wybrales cukru');


writeln('Suma do zaplaty to: ', (kwota+sumac):4:2, ' zl');

sumaa:=kwota+sumac;

writeln;

writeln('Wrzuc pieniadze');

readln(pieniadze);


if pieniadze < sumaa then begin

	repeat

		writeln('Za malo, dorzuc: ', (sumaa - pieniadze):4:2, ' zl');

		readln(pieniadze2);

		pieniadze := pieniadze + pieniadze2;

	until pieniadze>=sumaa;

end;


if pieniadze = sumaa then writeln('Dziekuje za zakup');


if pieniadze > sumaa then begin

	duzo := pieniadze - sumaa;

	writeln('Reszta to: ', duzo:4:2, ' zl');

	writeln('Dziekuje za zakup');

end;


readkey;

end.
#4

drain7 , proszę poprawić tytuł tematu na konkretny, dokładniej mówiący o problemie. W przeciwnym razie temat zostanie usunięty.