Bài 5. Từ bài toán đến chương trình

Thay đổi giá trị của x và y

Vậy là hoán đổi giá trị của x và y

Giải thích :

x:=x+y nên y := x-y = (x + y ) - y = x và x := x-y = x - ( x -y ) = y

Sau 3 bước, x có giá trị ban đầu của y và y có giá trị ban đầu của x, tức giá trị của 2 biến x và y được hoán đổi cho nhau.

pascal hả bn??

mình thấy ở trang 71 SGK có bài tương tự

program Tinh_trung_binh_cong;

uses crt;

var n, dem : integer;

a, TB : real;

begin clrscr;

dem:= 0; TB:=0;

write('Nhap so cac so can tinh n = '); realn(n);

write dem < n do

begin dem:= dem + 1;

write('Nhap so thu ', dem,' = '); realn(a);

TB:= TB + a;

end;

TB:= TB/n;

writeln('Trung binh cua ', n, ' so la = ', TB:10:3);

writeln('Nhan Enter de thoat ...');

readln;

end.

program Tinh_trung_binh_cong;

uses crt;

var n, dem : integer;

a, TB : real;

begin clrscr;

dem:= 0; TB:=0;

write('Nhap so cac so can tinh n = '); realn(n);

write dem < n do

begin dem:= dem + 1;

write('Nhap so thu ', dem,' = '); realn(a);

TB:= TB + a;

end;

TB:= TB/n;

writeln('Trung binh cua ', n, ' so la = ', TB:10:3);

writeln('Nhan Enter de thoat ...');

readln;

end.

program ct_dautien;

uses crt;

var x:integer;

begin

writeln('moi nhap a,b');readln(a,b);

if a>b then write(a) else write (b);

readln

end.

minh viet lon, sua lai: var a,b: integer;

VD: 2,4,6

- số hàng trăm là 2

- số hàng chục là 4

-số hàng đơn vị là 6

- Tổng các chữ số:2+4+6=12

GIÚP MK VS MK ĐANG CẦN GẤP!!!

program bai_5;

uses crt;

var a,b,c :real;

BEGIN

write('nhap vao so a'); Readln(a);

write('nhap vao so b'); Readln(b);

write('nhap vao so c'); Readln(c);

if a<0 then a:=-a;

max:=a;

if max <b then max:=b;

if max<c then max:=c;

write('gia tri tuyet doi cua a la:',a);

write('so lon nhat trong ba so a,b,c la:',max);

Readln

END.

Thanks

Program bai1;

Uses crt;

var W,H2,BMI: real;

BEGIN

clrscr;

Write('nhap can nang (W):'); Readln(W);

Write('nhap chieu cao(H2):') Readln(H2);

BMI:= W/H2

Writeln('chi so co the duoc tinh theo can nang va chieu cao la:',BMI);

END.

thanks

program bai1;

var s,i:longint;

begin

s:=0;

for i;=1 to 100 do s:=s+i;

write('s= ',s);

readln

end.

program tong;

var

i, S: integer;

begin

S:=0

for i:=1 to 100 do S:=S+i;

writeln('tong la=', S);

readln

end.

C

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

A. x:=z; x:=y; y:=x B. z:=x; z:=y; y:=x

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

c)

program giai_phuong_trinh;

uses crt;

var a, b : real;

begin

clrscr;

write ('nhap hai so a, b :');readln(a,b);

writeln('phuong trinh :', a:3:1,'x+ ', b:3:1, ' =0);

if a<>0 then writeln ('phuong trinh co duy nhat nghiem x= '; '-b/a');

else if a=0 then

if b=0 then writeln ('phuong trinh co vo so nghiem');

else writeln ('phuong trinh vo nghiem');

readln

end.

a/ Input: b,c và bx+c=0.

Output:x

a,

-Input : b,c và bx+c =0;

-output : x.

b,

B1: Nhập a,b.
B2: Nếu a<>0 thì x=-b/a và kết thúc ngược lại thì đi tiếp.
B3: Nếu b=0 thì phương trình vô số nghiệm ngược lại thì phương trình vô nghiệm.

c,

program giaipb1;
uses crt;
var a,b:real;
begin
clrscr;
writeln('Chuong Trinh Giai PT bac 1: ax+b=0');
writeln('Nhap a va b'); readln(a,b);
If (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem');
If (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem');
If (a<>0) and(b<>0) then writeln('Phuong trinh co nghiem x=',(-b)/a:4:2);
readln;
end.