Pascal (zodiniai kintamieji)

Tarkim, turim programa kuri skaiciuoja plotus.

Norint pasirinkti kokios figuros plota skaiciuos, reikia ivesti figuros pavadinima, o tada jos duomenis, kad gautum plota.

Tarkim:

Program plotai;
var q, l : char;
var S, a : real;
Begin
l := kvadratas;
WriteLn ('Iveskite, figuros pavadinima:');
ReadLn (q);
if q = l
then
 Begin
  WriteLn ('Iveskite kvadrato krastine');
  ReadLn (a);
  S := a * a;
 End;
WriteLn (S);
end.

Problemos klausimo tai nematau.Ir išmok įdėti kodą į tagus

O klausimo tai vis tiek nėra :)

Naudok switch. Dar geriau būtų atspausdinti

Kvadratas spauskite 1
Stačiakampis spauskite 2
Apskritimas spauskite 3

Ir pagal tai orientuotis kas vyksta.

arba gali tris kokius if daryti if q==kvadratas darai t.t if q==kubas darai t.t.