Някой може ли да ми направи някаква проста програма на паскал с case of... защото case-a не го разбирам много много.Мерси предварително
asp1r1n94
05-24-2011, 09:31
program Calculator;
var Op :char;
rez:real;
arg:real;
BEGIN
rez:=0.0;
Op:='+';
repeat
readln(arg);
case Op of
'+':rez:=rez+arg;
'-':rez:=rez-arg;
'*':rez:=rez*arg;
'/':rez:=rez/arg;
end;
readln(Op);
until Op='=';
writeln(rez);
END.
Ей, Паскала е велика работа :D :D
http://mytech.bg/uroci/22/%D0%94%D1%80%D1%83%D0%B3%D0%B8/684/%D0%9F%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%B8%D 1%80%D0%B0%D0%BD%D0%B5+%D0%BD%D0%B0+%D0%9F%D0%B0%D 1%81%D0%BA%D0%B0%D0%BB+IV/2
Хвани си Паскала, напиши малко код и би трябвало да схванеш идеята.
Case има един входен параметър и представлява нещо като таблица на решения, които трябва да предприеме когато този входен параметър има определена стойност.
Един вход - много изходи, зависещи от входа.
Като действие не прави нищо по-различно от една дълга поредица от "if then else", и изглежда това е замисъла на Case - да е алтернатива на "if" с по-малко обем написан код.