Bài 1. Máy tính và chương trình trong máy tính

Chương trình dịch là chương trình đặc biệt, có chức năng chuyển đổi chương trình được viết trên ngôn ngữ lập trình bậc cao thành chương trình thực hiện được trên máy tính cụ thể. 

Bạn ơi, Pascal ko hỗ trợ di chuyển bằng chuột máy tính(trừ khi dùng Graph, nhưng mình đoán 99% các mod trên đây ko ai biết dùng Graph đâu)

Nếu dùng WASD thì có thể, nhưng nếu vậy thì bài này nên đưa lên bài lớp 11 thì hơn

khi thay đổi lệnh 1 và 2 rô bốt sẽ nhặt rác nơi không có

vị trí mới cách vi trí cũ 3 bước

2 lệnh bổ sung Lệnh 1 :tiến 1 bước

Lệnh 2 :quay phải tiến 3 bước

1/

Bước 1: Nếu x<y thì chuyển đến bước bước 3

Bước 2: tg <- x;

X <- y;

Y <- tg;

Bước 3: In giá trị x, y và kết thúc.

2/- Thuật toán trên thực hiện thao tác hoán đổi giá trị của hai biến số x và y.

3/

- Cú pháp: If < điều kiện > then < câu lệnh >;

- Trong đó: + If, then là các từ khóa

+ điều kiện thường là phép so sánh;

+ câu lệnh: là câu lệnh đơn cũng có thể là nhóm các câu lệnh, nếu là nhóm các câu lệnh thì đặt trong cặp từ khóa Begin và end.

- Hoạt động: Khi gặp câu lệnh điều kiện dạng thiếu, chương trình sẽ kiểm tra điều kiện, nếu điều kiện thỏa mản chương trình sẽ thực hiện câu lệnh sau từ khóa THEN, ngược lại câu lệnh bị bỏ qua.

4/

- Cú pháp: If < điều kiện > then < câu lệnh 1> else < câu lệnh 2>;

- Trong đó: + If, then, else là các từ khóa

+ điều kiện thường là phép so sánh;

+ câu lệnh: là câu lệnh đơn cũng có thể là nhóm các câu lệnh, nếu là nhóm các câu lệnh thì đặt trong cặp từ khóa Begin và end.

- Hoạt động: Khi gặp câu lệnh điều kiện dạng đủ, chương trình sẽ kiểm tra điều kiện, nếu điều kiện thỏa mản chương trình sẽ thực hiện câu lệnh 1 sau từ khóa THEN.Trong trường hợp ngược lại câu lệnh 2sẽ được thực hiện.

5/

- Cú pháp: For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

- Trong đó: + For, to, do là các từ khóa

+ biến đếm; là biến kiểu nguyên

+ giá trị đầu, giá trị cuối là các giá trị nguyên, giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối;

+ câu lệnh: là câu lệnh đơn cũng có thể là nhóm các câu lệnh, nếu là nhóm các câu lệnh thì đặt trong cặp từ khóa Begin và end.

+ số lần lặp = giá trị cuối – giá trị đầu + 1 (lần).

- Cách thực hiện: Ban đầu biến đếm nhận giá trị bằng giá trị đầu, sau mỗi vòng lặp biến đếm tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.

tôi biết nè , không phải là cao thủ hẳn nhưng cũng biết nhiều thứ

mk bt kha khá thôi bn ạ chứ ko phải cao thủ

hỏi đee

tt

Viết chương trình là tạo ra các câu lệnh rồi sắp xếp theo một trình tự nào đó

Tại sao cần viết chương trình

kiểu này là phá pass thôi bạn ơi :)))

uses crt;

var i,n ,dem:integer;

begin

clrscr;

Write( 'nhap so nguyen duong n: ');readln(n);

dem:=0;

for i:=1 to n do if n mod i = 0 then dem:=dem+1;

if(n<2) or (dem< >2) then writeln (n,' khong phai la so nguyen to')

else if dem=2 then writeln(n,' la so nguyen to');

readln

end.

program song_to;

uses crt;

var x,i,dem,tcs,t:longint;

function tongchuso(x:longint):longint;

begin

tcs:=0;

while x<>0 do

begin

tcs:=tcs+x mod 10;

x:=x div 10;

end;

tongchuso:=tcs;

end;

begin

clrscr;

write('nhap vao mot so:');readln(x);

dem:=0;

for i:=1 to x do

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

if dem=2 then

begin

t:=0;

for i:=1 to tongchuso(x) do

if tongchuso(x) mod i =0 then t:=t+1;

if t=2 then write(x,' la so song to');

end

else write(x,' k la so song to');

readln;

end.

var t,pn,n,pd:integer;
function ktnt(k:integer):boolean;
var i,t:integer;
begin
t:=0;
for i:=1 to k do
if k mod i=0 then t:=t+1;
if t=2 then ktnt:=true
else ktnt:=false;
end;
begin
write('n=');readln(n);
pn:=n;
t:=0;
repeat
begin
pd:=pn mod 10;
t:=t+pd;
pn:=pn div 10;
end;
until pn=0;
writeln(t);
if ktnt(n) and ktnt(t) then writeln(n,' la so song to ')
else writeln(n,' khong phai so song to ');
readln;
end.