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

Huyền Nguyễn
Xem chi tiết
Cheewin
9 tháng 11 2016 lúc 22:47

1.uses crt;

var n,gt:longint;

begin

clrscr;

repeat

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

until n>0;

gt:=1;

while n>0 do

begin

gt:=gt*n;

n:=n-1;

end;

writeln('giai thua cua n la:',gt);

readln

end.

2. uses crt;

var a,b,c:real;

begin

clrscr;

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

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

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

if (a*a=b*b+c*c) or (b*=c*c+a*a) or (c*c=a*a+b*b) then writeln('khong phai la tam giac vuong');

readln

end.

 

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!

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)

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 !

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.

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.

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

van hoan Dao
Xem chi tiết
duong nguyenvan
14 tháng 11 2017 lúc 19:03

Program bai1;

uses crt;

var a,b,c: integer;

s: longint;

begin

clrscr;

write('nhap so nguyen 1 = '); readln(a);

write('nhap so nguyen 2 = '); readln(b);

write('nhap so nguyen 3 = '); readln(c);

s:=a+b+c;

if (s mod 3 = 0 ) and (s mod 5 = 0 ) then

writeln('tong 3 chu so a b c chia het cho 3 va 5') else

writeln('tong 3 chu so a b c khong chia het cho 3 va 5');

readln;

end.

Tuấn Tủn
16 tháng 11 2017 lúc 22:44

program baitap;

uses crt;

var a,c,b,s:integer;

begin

clrscr;

write('nhap so thu nhat: ');

readln(a);

write('nhap so thu hai: ');

readln(b);

write('nhap so thu ba: ');

readln(c);

write(a:4,b:4,c:4);{xuat ra 3 so vua nhap}

writeln;

S:= a+b+c;

if S mod 5=0 then

writeln('tong ba so chia het cho 5')

else if S mod 3 = 0 then

writeln('tong ba so chia het cho 3');

readln;

end.

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

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.

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.

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.

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.
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.

Nguyễn Thị Hồng Ngọc
Xem chi tiết