Mọi người ơi, giúp em với, em cảm ơn nhiều ạ ❤
S= -1/3*1 + 1/3*2 + -1/3*3 + .... 1/3*10
Câu 1: viết lại 2 chương trình tính tong la, và tong1b riêng biệt
Câu 2: viết chương trình tính tong bằng cấu trúc lặp While () do
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
19 tháng 4 2020
uses crt;
var st:string;
d:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
writeln('Do dai cua xau ',st,' la: ',d);
readln;
end.
ML
18 tháng 4 2020
| Thủ tục | Kết quả |
| Delete (s,3,1); | VuSieu |
| Delete(s,3,7); | Vu |
| Delete(s,7,3); | Vu Sie |
| Insert(s2,s,1); | Vo Vu Sieu |
| Insert(s2,s,7); | Vu SieVo u |
| Insert(s2,s,3); | VuVo Sieu |
| Copy(s,3,4) | Sie |
| Copy(s,7,1) | u |
| Copy(s,7,7) | u |
| Copy(s,7,8) | u |
| Length(s) | 7 |
| Pos(s2,s) | 0 |
| Pos(‘ ‘,s) | 3 |
| Pos(‘Si’,s) | 4 |
| Pos(‘si’,s) | 0 |
| Upcase('a') | A |
| Upcase('A') | A |
| S1:='v'; | v |
| Upcase(s1) | VU SIEU |
| Length(s2) | 3 |
ML
18 tháng 4 2020
Bạn phải viết thêm readln trước end. nó mới in ra kết quả ở màn hình được
18 tháng 4 2020
var n,i,d:integer;
a:array[1..100] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin write('Nhap so thu ',i,': ');
readln(a[i]);
if a[i]>0 then d:=d+1; end;
writeln('Co ',d,' so nguyen khong am: ');
for i:=1 to n do
if a[i]>0 then write(a[i],' ');
end.
15 tháng 4 2020
Câu 1:
uses crt;
var b:array[1..100]of integer;
m,i:integer;
begin
clrscr;
write('nhap m='); readln(m);
for i:=1 to m do
begin
write('b[',i,']='); readln(b[i]);
end;
writeln('cac so chan va la boi cua 4 la: ');
for i:=1 to m do
if (b[i] mod 2=0) and (b[i] mod 4=0) then write(b[i]:4);
readln;
end.
Câu 2:
uses crt;
var s:string;
d,kt,i:integer;
begin
clrscr;
write('nhap xau S:'); readln(s);
d:=length(s);
kt:=0;
for i:=1 to d do
if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then
begin
kt:=1;
write(s[i]:4);
end;
if kt=0 then writeln('Khong co ky tu nao la chu cai trong xau');
readln;
end.
MM
Viết chương trình nhập mảng 10 phần tử nguyên. Sau đó đưa ra màn hình các số dương và tích của chúng
1
15 tháng 4 2020
uses crt;
var a:array[1..10]of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('cac so duong la: ');
s:=1;
for i:=1 to n do
if a[i]>0 then
begin
write(a[i]:4);
s:=s*a[i];
end;
writeln;
writeln('tich cac so duong la: ',s);
readln;
end.
ML
15 tháng 4 2020
Program hotrotinhoc;
var i,n: integer;
a: array[1..100] of integer;
t: longint;
begin
write('Nhap so nguyen k : '); readln(k);
write('Nhap so nguyen n : '); readln(n);
t:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod k=0 then t:=t+a[i];
end;
write('Tong cac phan tu cua mang la boi cua so nguyen duong k la :',t);
readln
end.
22 tháng 6 2020
Bài 1:
uses crt;
var a,b:real;
{----------------------------chuong-trinh-con-tinh-chu-vi-------------------------}
function chuvi(x,y:real):real;
begin
chuvi:=(x+y)*2;
end;
{----------------------------chuong-trinh-con-tinh-dien-tich----------------------}
function dientich(m,n:real):real;
begin
dientich:=m*n;
end;
{-----------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
repeat
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
until (a>0) and (b>0) and (a>=b);
writeln('Chu vi hinh chu nhat la: ',chuvi(a,b):4:2);
writeln('Dien tich hinh chu nhat la: ',dientich(a,b):4:2);
readln;
end.
Bài 2:
uses crt;
var a,b,c:real;
{----------------------------chuong-trinh-con-tinh-chu-vi-------------------------}
function chuvi(x,y,z:real):real;
begin
chuvi:=x+y+z;
end;
{----------------------------chuong-trinh-con-tinh-dien-tich----------------------}
function dientich(m,n,p:real):real;
var ncv:real;
begin
ncv:=(m+n+p)/2;
dientich:=sqrt(ncv*(ncv-m)*(ncv-n)*(ncv-p));
end;
{-----------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
repeat
write('Nhap canh thu 1:'); readln(a);
write('Nhap canh thu 2:'); readln(b);
write('Nhap canh thu 3:'); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
writeln('Chu vi hinh tam giac la: ',chuvi(a,b,c):4:2);
writeln('Dien tich hinh tam giac la: ',dientich(a,b,c):4:2);
readln;
end.
Bài 3:
uses crt;
var r:real;
{----------------------------chuong-trinh-con-tinh-chu-vi-------------------------}
function chuvi(x:real):real;
begin
chuvi:=2*x*pi;
end;
{----------------------------chuong-trinh-con-tinh-dien-tich----------------------}
function dientich(m:real):real;
begin
dientich:=sqr(m)*pi;
end;
{-----------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
repeat
write('Nhap ban kinh:'); readln(r);
until r>0;
writeln('Chu vi hinh tron la: ',chuvi(r):4:2);
writeln('Dien tich hinh tron la: ',dientich(r):4:2);
readln;
end.
Bài 4:
uses crt;
var a,b:real;
{--------------------chuong-trinh-con-tinh-tong------------------------}
function tong(x,y:real):real;
begin
tong:=x+y;
end;
{--------------------chuong-trinh-con-tinh-hieu------------------------}
function hieu(m,n:real):real;
begin
hieu:=m-n;
end;
{--------------------chuong-trinh-con-tinh-tich------------------------}
function tich(c,d:real):real;
begin
tich:=c*d;
end;
{--------------------chuong-trinh-con-tinh-thuong-----------------------}
function thuong(p,q:real):real;
begin
thuong:=p/q;
end;
{--------------------chuong-trinh-chinh--------------------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln('Tong cua hai so la: ',tong(a,b):4:2);
writeln('Hieu cua hai so la: ',hieu(a,b):4:2);
writeln('Tich cua hai so la: ',tich(a,b):4:2);
if b<>0 then writeln('Thuong cua hai so la: ',thuong(a,b):4:2)
else writeln('Khong tinh duoc thuong cua hai so vi so chia bang 0');
readln;
end.