HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
cau3)
program bai_tap; uses crt; var n,i:byte; b,chen:integer; a:array[1..100] of integer; begin clrscr; write('nhap so luong phan tu cua mang: '); readln(n); for i:= 1 to n do begin write('A[',i,'] = '); write(a[i]); end; write('nhap gia tri can chen: '); readln(chen); write('nhap vi tri can chen: '); readln(b); for i:= n+1 downto b+1 do a[i]:=a[i-1]; a[b]:=chen; for i:= 1 to n+1 do write(a[i]:4); readln
end.
xóa cũng tương tụ kiểu như vậy
cau2)
program bai_tap; uses crt; var n,i:byte; a:array[1..100] of real; max,min::real; begin clrscr; write('nhap so luong phan tu cua mang: '); readln(n); for i:= 1 to n do begin write('A[',i,'] = '); write(a[i]); end; max:=a[1];min:=a[1]; for i:= 2 to n do begin if max < a[i] then max:=a[i]; if min > a[i] then min := a[i]; end; write('gia tri max la: ',max:4:2,' gia tri min la: ',min:4:2); readln end;
cau 1)
rogram bai_tap; uses crt; var n,i:byte; a:array[1..100] of real; tb,s:real; begin clrscr; write('nhap so luong phan tu cua mang: '); readln(n); for i:= 1 to n do begin write('A[',i,'] = '); write(a[i]); end; s:=0; for i:= 1 to n do s:=s+a[i]; tb:= s/n; write('so trung binh: ',tb:4:2); readln end;
lỗi chỗ d:= 3
viết đúng là if d = 3 then write('dbang3')
mình hưỡng dẫn thôi còn đâu bạn tự làm nha
a) readln(a,b,c);
s:=a+b+c;
write(s);
b) min:=a;
if min > b then min:=b;
if min > c then min:= c;
write(min);
c) dem:=0;
if a < 0 then inc(dem);
if b< 0 then inc(dem);
if c< 0 then inc(dem);
write(dem);
program bai_tap; uses crt; var a,b,x:real; begin clrscr; write('nhap a: '); readln(a:4:2); write('nhap b: '); readln(b:4:2); if a = 0 then begin if b = 0 then write('phuong trinh co vo so nghiem') else write('phuong trinh vo nghiem'); end else begin x:= -b/a; write('phuong trinh co nghiem : ',x:4:2); end;
readln end.
program bai_tap;
uses crt;
var a,b,c,d,e,f,g,s,dem :byte;
tb:real;
begin
clrscr;
{cau a}
write('nhap lan luot so hanh khach moi toa: ');
readln(a,b,c,d,e,f,g);
{cau b}
s:=a+b+c+d+e+f+g;
writeln('tong so hanh khach la: ',s);
{cau c}
tb:=s / 7; dem:=0;
if (a < tb) then inc(dem); if (b < tb) then inc(dem); if (c < tb) then inc(dem); if (d < tb) then inc(dem); if (e < tb) then inc(dem); if (f < tb) then inc(dem); if (g < tb) then inc(dem); writeln('co ',dem,' toa co hanh khach it hon so luong hanh khach tb');
readln;
var a,b,c:byte;
write('nhap do dai 3 canh cua tam giac: ');
readln(a,b,c);
if a=b=c then writeln('tam giac deu')
else writeln('k phai tam giac deu')
program bai_tap; uses crt; var n,i,dem1,dem2,s1,s2:byte; tb1,tb2:real; begin clrscr; write('nhap n: ');{nhap gia tri cua n VD: n= 10} readln(n); for i:= 1 to n do if i mod 2 = 0 then {so chan la so chia het cho 2 hay chia 2 du 0} begin dem1:=dem1+1; {tinh xem co bao nhieu so mod 2 = 0} s1:=s1+i; {tinh tong cac so chan} end else { neu i mod 2 khac 0 thi...(so le)} begin dem2:=dem2+1; s2:=s2+i; end; tb1:= s1/dem1; {tinh trung binh cong} tb2:= s2/dem2; writeln('trung binh cong cac so chan: ',tb1:4:2); {xuat ra trung binh cong} writeln('trung binh cong cac so le: ',tb2:4:2); readln end.
var i:byte;
for i:= 1 to 10 do
writeln('em hua se no luc het minh ');
readln