Bài 6: Giải bài toán trên máy tính

$a)$

Input: số nguyên n, dãy số nguyên A, số nguyên k

Output: số lượng phần tử có giá trị lớn hơn k

$b)$

Thuật toán:

B1: Nhập N, dãy số nguyên A, số nguyên k

B2: dem←0; i←1;

B3: Nếu i>N thì chuyển đến B6.

B4: Nếu A[i]>k thì dem←dem+1

B5: i←i+1; Quay lại B3.

B6: In dem ra màn hình và kết thúc.

$c)$

$+$ dem=0; i=1;

$+$ i>N (Sai): A[1] không lớn hơn k, i=i+1=2

$+$ i>N (Sai): A[2] lớn hơn k, dem=dem+1=1; i=i+1=3

$+$ i>N (Sai): A[3] không lớn hơn k; i=i+1=4

$+$ i>N (Sai): A[4] không lớn hơn k, i=i+1=5

$+$ i>N (Sai): A[5] lớn hơn k, dem=dem+1=2; i=i+1=6

$+$ i>N (Đúng): In dem là 6.

End

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if a>b then writeln('So lon nhat la: ',a)

else if a<b then writeln('So lon nhat la: ',b)

else writeln('Hai so bang nhau');

readln;

end.

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b=');c readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

begin

kt:=0;

if sqr(a)=sqr(b)+sqr(c) then kt:=1;

if sqr(b)=sqr(a)+sqr(c) then kt:=1;

if sqr(c)=sqr(a)+sqr(b) then kt:=1;

if kt=0 then writeln('Day khong la tam giac vuong')

else begin

              writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac vuong la: ',s:4:2);

end;

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Đổi 1GB=1024MB

Cứ 4MB = 1 cuốn

thì 1024/4 MB = 256 cuốn

Vậy USB có 1GB chứa được 256 cuốn sách như thế.

Đổi 1GB=1024MB

Cứ 4MB = 1 cuốn

thì 1024/4 MB = 256 cuốn

Vậy USB có 1GB chứa được 256 cuốn sách như thế.

Input: dãy số nguyên gồm n số được nhập từ bạn phím

Output: số lớn nhất, bé nhất trong dãy

B1: nhập dãy số nguyên

B2: gán max:=a[1]; min:=a[1] 

B3: nếu max<a[i] thì max:=a[i]; min>a[i] then min:=a[i]

B4: in kết quả ra màn hình

uses crt;

var i,n,s:longint;

begin

clrscr;

readln(n);

for i:=1 to n do

s:=s+i;

write('Tong:',s);

readln

end.