jestem zielony w programowaniu i pisze swoje pierwsze programy. Prosze o pomoc. Nieiwiem gdzie zrobiłem błąd. programuje w Dev-Pascal. pisze ze błąd gdzieś przy "else". Wydaje mi sie ze wszystko dobrze napisałem
program jeden;
uses crt;
var
wybor:byte;
liczba_1, liczba_2 : integer;
suma, roznica, mnozenie, dziel, pier : real;
begin
writeln('to jest program obliczajacy sume dwoch liczb');
gotoxy(7,6);
write('podaj pierwsza liczb x= ');
read(liczba_1);
gotoxy(7,8);
write('podaj druuga liczbe y=');
readln(liczba_2);
gotoxy(5,3);
write('jesli chcesz sumowac napisz nacisnij 1 ');
gotoxy(5,5);
write('jesli chcesz odejmowac nacisnij 2');
gotoxy(5,7);
write('jesli chcesz mnozyc nacisnij 3');
gotoxy(5,9);
write('jesli chcesz dzielic nacisnij 4');
gotoxy(5,11);
write('jesli chcesz pierwiastkowac nacisnij 5');
read(wybor);
if wybor=1 then
begin
textcolor(green);
suma := liczba_1 + liczba_2 ;
gotoxy(10,8);
writeln('wynik obliczenia X + Y =', suma:0:2 );
end
else
if wybor=2 then
begin
textcolor(blue);
roznica := liczba_1 - liczba_2;
gotoxy(10,8);
writeln('wynik obliczenia x-y=',roznica:0:2);
end
else
if wybor=3 then
textcolor(red);
mnozenie := liczba_1 * liczba_2;
writeln('wynik obliczenia x*y=',mnozenie:0:2);
end
else
if wybor=4 then
textcolor(red);
gotoxy(10,8);
dziel := liczba_1 / liczba_2;
writeln('wynik obliczenia x/y=',dziel:0:2);
end
else
if wybor=5 then
textcolor(blue);
gotoxy(10,8);
pier := Sqrt( Sqrt(liczba_1) + sqrt(liczba_2));
writeln('wynik obliczenia pierwiastek z x i pierwiastek z y', pier:0:2);
end
else
writeln('wybor nieprawidlowy');
readln;
end.