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.

5 tháng 5 2019

đây nè bạn ơi

Bài 5. Từ bài toán đến chương trình

5 tháng 5 2019

à quên bạn sử lại chỗ ghi "tich" thành "tong" nhé

Câu 1:
Cấu trúc: For <biến>:=<giá trị đầu> to <giá trị cuối> do

Vd

for i:=1 to n do

Câu 2:

Cấu trúc: While <điều kiện> do <câu lệnh>

Vd: While not eoln(f1) do

Câu 3:

Cú pháp: var <tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>]of <kiểu dữ liệu>;

Vd: var a:array[1..100]of integer;

6 tháng 4 2018

c1:

var i,j:integer;

begin

write('bang cuu chuong');

for i:=1 to 10 do if j:=8 then write(j:2 , 'x' ,i:2,'=', i*j:2);

end.

12 tháng 4 2018

Cau 1:

Var i :integer;

Begin

Writeln (' Bang Nhan 8 : ');

For i:= 1 to 10 do Writeln (i , ' x ' , 8 , ' = ', j*8);

Readln;

end.

Cau 2:

Var t,l,p,s:string;

Begin

Writeln (' Ho ten hoc sinh : ');

Readln (t);

Writeln (' Lop : ');

Readln (l);

Writeln (' Truong : ');

Readln (s);

Writeln (' Thanh pho : ');

Readln (p);

Readln;

end.

Cau 3 :

a. Var n,i:integer;

Begin

Write (' nhap n = ');

Readln (n);

For i:= 1 to n do If (i mod 2 <>0) and (i<=n ) then write (i:4);

Readln;

end.

b.Var i,n,S:integer;

Begin

Write (' Nhap n = ');

Readln (n);

S:= 0;

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

Write (' Tong S = ',S);

Readln;

end.

5 tháng 4 2018

lặp vô hạn là việc chương trình thực hiện liên tục và lặp câu lệnh vô số lần ko kết thúc

lỗi lập trình cần tránh laftranhs viết điều kiện sai học luôn luôn thỏa mãn trong bất kì trường hợp nào ( nhằm tránh lặp vô hạn)