Bài 4. Sử dụng biến trong chương trình

program P;

var x, y, P: integer;

begin

writeln('nhap x va y = ');

readln(x,y);

P:=x*x+y*y+x*y;

writeln('gia tri bieu thuc = ',P);

readln

end.

Bạn thử chạy chương trình xem có được ko rồi nói lại cho mình nhé.

Mik

ko biết

C. z:=x; x:=y; y:=z

không biết!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Chuỗi lệnh hoán đổi giá trị hai biến x và y cho nhau là :
C. z:=x; x:=y; y:=z

Do font Times New Roman đẹp, đơn giản, dễ nhìn, được Microsof áp dụng làm mặc định, tiện đánh các hồ sơ, văn bản quan trọng,...

Vfi nó độc đáo nhưng đẹp và đơn giản ,hài hòa dễ nhìn

vì nó là 1 kiểu chữ huyền thoại

program phan_tu;

uses crt;

var i, n: integer;

s: real;

a: array[1..100] of real;

begin

write('Nhap do dai cua day so: '); readln(n);

for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end;

s:=0

for i:=1 to n do s:=s + a[i];

for i:=1 to n do if a[i] < s then writeln('a[',i,']=', a[i]);

readln;

end.

lần thứ nhất i=1+1=2, j=2+1=3; k=3+3=6

lần thứ hai \(i=2+1=3;j=3+1=4;k=6+4=10\)

Lần thứ ba \(i=3+1=4;j=4+1=5;k=10+5=15\)

Lần thứ tư \(i=4+1=5;j=5+1=6;k=15+6=21\)

Lần thứ năm \(i=5+1=6;j=6+1=7;k=21+7=28\)

vì qua lần thứ năm này giá trị của i vẫn thỏa mãn (đúng) với điều kiện nên câu lệnh tiếp tục thực hiện:

\(i=6+1=7;j=7+1=8;k=28+8=36\)

Qua lần lặp này giá trị của i>6 nên không thỏa mãn điều kiện, câu lệnh kết thúc.

Giá trị của i, j, k được in ra màn hình lần lượt bằng 7, 8, 36

cái này mới là đáp án đúng nè bạn:

uses crt;

var M,N,i,uoc,so:word;

function kt(i:word):boolean;

var dem,j:byte;

begin

dem:=0;

for j:=1 to i do

if i mod j=0 then dem:=dem+1;

kt:=dem=2;

end;

begin

clrscr;

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

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

uoc:=0;

if N>=M then so:=N else so:=M;

for i:=1 to so do

if (N mod i =0) and (M mod i =0) and (kt(i)=true) then uoc:=uoc+1;

if uoc<>0 then write(M,' va ',N,' la 2 so nguyen to tuong duong')

else write(M,' va ',N,' khong phai la 2 so nguyen to tuong duong');

readln;

end.

program bt;

uses crt;

var a,b:longint;

function ktsnt(h:longint):boolean;

var dem,i:byte;

begin

dem:=0;

for i:=1 to h do

if h mod i =0 then dem:=dem+1;

ktsnt:=dem=2;

end;

function ucln(a,b:longint):longint;

begin

while a<>b do

if a>b then a:=a-b else b:=b-a;

ucln:=a;

end;

begin

clrscr;

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

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

if (ktsnt(a)=true) and (ktsnt(b)=true) then

begin

if ucln(a,b)= 1 then write(a,' va ',b,' la hai so nguyen to tuong duong')

else write(a,' va ',b,' la hai so nguyen to nhung k tuong duong');

end

else if (ktsnt(a)=true) and (ktsnt(b)=false) then

write(a,' la so nguyen to nhung ',b,' k phai so nguyen to')

else if (ktsnt(a)= false) and (ktsnt(b)=true) then

write(b,' la so nguyen to nhung ',a,' k phai so nguyen to')

else write(a,' va ',b,' khong phai la so nguyen to');

readln;

end.

hình như mk đọc lộn nên bài này k đúng nhe bạn, sorry

a, var start , begin : real ;

( tên biến không được trùng với từ khóa)

=> var start, biến bất kì (vd: a, b, c..):real;

b, const x : = 3 . 14 , y : 1000 ;

( khai báo hằng phải dùng dấu "=", giữa các hằng phải được ngăn cách = dấu chấm phẩy)

=> const x=3.14; y=1000;

c, var a : 5 ;

(khai báo biến là khai báo kiêu dữ liệu của biến chứ không khai báo giá trị của biến)

=> var a: kiểu dữ kiệu bất kì (vd: integer, real,...);

d, const ten lop = ' 8a2 ' ;

(tên hằng không được chứa ký tự đặc biệt);

=> const ten_lop (tenlop) = '8a2';

e, var xep _ loại , diem : integer , real ;

(tên biến không được chứa ký tự đặc biệt và không có dấu, không được khai báo 1 biến mà nhiều kiểu dữ liệu)

=> var xep_loai, diem:integer (real) ;

f, var nguyen 1 , nguyen 2 , : integer , thuc 1 , thuc 2 , : real ;

( tên biến không được chứa ký tự đặc biệt, dư dấu phẩy, giữa các kiểu khai báo biến phải ngăn cách = dấu chấm phẩy)

=>var nguyen1 (nguyen_1), nguyen2 (nguyen_2) : integer; thuc1( thuc_1), thuc2 (thuc_1) : real;

g, const 3 ban = ' Phan ' , ' Tuan ' , ' Thanh ' ;

(tên hằng k được bắt đầu = chữ số, các giá trị phải ghi chung chứ k ghi riêng)

=> const ten3ban = 'Phan, Tuan, Thanh';

h, const tên _ nhom = Tin hoc ;

( tên hằng không chứa ký tự đặc biệt và không có dấu, giá trị là chữ thì phải đặt trong dấu ' ')

=>const ten_nhom='Tin hoc';

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

USES crt;

VAR a,b:integer;

BEGIN

clrscr;

write('Nhap so thu nha:'); readln(a);

write('Nhap so thu hai:'); readln(b);

write('Tich cua 2 so do la:',a*b);

readln;

END.

program tin_hoc_8;

uses crt;

var a,b,T:integer;

begin

clrscr;

write('nhap so nguyen a,b');

read(a,b);

T:=a*b;

writeln('tich hai so nguyen la' ,T:4:2);

readln

end.

program tinhtong;

uses crt;

var x,y: real;

begin

clrscr;

write('nhap so x va y :'); readln(x,y);

writeln('tong =' ,x*y);

readln

end.

program bai2;

uses crt;

var a,b: integer;

begin

clrscr;

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

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

writeln('Tong =' ,a+b);

writeln('Hieu =' ,a-b);

readln

end.

xin hỏi bạn đề cho tam giác gì ? (vuông,cân,thường,đều,..).