Thuật toán:
-Bước 1: S<-{xâu rỗng}
-Bước 2: Nếu S <> ‘platinum’ thì:
2.1:Nhập tên vật liệu và gán vào biến S
2.2:Quay về bước 2
-Bước 3:Thông báo ‘Chuc mung ban da thanh cong’ rồi kết thúc
*TỪ THUẬT TOÁN VIẾT THÀNH CHƯƠNG TRÌNH .
program thuattoan;
uses crt;
var s:string;
begin
clrscr;
s:=”;
while s<>’platinum’ do
begin
write(‘Nhap ten vat lieu: ‘);
readln(s);
end;
write(‘Chuc mung ban da thanh cong’);
readln
end.
uses crt;
var s:string;
begin
clrscr;
s:=”;
while s<>’platinum’ do
begin
write(‘Nhap ten vat lieu: ‘);readln(s);
end;
writeln(‘Chuc mung ban da thanh cong’);
readln
end.