Cấu trúc rẽ nhánh và lặp

van hoan Dao
Xem chi tiết
O=C=O
13 tháng 12 2017 lúc 23:34

1/write('So so can nhap: ');
readln(n);
{******Nhap mang a gom cac so nguyen duong < 1000********}
for i:=1 to n do
begin
write('Nhap so thu ', i);
readln(a[i]);
while a[i] > 1001 do
(chỗ này đề bài hơi khó hiểu, nếu nguyên dương thì cần gì trị tuyệt đối, nhưng nếu cả số nguyên âm nữa thì bạn phải dùng đk abs(a[i])>1001)
begin
write('Ban phai nhap lai so nho hon 1001: ');
readln(a[i]);
end;
end;
kt:=true;
{******* In mang cac so da nhap*******}
for i:=1 to n do
begin
write(a[i]: 6);
if i mod 8=0 then writeln;
end;
{***** Kiem tra day co phai la cap so cong ko"*****}
for i:=1 to n-2 do
if a[i]+a[i+2]<> 2* a[i+1] then kt:= false;
if kt then write('Day la cap so cong')
else writeln('Day ko la cap so cong');
readln;
END.

2/ ‘thanh’ > ‘thao’ vì ‘n’ > ‘o’
Nếu so sánh hết chiều dài của chuỗi ngắn hơn mà không có cặp nào khác nhau thì chuỗi ngắn hơn sẽ nhỏ hơn, ví dụ:

‘an’ < ‘anh’

‘chu’ < ‘chung’

Hai chuỗi bằng nhau khi chúng cùng độ dài và các ký tự ở các vị trí tương ứng thì bằng nhau.

Chương trình như sau ( mình chạy máy rồi đấy:)
program baitap;
uses crt;
var s1,s2:string;
begin
clrscr;
write('Nhap s1: ');readln(s1);
write('Nhap s2: ');readln(s2);
if s1>s2 then writeln('Hai xau s1,s2 duoc in ra la: '),s1,s2)
else writeln(s2,s1);
readln
end.
Bình luận (0)
Trương Quang Dũng
13 tháng 4 2018 lúc 17:41

program bai1;

var a:array[1..100] of longint;

i,n:longint;

begin

wrtie('N= ');readln(n);

for i:=1 to n do

begin

write('A[',i,']= ');

readln(a[i]);

end;

write('Cac phan tu trong day lon hoc 10 la ');

for i:=1 to n do

if a[i]>10 then write(a[i],' ');

readln

end.

Bình luận (0)
Nguyễn Thị Ngọc Hà
Xem chi tiết
Nguyễn Thị Ngọc Hà
28 tháng 10 2017 lúc 14:57

bucminhbucminhbucminh

Bình luận (0)
Tuấn Tủn
16 tháng 11 2017 lúc 22:36

program fibonacci;

uses crt;

var a:array[0..1000] of integer;

i,n: integer;

begin

clrscr;

a[0] :=0;a[1]=1;

for i:= 2 to n do

a[i]=a[i-1]+a[i-2];

writeln('so hang thu ',n,' cua day la: ',a[n]);

end.

Bình luận (0)
Phạm Thanh Mai
Xem chi tiết
Phạm Thanh Mai
19 tháng 3 2018 lúc 14:34

mọi người giúp em với ạ

Bình luận (0)
Nguyễn Thị Hồng Ngọc
Xem chi tiết
Trương Hồng Hạnh
24 tháng 1 2018 lúc 19:54

Viết chương trình tính tổng số lẻ:

Program vct;

Uses crt;

Var

S,x,y:integer;

begin

for i:=x to y do

begin

if (i mod 2 = 1) then S:=S+i;

end;

write(S);

readln;

end.

Viết chương trình tính tổng số chia hết cho 5:

Program vct;

Uses crt;

var

S,x,y:integer;

begin

for i:=x to y do

begin

if (i mod 5 = 0) then S:=S+i;

end;

write(S);

readln;

end.

Sử dụng lệnh while...do...(làm tương tự) thêm vào câu lệnh inc(i).

Bình luận (1)
Trương Hồng Hạnh
24 tháng 1 2018 lúc 19:58

Xin lỗi mình thiếu phần nhập x,y;

