Bài tập điều kiện 2
Thu Jun 06, 2024 10:36 am
Bài tập: Viết ct tính '+' hoặc - hoặc '*' hoặc '/' của các số từ 1 đến n
GIẢI:
uses crt;
var
phep: char;
n,i,tong,hieu:integer;
thuong,tich: real;
begin
clrscr;
Write('Nhap n: ');
Readln(n);
Writeln('Chon phep toan (+, -, *, /): ');
Readln(phep);
tong := 0;
tich := 1;
hieu := 0;
for i := 1 to n do
begin
case phep of
'+':tong := tong + i;
'-':hieu := hieu - i;
'*':tich := tich * i;
'/':thuong := thuong / i;
end;
end;
if phep = '+' then
writeln('tong cac so tu 1 den ',n,' la ',tong)
else if phep = '-' then
writeln('hieu cac so tu 1 den ',n,' la ',hieu)
else if phep = '*' then
writeln('tich cac so tu 1 den ',n,' la ',tich)
else if phep = '/' then
writeln('thuong cac so tu 1 den ',n,' la ',thuong)
else write('phep tinh ko hop le ');
readln;
end.
GIẢI:
uses crt;
var
phep: char;
n,i,tong,hieu:integer;
thuong,tich: real;
begin
clrscr;
Write('Nhap n: ');
Readln(n);
Writeln('Chon phep toan (+, -, *, /): ');
Readln(phep);
tong := 0;
tich := 1;
hieu := 0;
for i := 1 to n do
begin
case phep of
'+':tong := tong + i;
'-':hieu := hieu - i;
'*':tich := tich * i;
'/':thuong := thuong / i;
end;
end;
if phep = '+' then
writeln('tong cac so tu 1 den ',n,' la ',tong)
else if phep = '-' then
writeln('hieu cac so tu 1 den ',n,' la ',hieu)
else if phep = '*' then
writeln('tich cac so tu 1 den ',n,' la ',tich)
else if phep = '/' then
writeln('thuong cac so tu 1 den ',n,' la ',thuong)
else write('phep tinh ko hop le ');
readln;
end.
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|