!!!!

[lazarusins]

How to make easy caltulator with addition, subtraction ,multiplication ,division funkcions?

[BlueIcaro]

https://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=1596&lngWId=7

[sky_khan]

Ohhh that sounds soo difficult....

[sky_khan]

Will you try giving your posts a meaningful subject lines ?
"!!!", "Help!!!" -> Wrong!
"Writing a calculator","Simple program for school" -> Ok

Otherwise I'll continue to think that you are a spoiled child.

[marcov]

Compile fpc/packages/symbolic/examples/rpnthing.pas

[avra]

How to make easy caltulator with addition, subtraction ,multiplication ,division funkcions?

http://lazplanet.blogspot.rs/2013/05/a-simple-calculator-project.html
https://www.devstructor.com/index.php?page=686
http://ridgevideo.com/vid/How-to-make-calculator-in-Lazarus-id=LgqeWAa3zxo
http://wiki.lazarus.freepascal.org/Howdy_World_%28Hello_World_on_steroids%29
http://forum.lazarus.freepascal.org/index.php?topic=13812.0

Hopefully this will be enough 

Next time if you put again not meaningful title that has no relation to the topic I will not help.   

[Thaddy]

Compile fpc/packages/symbolic/examples/rpnthing.pas

Good idea, Reverse Polish Notation. I suggest to teach him Forth too. For simple calculators it is the ultimate paradigm.

Also https://www.youtube.com/watch?v=lJvdVGtkbeU

[balazsszekely]

You can give TCalculatorDialog a try, everything it's implemented for you.

[lazarusins]

program project1;
uses crt;
var i,n:byte;
    s,a:real;
    zime: Char;
 pirm,otr : Integer;
 Saskaitisana,atnemsana, reizinasana: Integer;
 dalisana : Integer;
 Resultats : Integer;
begin
   repeat
   clrscr;
   writeln;
   writeln('Lai atveertu md pirmaa uzdevuma a) piemeeru, ierakstiet skaitli 11.');
   writeln;
   writeln('Lai atveertu md pirmaa uzdevuma a) piemeeru, ierakstiet skaitli 2.');
   writeln;
   write('Skaitlis ir: ');
   readln(n);
   clrscr;
   until (n=11) or (n=2);
   case n of
   11:

   2:
end;

Begin
 clrscr;
 pirm := 0; otr := 0;
 write('Kalkulātors');
 writeln; writeln;
 write('Ievadiet divus ciparus ar kuriem vēlaties veikt darbības : ');
 readln(pirm,otr);
 write('Select zime +,-,* and / : ');
 readln(zime);
 if (zime = '+') then
Begin
 Saskaitisana:= (pirm + otr);
 Resultats := Saskaitisana;
End
else if (zime = '-') then
Begin
 atnemsana := (pirm - otr);
 Resultats := atnemsana;
End
else if (zime = '*') then
Begin
 reizinasana := (pirm * otr);
 Resultats := reizinasana;
End
else if (zime = '/') then
Begin
 dalisana := (pirm DIV otr);
 Resultats := dalisana;
End;
 writeln;
 writeln;
 Write('Resultats ir ' ,Resultats,'.');
 readln;
End.
end.



   else writeln('Shim, juusu ievadiitajam skaitlim nav adreseets neviens uzdevums!');
   end;
   writeln;
   writeln('Piespiediet taustinju "Enter", lai izveeleetos, ko dariit taalaak.');
   readln;
   clrscr;
   writeln;
   writeln('Lai izietu no programmas, ievadiet skaitli 0,');
   writeln;
   writeln('bet, lai saaktu no saakuma, ievadiet 1!');
   writeln;
   writeln;
   write('Opcija: ');
   readln(n);
   until n=0;
end.

         Why that programm is not working?Sorry for language, that is latvian.I hope it wont be problem to understand that programm.

[Thaddy]

Sorry. I only understand Lithuanian, not Latvian, but I can make sense out of some of it.

You made some (3)  mistakes and the compiler tells you exactly where...
I changed three things and then it compiles... Now listen to the compiler. Click on the compiler message and fix...

