Em hay Viết chương trình tính tổng cua hai số nguyên dương được nhập từ bàn phím
Bài 1: Program BTT;Uses crt;Var a,b,s: qword;Begin Clrscr; Write(‘Nhap so nguyen duong thu nhat: ‘); Readln(a); Write(‘Nhap so nguyen duong thu hai: ‘); Readln(b); s:=a*b; Write(‘Tich cua hai so do la: ‘,s); Readln End. Bài 2: Program BTT;Uses crt;Var s,i: byte;Begin Clrscr; s:=0; For i:=1 to 20 do If i mod 2 = 0 then s:=s+i; Write(‘Tong cac so chan cua 20 so tu nhien dau tien la: ‘,s); Readln End. Bài 3: a) Thuật toán: Bước 1: Nhập số thực a Bước 2: Nếu a>0 thì xuất a là số dương và thực hiện bước 5 Bước 3: Nếu a<0 thì xuất a là số âm và thực hiện bước 5 Bước 4: Nếu a=0 thì xuất a không âm và không dương và thực hiện bước 5 Bước 5: Kết thúc chương trình b) Chương trình: Program BTT;Uses crt;Var a: real;Begin Clrscr; Write(‘Nhap so thuc: ‘); Readln(a); If a > 0 then Write(‘So duong’); If a < 0 then Write(‘So am’); If a = 0 then Write(‘Khong phai so am, khong phai so duong’); Readln End. Bài 4: a) Xác định bài toán: Input: Điểm 5 môn Ouput: Xếp loại học lực b) Thuật toán Bước 1: Nhập điểm từng môn: toan, li, hoa, van, tin Bước 2: s ← toan+li+hoa+van+tin Bước 3: tbc ← s/5 Bước 4: Nếu tbc>=8 thì xuất học sinh giỏi Ngược lại xuất học sinh khá c) Chương trình: Program BTT;Uses crt;Var toan,li,hoa,van,tin,s,tbc: real;Begin Clrscr; Write(‘Nhap diem mon Toan: ‘); Readln(toan); Write(‘Nhap diem mon Li: ‘); Readln(li); Write(‘Nhap diem mon Hoa: ‘); Readln(hoa); Write(‘Nhap diem mon Van: ‘); Readln(van); Write(‘Nhap diem mon Tin: ‘); Readln(tin); s:=toan+li+hoa+van+tin; tbc:=s/5; If tbc>=8 then Write(‘Hoc sinh gioi’) Else Write(‘Hoc sinh kha’); Readln End.
program tinh_tong; uses crt; var a, b, tong: integer; begin clrscr; write('Nhap a: '); readln(a); write('Nhap b: '); readln(b); tong:=a+b; write('Tong 2 so nguyen a, b la: ', tong); readln end. Sơ đồ tư duy là gì (Tin học - Lớp 6) 3 trả lời Sơ đồ tư duy là gì? (Tin học - Lớp 6) 1 trả lời Cho biết ý nghĩa của câu lệnh sau (Tin học - Lớp 8) 1 trả lời Các câu lệnh sau, câu lệnh nào hợp lệ (Tin học - Lớp 8) 1 trả lời An toàn không? Giải thích lí do (Tin học - Lớp 6) 1 trả lời Chọn phát biểu đúng (Tin học - Lớp 8) 2 trả lời Thông tin cá nhân và tập thể là gì (Tin học - Lớp 6) 1 trả lời Bài 1: Program BTT;Uses crt;Var a,b,s: qword;Begin Clrscr; Write('Nhap so nguyen duong thu nhat: '); Readln(a); Write('Nhap so nguyen duong thu hai: '); Readln(b); s:=a*b; Write('Tich cua hai so do la: ',s); Readln End. Bài 2: Program BTT;Uses crt;Var s,i: byte;Begin Clrscr; s:=0; For i:=1 to 20 do If i mod 2 = 0 then s:=s+i; Write('Tong cac so chan cua 20 so tu nhien dau tien la: ',s); Readln End. Bài 3: a) Thuật toán: Bước 1: Nhập số thực a Bước 2: Nếu a>0 thì xuất a là số dương và thực hiện bước 5 Bước 3: Nếu a<0 thì xuất a là số âm và thực hiện bước 5 Bước 4: Nếu a=0 thì xuất a không âm và không dương và thực hiện bước 5 Bước 5: Kết thúc chương trình b) Chương trình: Program BTT;Uses crt;Var a: real;Begin Clrscr; Write('Nhap so thuc: '); Readln(a); If a > 0 then Write('So duong'); If a < 0 then Write('So am'); If a = 0 then Write('Khong phai so am, khong phai so duong'); Readln End. Bài 4: a) Xác định bài toán: Input: Điểm 5 môn Ouput: Xếp loại học lực b) Thuật toán Bước 1: Nhập điểm từng môn: toan, li, hoa, van, tin Bước 2: s ← toan+li+hoa+van+tin Bước 3: tbc ← s/5 Bước 4: Nếu tbc>=8 thì xuất học sinh giỏi Ngược lại xuất học sinh khá c) Chương trình: Program BTT;Uses crt;Var toan,li,hoa,van,tin,s,tbc: real;Begin Clrscr; Write('Nhap diem mon Toan: '); Readln(toan); Write('Nhap diem mon Li: '); Readln(li); Write('Nhap diem mon Hoa: '); Readln(hoa); Write('Nhap diem mon Van: '); Readln(van); Write('Nhap diem mon Tin: '); Readln(tin); s:=toan+li+hoa+van+tin; tbc:=s/5; If tbc>=8 then Write('Hoc sinh gioi') Else Write('Hoc sinh kha'); Readln End.
Các câu hỏi tương tự
Program tinh_tong; Var a, b: integer; sum: integer; BEGIN Write(‘Moi ban nhap vao so nguyen a: ‘); Readln(a); Write(‘Moi ban nhap vao so nguyen b: ‘); Readln(b); sum := a+b; Writeln(‘Tong hai so ban vua nhap la: ‘,sum); Writeln(‘Ban bam Enter de tiep tuc ‘); Readln END. Sau khi soạn thảo xong đoạn chương trình trên các em lưu tệp lại và cho máy thực hiện chương trình (bấm Ctrl+F9) màn hình sẽ hiện ra các chỉ dẫn: Moi ban nhap vao so nguyen a: _ khi đó em nhập 1 số nguyên, xong bấm Enter, tiếp tục nhập b các em sẽ nhận được kết quả trên màn hình. Hãy tự tin lên nhé, máy tính là người bạn tốt mà, máy sẽ giúp chúng ta làm nhiều việc. |