K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

29 tháng 4 2021

Câu 1: 

*For...to...do:

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

Hoạt động: Ở dạng lặp tiến, câu lệnh viết sau từ khóa phải thực hiện tuần tự, với biến đếm lần lượt nhận giá trị từ giá trị đầu đến giá trị cuối.

29 tháng 4 2021

Câu 1: 

*For...downto...do

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

-Hoạt động: 

Ở dạng lặp lùi, câu lệnh viết sau từ khóa do được thực hiện tuần tự, với biến đếm lần lượt nhận giá trị từ giá trị đầu đến giá trị cuối.

29 tháng 4 2021

Câu 1: 

*While...do

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

-Hoạt động: 

Câu lệnh viết sau từ khóa do được thực hiện khi biểu thức điều kiện còn nhận giá trị true. Biểu thức điểu kiện được tính giá trị trước khi câu lệnh được thực hiện, nhưng nếu biểu thức điểu kiện đã nhận giá trị false ngay từ đầu thì câu lệnh không được thực hiện lần nào. Nếu biểu thức điều kiện luôn nhận giá trị true thì câu lệnh được thực hiện mãi, ta gọi là vòng lặp vô hạn.

29 tháng 4 2021

Câu 2: 

-Cách khai báo biến mảng trong Pascal: 

Var <biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

Ví dụ về cách nhập mảng, xuất mảng

for i:=1 to n do

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

25 tháng 5 2021

12

11 tháng 5 2021

a) Máy tính sẽ thực hiện 6 vòng lặp

t=0; j=30

11 tháng 5 2021

b) 

uses crt;

var j,t:integer;

begin

t:=105; 

j:=0;

while t>=20 do

begin

j:=j+5;

t:=t-j;

end;

writeln(t);

writeln(j);

readln;

end.

11 tháng 5 2017

Program tính_chia;

Uses crt;

Var i, n, s, a: integer;

Begin

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

s:=1;

For i:=1 to n do s:=s*i;

a:=0;

For i:=1 to n do a:=a+i;

Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);

readln;

End.

14 tháng 3 2017

Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;

BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .

14 tháng 3 2017

dài VL

like mạnh cho bạn

30 tháng 5 2017

mk giúp bạn đây :

Phần mềm học tập

Phần mềm học tập

hahahahahaha tick mk nha bạn !!!

5 tháng 8 2017

Bài 9. Làm việc với dãy sốBài 9. Làm việc với dãy sốBài 9. Làm việc với dãy số

5 tháng 8 2017

không phải cách tối ưu không thì hông biết nhưng mà ra đáp án :)) là được nhỉ

7 tháng 5 2017

Vào thông tin tài khoản chọn đổi ảnh đại diện, hoặc là RESEST máy lại

7 tháng 5 2017

mk lm ko dc! thu nhiu lan lam roi!