Zastanawiałeś się jak napisać prosty programik, (dla początkujących) który pomoże Ci dodać/odjąć/pomnożyć/podzielić pewne liczby? To proste! Zobacz jak to się robi!
Program, który oblicza sumę dwóch liczb:
Uses crt;
Var x,y:integer;
Begin
Writeln(‘Podaj pierwszą liczbę’);
Readln(x);
Writeln(‘Podaj drugą liczbę’);
Readln(y);
Writeln(‘Suma=’,x+y);
Readln;
End.
Program, który oblicza różnicę dwóch liczb:
Uses crt;
Var x,y:integer;
Begin
Writeln(‘Podaj pierwszą liczbę’);
Readln(x);
Writeln(‘Podaj drugą liczbę’);
Readln(y);
Writeln(‘Suma=’,x-y);
Readln;
End.
Program, który oblicza iloczyn dwóch liczb:
Uses crt;
Var x,y:integer;
Begin
Writeln(‘Podaj pierwszą liczbę’);
Readln(x);
Writeln(‘Podaj drugą liczbę’);
Readln(y);
Writeln(‘Suma=’,x*y);
Readln;
End.
Program, który oblicza iloraz dwóch liczb:
Uses crt;
Var x,y:integer;
Begin
Writeln(‘Podaj pierwszą liczbę’);
Readln(x);
Writeln(‘Podaj drugą liczbę’);
Readln(y);
Writeln(‘Suma=’,x/y);
Readln;
End.
Gdy chcemy dodać do siebie np. trzy liczby robimy to w sposób następujący:
Uses crt;
Var x,y,z:integer;
Begin
Writeln(‘Podaj pierwszą liczbę’);
Readln(x);
Writeln(‘Podaj drugą liczbę’);
Readln(y);
Writeln(‘Podaj trzecią liczbę’);
Readln(z);
Writeln(‘Suma=’,x+y+z);
Readln;
End.
Gdy chcemy zmienić kolor tła i czcionki służą do tego następujące komendy:
Textbackground(nazwa koloru PO ANGIESLSKU);
Textcolor(nazwa koloru PO ANGIELSKU);
Uses crt;
Var x,y:integer;
Begin
Textbackground(Blue);
Textcolor(Yellow);
Writeln(‘Podaj pierwszą liczbę’);
Readln(x);
Writeln(‘Podaj drugą liczbę’);
Readln(y);
Writeln(‘Suma=’,x+y);
Readln;
End.
Jeżeli pomogłem w jakikolwiek sposób to bardzo się cieszę. Życzę powodzenia w pisaniu pierwszych początkowych programów i z biegiem czasu w pisaniu coraz to bardziej trudnych.