Paskāls.
Kāds var pateikt, kādēļ met error kompilējot?
program skitka;
uses crt;
var a:integer;
b, c, d:real;
begin
clrscr;
writeln ('Ievadi pirkuma summu');
readln (a);
Case a of
400..1000: begin writeln ('Atlaide ir 30% ');
b:=a*70/100; writeln (' Summa ar atlaidi ir ' , b:6:1);
readkey;
end;
1..100: begin writeln ('Atlaide ir 3% ');
c:=a*97/100; writeln (' Summa ar atlaidi ir ' , c:6:1);
readkey;
end;
100..400:begin writeln ('Atlaide ir 15% ');
d:=a*85/100; writeln ('Summa ar atlaidi ir ' , d:6:1);
readkey;
end;
else
writeln ('Nav skitku tev...');
end;
readln;
end.
Programmēšana
0Mārtiņš 24.03.2014. 19:24 teica:
- 0
Kā arī šis:
program figuuras;
uses crt;
label 1,2,3,4;
var a:char;
b,h,d:real;
begin
clrscr;
4: writeln ('Ievadi izveeleeto figuuru, a - trijstuuris, b - aplis, c - kvadraats');
readln (a);
if a='a' then goto 1
if a='b' then goto 2
if a='c' then goto 3
else goto 4;
1:begin
writeln ('Ievadi trijstuura augstuma garumu cm ');
readln (h);
writeln ('ievadi trijstuura pamata garumu cm');
readln (d);
b:=0.58*h*d;
writeln ('Juusu trijstuura laukums ir ', b:8:2, ' kvadraatcm. ');
readln;
end;
2:begin
writeln ('Ievadi aplja r cm');
readln (h);
b:=3.141*h*h;
writeln (' Aplja laukums ir ', b:8:2, ' kv.cm ');
readln;
end;
3:begin
writeln ('Ievadi kvadraata vienas malas garumu cm');
readln (h);
b:=h*h;
writeln ('kvadraata laukums ir ',b:8:2,'kv.cm');
readln;
end;
end. 
