برنامه ای که یک رشته گرفته و کلیه فاصله های خالی آن را حذف می کند .
var s:string; i:integer;
begin
writeln(' enter string : ');
readln(s);
for i:=1 to length(s)do
begin
while s[i]=' 'do
IF S[I]=' ' then delete(s,i,1);
end;
write(s);
end.
برنامه ای که دو عددد بگیرد . اگر اولی از دومی بزرگتر بود جمع ان و در غیر اینصورت عدد سوم را بگیرد و حاصلضرب سه عدد را چاپ نماید ؟
var m,n,o:integer;
begin
write(' enter first number ==> ');
readln(m);
write(' enter second number ==> ');
readln(n);
if m>n then writeln(' m+n = ',m+n)
else
begin
write(' enter third number ==> ');
readln(o);
writeln(' m*n*o = ',m*n*o);
end;
end.
var b:array[1..3]of integer;
i,max,min:integer;
begin
clrscr;
write(' enter first number ==> ');
readln(b[1]);
write(' enter second number ==> ');
readln(b[2]);
write(' enter third number ==> ');
readln(b[3]);
if (b[1]> b[2]) and (b[1]>b[3]) then max:=b[1]
else if (b[2]> b[1]) and (b[2]>b[3]) then max:=b[2]
else
max:=b[3];
if (b[1]< b[2]) and (b[1]<b[3]) then min:=b[1] else
if (b[2]< b[1]) and (b[2]<b[3]) then min:=b[2] else
min:=b[3];
writeln(' max = ',max);
writeln(' min = ',min);
end.