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.

Program Tim_so_chan;

uses crt;

var i,n:integer;

Begin

clrscr;

Write('Nhap so n:'); Readln(n);

For i:=1 to n do If i mod 2=0 then Write('Cac so chan nho hon n la:' ,i:3,',');

Readln

End.

program dffg;

uses crt ;

var a,b,n:integer;

begin

write('a=');

readln(a);

write('b=');

readln(b);

for n:=a to b do if (n mod 2) = 0 then write(n);

readln;

end.

program dffg;

uses crt ;

var a,b,n:integer;

begin

write('a=');

readln(a);

write('b=');

readln(b);

for n:=a to b do if (n mod 2) = 0 then write(n);

readln;

end.

tổng của 100 số đt:

var i,b:integer;

begin

b:=0;

for i:=1 to 100 do

b:=b+i;

writeln('Tong cua 100 so dt:', b);

readln;

end.

tổng của 100 số đt:

var i,b:integer;

begin

b:=0;

for i:=1 to 100 do

b:=b+i;

writeln('Tong cua 100 so dt:', b);

readln;

end.

Sắp xếp theo giá trị tăng/giảm dần:

Type mang=array [1..20] of integer;

var a:mang; n,i,j,x:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i] > a[j] then ( đây là sắp xếp tăng dần, còn giảm dần thì bạn đổi dấu ngược lại, phần trước và phần sau kh thay đổi )

begin

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

writeln('ket qua sau sap xep');

for i:=1 to n do

writeln(a[i]);

readln;

end.

program ctdt;
uses crt;
type mang=array[1..100]of integer;
var n,i,j:integer;
a:mang;
(*----------------------------*)
begin
readln(N);
for i:=1 to n do
readln(a[i]);
(*----------------------------*)
{tim min}
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
writeln(min);
(*----------------------------*)
{tim max}
max:=a[1];
for i:=2 to n do
if a[i]>max then
max:=a[i];
writeln(max);
(*----------------------------*)
{sap xep tang dan}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
(*----------------------------*)
{sap xep giam dan chi can doi dau o lenh if}

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

min max va mot so bien khac ban nho khai bao nha

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;

program vantoc;

uses crt;

var v,s,t:real;

begin

writeln('nhap quang duong km');

readln(s);

writeln('nhap thoi gian h');

readln(t);

v:=s/t;

writeln('thoi gian la',v:4:2);

readln

end.

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

Input: số phần tử của dãy A, dãy a1,a2...an.

Output:số phần tử chẵn, lẻ.

thuật toán:

B1: demchan <--0; demle <--0; i<--1;

B2: nếu a[i] mod 2=0 then demchan <-- demchan+1. ngược lại demle <--demle+1;

B3: i <--i+1;

B4: nếu i<=n thì quay lại bước 2;

B5: thông báo giá trị demchan và demle và kết thúc thuật toán.

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

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 ucln;

uses crt;

var M,N,ucln:longint;

begin

clrscr;

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

while M<=0 do

begin

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

end;

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

while N<=M do

begin

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

end;

While M<>N do

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

ucln:=M;

write('ucln la:',ucln);

readln;

end.