Trước dòng lệnh for...do...(hoặc while...do...) thêm vào phần này nhé:

writeln('moi nhap x: '); readln(x);

writeln('moi nhap y: '); readln(y);

Đếm các số chẵn lớn hơn 100 (làm tương tự);

Lệnh if () then được thay vào là:

if ((i>100) and (i mod 2 = 0) then inc(dem);

Bình luận (1)
Nguyễn Thị Hồng Ngọc
Xem chi tiết
van hoan Dao
Xem chi tiết
duong nguyenvan
30 tháng 11 2017 lúc 16:29

1.

Program bai1;

uses crt;

var a,b,c: integer;

begin

clrscr;

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

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

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

if (a+b<c) or (b+c<a) and (c+a <b) then

writeln('khong phai la 3 canh cua tam giac ') else

writeln('la 3 canh cua tam giac ');

readln;

end.

Bình luận (0)
duong nguyenvan
30 tháng 11 2017 lúc 16:40

2.

program bai2;

uses crt;

var a: array [1..100] of integer;

i,n: integer;

tong: real;

begin

clrscr;

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

for i := 1 to n do

begin

write('nhap a[',i,'] = '); readln(a[i]);

end;

tong:=0;

for i:= 1 to n do

if (a[i] mod 2 = 0 ) or ( a[i] mod 3 = 0) then

tong:=tong+a[i];

write('tong cac so chia het cho 2 hoac 3 = ' ,tong :4:2);

readln;

end.

Bình luận (0)
Nguyễn Quang Thụy
Xem chi tiết
duong nguyenvan
5 tháng 10 2017 lúc 15:33

Proagram bai1;

uses crt;

var n,i: integer;

x: real;

begin

clrscr;

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

x:=0;

for i:= 1 to n do

x:=x+i;

writeln('tong =' , x); readln

end.

Bình luận (2)
Giao Huỳnh
9 tháng 10 2017 lúc 22:09

program bt;

uses crt;

var n,i,x:integer;

begin

clrscr;

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

while (n<=0) do

begin

write('nhap lai n:');readln(n);

end;

x:=1;

for i:=1 to n do

x:=x*i;

write('x=',x);

readln;

end.banh

chúc bạn học tốt!ok

Bình luận (0)
Hoàng Phú Đức
Xem chi tiết
Hoàng Phú Đức
22 tháng 5 2017 lúc 22:32

Các bạn ơi câu hỏi trên là 2 nhân với 10 mũ 9 nhá ! Mình cần đáp án trước 8h sáng ngày mai !

Bình luận (0)
Nguyễn Lê Phước Thịnh
12 tháng 10 2019 lúc 11:21

uses crt;
var n,d,i,t,x,y:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+sqr(x);
end;
writeln('tong binh phuong cac chu so cua ',n,' la: ', t);
readln;
end.

Bình luận (0)
Sơn Tuấn Phạm
Xem chi tiết
Phạm Xuân Trường
6 tháng 4 2017 lúc 21:24

giả sử ta có mảng a gồm n=5 phần tử:

a1, a2, a3, a4 và a5

for i:=1 to n-1 do nghĩa là vòng lặp chỉ chạy tới vị trí 4 (n-1=5-1=4)

còn for i:=1 to n do nghĩa là vòng lặp chạy tới vị trí 5 (n=5)

Bình luận (0)
phạm hương trà
Xem chi tiết
Công Chúa Sakura
4 tháng 1 2017 lúc 22:32

a)

uses crt;

VAR

n, d, i: integer;

BEGIN

clrscr;

Writeln ('Nhap vao n='); readln (n);

d : = 1;

For i: = 1 to n do

d: = d*i;

Writeln ('d=',d);

Readln;

END.

c)

uses crt;

VAR

n, i, demuoc: integer;

BEGIN

clrscr;

Writeln ('Nhap vao n='); readln (n);

demuoc: = 0;

For i: = 1 to n do

If n mod i = 0 then

demuoc : = demuoc + 1;

If demuoc = 2 then

Writeln ('n la so nguyen to')

ELSE

Writeln ('n khong phai la so nguyen to');

Readln ;

END.

Còn phần b bạn tự nghĩ nha!

Chúc bạn học tốt!

Bình luận (0)