If that is done you will still have to finish the program, but it will compile (look for missing ;  )

[lazarusins]

i can not find there mistakes

[sky_khan]

Your code does not even compile. It has no proper indents and there are too many syntax errors. At first, there can not be more than one "end." in any unit.

Btw, please use "#" button for inserting code next time.

[Thaddy]

Your code does not even compile. It has no proper indents and there are too many syntax errors. At first, there can not be more than one "end." in any unit.

Btw, please use "#" button for inserting code next time.

That isn't very helpful. He knows it does not compile and Pascal doesn't even know about indentation. It is not Python . And there are only 3 syntax errors to fix.

@lazarusins
Take a look at this:

Code: Pascal  [Select][+][-]

1. Line 23 etc:
2.    case n of
3.    11:;  {it is ok to leave it unfinished, but you must terminate with a ;}
4.  
5.    2:;   {it is ok to leave it unfinished, but you must terminate with a ;}
6.  
7. Line 61:
8. End; {Minor mistake}
9. end.
10.  

Now finish it and go to sleep. It is a good effort for a beginner! Success!

(Based on this you would get 6 out of 10 for your first program, even if it does not work yet..)

[lazarusins]

Thanks,i corrected it but program still is not working:(

[Thaddy]

Last time:

Code: Pascal  [Select][+][-]

1. program project1; {$apptype console}
2. uses crt;
3. var i,n:byte;
4.     s,a:real;
5.     zime: Char;
6.  pirm,otr : Integer;
7.  Saskaitisana,atnemsana, reizinasana: Integer;
8.  dalisana : Integer;
9.  Resultats : Integer;
10. begin
11.    repeat
12.    clrscr;
13.    writeln;
14.    writeln('Lai atveertu md pirmaa uzdevuma a) piemeeru, ierakstiet skaitli 11.');
15.    writeln;
16.    writeln('Lai atveertu md pirmaa uzdevuma a) piemeeru, ierakstiet skaitli 2.');
17.    writeln;
18.    write('Skaitlis ir: ');
19.    readln(n);
20.    clrscr;
21.    until (n=11) or (n=2);
22.    case n of
23.    11:;
24.  
25.    2:;
26. end;
27.  
28. Begin
29.  clrscr;
30.  pirm := 0; otr := 0;
31.  write('Kalkulātors');
32.  writeln; writeln;
33.  write('Ievadiet divus ciparus ar kuriem vēlaties veikt darbības : ');
34.  readln(pirm,otr);
35.  write('Select zime +,-,* and / : ');
36.  readln(zime);
37.  if (zime = '+') then
38. Begin
39.  Saskaitisana:= (pirm + otr);
40.  Resultats := Saskaitisana;
41. End
42. else if (zime = '-') then
43. Begin
44.  atnemsana := (pirm - otr);
45.  Resultats := atnemsana;
46. End
47. else if (zime = '*') then
48. Begin
49.  reizinasana := (pirm * otr);
50.  Resultats := reizinasana;
51. End
52. else if (zime = '/') then
53. Begin
54.  dalisana := (pirm DIV otr);
55.  Resultats := dalisana;
56. End;
57.  writeln;
58.  writeln;
59.  Write('Resultats ir ' ,Resultats,'.');
60.  readln;
61. End;
62. end.
63.  
64.  
65.  
66.    else writeln('Shim, juusu ievadiitajam skaitlim nav adreseets neviens uzdevums!');
67.    end;
68.    writeln;
69.    writeln('Piespiediet taustinju "Enter", lai izveeleetos, ko dariit taalaak.');
70.    readln;
71.    clrscr;
72.    writeln;
73.    writeln('Lai izietu no programmas, ievadiet skaitli 0,');
74.    writeln;
75.    writeln('bet, lai saaktu no saakuma, ievadiet 1!');
76.    writeln;
77.    writeln;
78.    write('Opcija: ');
79.    readln(n);
80.    until n=0;
81. end.

There are still mistakes, but this code compiles and works *a little*.... I am not going to fix that.
This code is your code with the 3 syntax errors fixed...and nothing more...

Note that your teacher probably says the same as I did. And would help you in the same way. (Except if it is an exam)