Bài 5. Từ bài toán đến chương trình

Bn xem đúng k nhé:

Bước 1: MAX =60 I=1Bước 2: nếu MAX >I thì I:= I+1 , ngược lại kết thúc chương trìnhBước 3: nếu MAX > I kết thúc chương trìnhINPUT: 60 số tự nhiên đầu tiênOUTPUT: tính tổng

Chúc bn hok tốt~~

Bước 1: Tong←0; i←1;

Bước 2: Nếu i > 60 in ra Tong của 60 số tự nhiên đầu tiên và kết thúc

Bước 3: Nếu i chia 2 dư 0 thì T ← T + i;

Bước 4: i← i + 1, quay lại bước 2

Bước 1: t←0; i←1;

Bước 2: nếu i mod 2=0 thì t←t+i;

Bước 3: i←i+1;

Bước 4: Nếu i<=60 thì quay lại bước 2

Bước 5: Xuất t

Bước 6: Kết thúc

uses crt;

var n:integer;

begin

clrscr;

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

writeln('Gia tri tuyet doi cua ',n,' la: ',abs(n));

readln;

end.

Input: chiều cao h và cạnh a

Output: diện tích hình tam giác

B1: nhập 2 cạnh a,h

B2: s:=(a*h)/2;

B3: in ra màn hình

B4: kết thúc ct

uses crt;

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

begin

clrscr;

repeat

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

write('Nhap b='); 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

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

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

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

end

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

readln;

end.

uses crt;

var thu:integer;

begin

clrscr;

repeat

write('Nhap thu:'); readln(thu);

until (2<=thu) and (thu<=8);

case thu of

2: writeln('Monday');

3: writeln('Tuesday');

4: writeln('Wednesday');

5: writeln('Thursday');

6: writeln('Friday');

7: writeln('Saturday');

8: writeln('Sunday');

end;

readln;

end.

Bạn phải cho biết là có bao nhiêu cột điểm đã chứ

bao nhiêu cột miệng, 15', 1 tiết?

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if a>b then writeln(a)

else if a<b then writeln(b)

else writeln('Hai so bang nhau');

readln;

end.