Bài 3. Chương trình máy tính và dữ liệu

begin

write('S hinh thang: ',((7+5)*3,5)/2);

end.

Đìu lần nào sửa cũng quên :

Program baitap;

Var a,b,c: Integer, TB:real;

Const n = 3;

Begin

Writeln('nhap vao ba so a,b,c ') ; Readln ( a,b,c );

TB:=(a+b+c)/n;

Writeln('Trung binh cong cua 3 so do la ',TB);

Readln

End.

Chỉ có begin đúng

Program bai_tap;

Var a,b,c, TB : Integer;

Const n = 3;

Begin

Writeln('nhap vao ba so a,b,c' ) ; Readln ( a,b,c );

TB:=(a+b+c)/n;

Writeln('Trung binh cong cua 3 so do la : ',TB);

Readln

End.

-Dịch thử ct đi, nếu còn sai => sửa tiếp.

Cú pháp câu lệnh điều kiện dạng thiếu:

- if <điều kiện> then <câu lệnh >;

Cú pháp câu lệnh điều kiện dạng đủ:

-if <điều kiện> then<câu lệnh 1> else <câu lệnh 2>;

cú pháp if(điều kiện) then (câu lệnh 1) else(câu lệnh 2);

if là nếu

then là tiếp theo

else là khác

if:nếu

then :thì

else :ngược lại

program dientich;

uses crt;

var a,b:integer;

S:longint;

begin

clrcsr;

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

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

S:=(a*b)/2;

write('dien tich hinh thoi=',S);

readln;

end.

Uses Crt;

Var

Begin

Clrscr;

write(' Nhap so n ='); readln(n);

For i:= 1 to n do

Begin

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

end;

For i:= 1 to n do

If a[i] mod 5 then s:=s+a[i];

writeln('Tong cac so =' ,s);

readln

end.

Chúc Bạn Học Tốt

Xin lỗi ở trên mình quên chưa khaai báo :))

Uses Crt;

Var A: array [1..100] of longint;

n, i, s: integer;

Begin

Clrscr;

write(' Nhap so n ='); readln(n);

For i:= 1 to n do

Begin

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

end;

For i:= 1 to n do

If a[i] mod 5 then s:=s+a[i];

writeln('Tong cac so =' ,s);

readln

end.

Chúc Bạn Học Tốt

lớp 8 chưa học lệnh array nha

theo mình thì dễ hơn

uses crt;

var i,n,s:longint;

begin

clrscr;

write(' nhap n:');readln(n);

s:=0;

for i:=1 to n do

if i mod 5 = 0 then s:=s+i;

writeln(''tong cac so tn chia het cho 5 la',s);

readln;

end.

NHỮNG THỨ BẠN KO THỂ QUÊN ĐC LÀ ĐC Ở BÊN BẠN GÁI THẬT LÂU .

DÙ CÓ CHẾT.

KHOẢNG THỜI GIAN NÀY KO THỂ QUÊN ĐC KHI BÊN NGƯỜI ẤY . HIHI ^^^

RÙI CŨNG PHẢI ĐẾN 1 NGÀY RỜI XA NHAU . NHƯNG NẾU CẢ 2 VẪN CÒN NHỚ CÁI THỜI CẤP 2 THÌ CÓ THỂ VẪN TIẾP TỤC ... ^^ HUHU ^ HIHI ^

Program Hinh_Tron;

uses crt;

var R,cv,s: real;

begin

clrscr;

write('nhap ban kinh R=');

readln(R);

cv:= R*2*3.14;

s:= R*R*3.14;

if R=0 then writeln('R la so am ') else

writeln('chu vi hinh tron la :' ,cv);

writeln('dien tich hinh tron la: ',s);

readln

end.

trong khoảng thời gian nhất định là: writeln('') và delay(số thời gian *1000)

trong khoảng thời gian cho đến khi nhấn phím là: readln

Dãy chữ số 2010 có thể thuộc kiểu dữ liệu số nguyên, số thực hoặc kiểu xâu kí tự. Tuy nhiên, để chương trình dịch Turbo Pascal hiểu 2010 là dữ liệu kiểu xâu, chúng ta phải viết dãy số này trong cặp dấu nháy đơn (’).

VD:

var a: real; b: integer;

begin

writeln('123');

writeln(123);

a:=2010;

b:=2010;

end

dữ liệu số 2010 có thể thuộc kiểu dữ liệu số nguyên, số thực hoặc kiểu xâu kí tự. tuy nhiên để chương trình dịch turbo pascal hiểu 2010 là dữ liệu kiểu xâu, chúng ta viết dãy số này trong cặp dấu nhấy đơn (")

ví dụ kiểu xâu kí tự:'2010'

Cho hai xâu kí tự “Lớp” và “8A”. Có thể định nghĩa nhiều “phép toán” trên tập hợp các dữ liệu kiểu xâu. Chẳng hạn phép ghép: Lớp + 8A = Lớp8A