Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Minh Trang
Câu 1: Hãy viết thuật toán của bài toán: Câu 2: Hãy viết thuật toán của bài toán: "Tinh tong cua 100 so tu nhien dau tien" Câu 3: bẫy viết cú pháp của câu lệnh điều kiện dạng thiết và câu lệnh điều kiện dạng đầy đủ. Trong mỗi trường hợp em hãy cho ví dụ cụ thể Câu 4: Em hãy viết chương trình thẻo các bứớc sau: a, Nhập vào hai số nguyên: m,n b, Sử dụng câu lệnh IF,then lồng nhau để thông báo ra màn hình kết quả các trường hợp sau: -Cả hai số là số chẵn -Cả hai số là số lẻ -Một số là số chẵn,một số là số lẻ Câu 5: Hãy viết chương trình theo các bước sau: a, Nhập vào ba cạnh của một tam giác b, Sử dụng IF,then lồng nhau để thông báo ra màn hình kết quả trong các trường hợp sau: -Tam giác đều -Tam giác cân -Ko phải là tam giác đều hay tam giác cân
Nguyễn Lê Phước Thịnh
28 tháng 12 2020 lúc 18:20

Câu 2: 

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

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

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

-Bước 5: Xuất s

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

Câu 3:

Dạng thiếu: if <điều kiện> then <câu lệnh>;

Dạng đủ: if <điều kiện> then <câu lệnh> 

else <câu lệnh>;

Câu 4: 

uses crt;

var m,n:integer;

begin

clrscr;

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

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

if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')

else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');

readln;

end.

Câu 5: 

uses crt;

var a,b,c: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) and (a+b>c) and (a+c>b) and (b+c>a);

if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')

else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')

else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')

else if (a=b) and (b=c) then writeln('Tam giac deu')

else writeln('Day khong phai la tam giac deu hay tam giac can');

readln;

end.


Các câu hỏi tương tự
Nguyễn Ngọc
Xem chi tiết
Trần trung hiếu
Xem chi tiết
nhattien nguyen
Xem chi tiết
nhattien nguyen
Xem chi tiết
Phùng Việt Anh
Xem chi tiết
Sa sa
Xem chi tiết
Hắc Phong
Xem chi tiết
nhattien nguyen
Xem chi tiết
nhattien nguyen
Xem chi tiết