Bài 1. Máy tính và chương trình trong máy tính

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phạm Nguyễn Thanh Ngân

Phần 1: Câu điều kiện

1. Viết chương trình tìm số lớn nhất trong ba số nhập từ bàn phím

2. Viết chương trình giải phương trình bậc nhất bx + c = 0. Với a, b nhập từ bàn phím

3. Viết chương trinhfkieemr tra một số nhập từ bàn phím là chẵn hay lẻ?

4. Viết chương trình kiểm tra kết quả học tập của mình đã đạt loại gì? (diem>=8 thì 'gioi'...)

5. Viế chương trình nhập vào độ dài ba cạnh, kiểm tra ba cạnh có thể lập thành tam giác không? Nếu có tính chu vi và diện tích hình tam giác dó

6. Viết chương trình nhập vào 2 số từ bàn phím, kiểm tra xem tổng của hai số chẵn hay lẻ?

Phần 2: Câu lệnh lặp:

1. Viết chương trình tính tổng S= 1+ 2 +...+n ( n: số nguyên, n nhập từ bàn phím)

2. Viết chương trình tính tổng sau. Trong đó n là số nguyên nhập từ bàn phím?

A= 1+ 1/2+ 1/3+.....+1/n

3. Viết chương trình tính tích của n số tự nhiên dầu tiên, đọc là n giai thừa.

N!= 1.2.3....n

4. Viết chương trình sau:

p= căn x + căn x nằm trong căn x I + căn x nằm trong căn của căn x II ( nhập từ bàn phím mk ko cóa căn nên v nếu các cậu hiểu thì giải giúp mk vs)

Trong đó, n được nhập từ bàn phím

5. Viết chương trình tìm tổng 50 số tự nhiên đầu tiên

HELP ME!! đề Thi HKI của mk á mn giúp mk vs. Thanhs.....

✿✿❑ĐạT̐®ŋɢย❐✿✿
17 tháng 12 2019 lúc 12:14

1) Tham khảo :

program tim_max;
uses crt;
var m,n,k:real;
max:real;
begin
clrscr;

write('nhap so thu nhat ='); readln(m);

write('nhap so thu hai ='); readln(n);

write('nhap so thu ba ='); readln(k);

max:=m;
if n>max then max:=n;
if k>max then max:=k;
writeln('gia_tri_lon_nhat=',max:4:0);
readln;
end.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
17 tháng 12 2019 lúc 13:28

Phần 1: Câu lệnh điều kiện

1:

uses crt;

var ln,a,b,c:integer;

begin

clrscr;

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

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

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

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

writeln('so lon nhat la: ',ln);

readln;

end.

2:

Uses crt;
Var c,b,x: real;
Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC NHAT: BX + C=0');
Writeln('------------------------------------------------------------');
Write ('Nhap b= '); readln(b);
Write ('Nhap c= '); readln(c);
If(b=0) then
If(c=0) then Writeln(' Phuong trinh co vo so nghiem')
Else writeln(' Phuong tring vo nghiem')
Else Writeln('Phuong trinh co nghiem x=',-c/b: 4: 2);
Readln;
End.

3:

uses crt;

var a:integer;

begin

clrscr;

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

if a mod 2=0 then writeln(a,' la so chan')

else writeln(a,' la so le');

readln;

end.

4:

uses crt;

var diem:real;

begin

clrscr;

write('nhap diem:'); readln(diem);

if diem<5 then writeln('yeu');

if (diem>=5) and (diem<6,5) then writeln('trung binh');

if (diem>=6,5) and (diem<8) then writeln('kha');

if diem>=8 then writeln('gioi');

readln;

end.

5:

uses crt;

var a,b,c,cv:integer;

p,s:real;

begin

clrscr;

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

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

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

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

begin

writeln('ba canh nay co the lap duoc tam giac');

cv:=a+b+c;

writeln('chu vi tam giac nay la: ',cv);

p:=cv/2;

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

writeln('dien tich tam giac nay la: ',s:4:2);

end

else writeln('ba canh nay khong lap duoc tam giac');

readln;

end.

6:

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if a+b mod 2=0 then writeln('tong cua hai so ',a,' va ',b,' la so chan')

else writeln('tong cua hai so ',a,' va ',b,' la so le');

readln;

end.

Phần 2: Câu lệnh lặp

1:

uses crt;

var t,i,n:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

t:=t+i;

writeln('tong cua day so tu 1 toi ',n,' la: ',t);

readln;

end.

2:

uses crt;

var i,n:integer;

t:real;

begin

clrscr;

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

t:=0;

for i:=1 to n do

t:=t+1/i;

writeln('tong cua day so tu 1/1 toi 1/',n,' la: ',t:4:2);

readln;

end.

3:

uses crt;

var i,n:integer;

gt:longint;

begin

clrscr;

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

gt:=1;

for i:=1 to n do

gt:=gt*i;

writeln(n,'!'=',gt);

readln;

end.

5:

uses crt;

var t,i:integer;

begin

clrscr;

t:=0;

for i:=0 to 49 do

t:=t+i;

writeln('tong cua 50 so tu nhien dau tien la: ',t);

readln;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
VĂN LƯƠNG NGỌC DUYÊN
Xem chi tiết
Đào Quyền
Xem chi tiết
Le Thi Nhung
Xem chi tiết
Nguyễn Thị Thu Hiền
Xem chi tiết
Bin
Xem chi tiết
MinasuaSan Channel
Xem chi tiết
Yen Hoang
Xem chi tiết
nhung
Xem chi tiết
Huy Tang
Xem chi tiết