cần gấp nhé

a)

- Thuật toán

Bước 1: t:=0;i:=1;

Bước 2: t:=t+i; i:=i+1;

Bước 3: Nếu i<=n thì quay lại bước 2

Bước 4: Xuất kết quả

- Giải

uses crt;
var n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.

b)

-Thuật toán

Bước 1: tam:=x;

bước 2: x:=y;

bước 3: y:=tam;

-giải

uses crt;
var x,y,tam:integer;
begin
clrscr;
write('nhap x='); readln(x);
write('nhap y='); readln(y);
writeln('gia tri ban dau cua x la: ',x);
writeln('gia tri ban dau cua y la: ',y);
{--------hoan-doi-----------}
tam:=x;
x:=y;
y:=tam;
writeln('gia tri sau khi thay doi cua x la: ',x);
writeln('gia tri sau khi thay doi cua y la: ',y);
readln;
end.

viết chương trình luôn k

S của tam giác vuông: 1/2.a.b (a,b:Là cạnh góc vuông của tam giác vuông)

S của tam giác cân: 1/2.a.b

${\mathrm{S:tam\; giác\; đều\; :}}^{}{a}^2.\frac{\sqrt{3}}{4}$

1)var a,b,c:real;

begin

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

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

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

if (a+b>c) or (a+c>b) or (b+c>a) then writeln(' la 3 canh cua tam giac ')

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

readln;

end.

2) var a,b:integer;

begin

write(' Chieu cao ban A: ');readln(a);

write(' Chieu cao ban B: ');readln(b);

if a=b then writeln(' Chieu cao 2 ban bang nhau ');

if a>b then writeln(' Ban A cao hon ban B')

else writeln(' Ban B cao hon ban A ');

readln;

end.

program baitap;

uses crt;

var thanhtien:real;

begin

clrscr;

write (' So tien khach da mua la: '); readln (thanhtien);

if thanhtien>=100000 then thanhtien := (70*thanhtien/100)

else thanh tien := (90*thanhtien/100);

writeln (' So tien khach phai tra la: ',thanhtien:4:2);

readln;

end.

1. Tìm ra chỗ sai ( gạch chân ) và giải thích tại sao sai :

a) var a,b:=integer (dấu = không có ở đây)

const c:=4 ;

begin :(dấu : không có ở đây)

a:= 10 (thiếu dấu ;)

b:=a/c;

write('gia tri cua b la ',b);(thiếu dấu ,)

end.

b) var : a: real; b: integer; (sau var không có :)

const c:=4

begin

c:=4.1; (trên đã gán hằng thì không đc sửa)

a:=10;

b:=a/c

write( ' gia tri cua b la ', b ); (thiếu dấu , và ;)

end (thiếu dấu .)

2a) câu a mình không hiểu đề lắm

b) Program Hoandoigiatri;

Uses Srt;

Var x,y,z: real;

Begin

Clrscr;

Write('Nhap gia tri cua x='); readln(x);

Write('Nhap gia tri cua y='); readln(y);

z:=x;

x:=y;

y:=z;

Writeln('Ket qua sau khi hoan doi:x=',x; y=',y);

Readln;

End.

a) var a,b:=integer (sai vì khi khai báo biến dùng dấu 2 chấm ko dc dùng dấu gán, ko có dấu chấm phẩy khi kết thúc).

Sửa: var a, b:integer;

const c:=4 ;

begin : (sai khi bắt đầu không cần dùng dấu 2 chấm)

sửa: begin

a:= 10 (sai ko có chấm phẩy)

sửa a:=10;

b:=a/c;

write( ' gia tri cua b la ' b); (sai thiếu dấu phẩy)

sửa: write('gia tri cua b la',b);

end.

b) var : a: real; b: integer; (sai sau var ko dc dùng hai chấm)

sửa var a: real; b: integer;

const c:=4 (sai thiếu dấu ;)

sửa const c:=4;

begin

c:=4.1; (sai ko nên viết phần này vì ở trên đã gán c:=4 nên ko dc viết thêm)

a:=10;

b:=a/c (sai thiếu dấu ;)

sửa a:=a/c;

write( ' gia tri cua b la ' b ) (sai thiếu dấu phẩy và dấu chấm phẩy)

sửa write('gia tri cua b la',b);

end (sai thiếu dấu chấm)

sửa end.