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

program XinChao;

uses crt;

begin

clrscr;

writeln('Xin chao cac ban!');

writeln('Toi ten la Huyen Minh Lam Nguyet ');

writeln('Toi hoc lop 9');

readln;

end.

program CT_ten_lop;

uses crt;

begin

clrscr;

writeln ('Chao cac ban!');

writeln ('Toi ten la: ...');

writeln ('Lop:...');

readln;

end.

write , writeln , readln là những câu lênh xuất nhập dữ liệu.

1. write (<tham số 1 > [,tham số 2 >,...]);

2. writeln (<tham số 1 > [,tham số 2 >,...]);

4. readln ( <biến 1 > [,biến 2 >,...<biến n >]);

* các thủ tục trên có chức năng như sau :

-write : sau khi xuất giá trị của các tham số ra màn hình thì con trỏ không xuống dòng.

-writeln : sau khi xuất giá trị của các tham số ra màn hình thì con trỏ xuống dòng tiếp theo.

- readln : dùng để nhập dữ liệu từ bàn phím vào các biến có kiểu dữ liệu chuẩn ( trừ kiểu boolean).

các này là câu hỏi hay câu trả lời???

Program trung_binh_cong;

uses crt;

var a,b,c: real;

begin

clrscr;

write('nhap so a , b , c =' ,); readln(a,b,c):

writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3;

readln;

end.

Program trung_binh_cong;

uses crt;

var a,b,c: real;

begin

clrscr;

write('nhap so a , b , c =' ,); readln(a,b,c):

writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3);

readln;

end.

Program Trung_Binh_Cong;

uses crt;

var a,b: real;

begin

clrscr;

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

write('nhap so b ='); realdn(b);

writeln('Trung binh cong cua 2 so ',a,' va ',b,' = ' , a*b/2);

readln;

end.

Cái này mới đúng :)

Program Trung_Binh_Cong;

uses crt;

var a,b: real;

begin

clrscr;

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

write('nhap so b ='); realdn(b);

writeln('Trung binh cong cua 2 so ',a,' va ',b,' = ' , a+b/2);

readln;

end.

Làm bài vui vẻ :)

program trung_binh_cong;

ues crt;

var a,b : real;

begin

clrscr ;

write ('nhap so a = ');

readln (a);

write ('nhap so b = ');

readln (b);

writeln (' trung binh cong cua hai so 'a' va 'b',= 'a+b/2');

readln

end.

integer là kiểu số nguyên trong khoảng từ -32768 đến 32767

real là kiểu số thực có giá trị tuyệt đối trong khoảng 2,9 x 10^-39 đến 1,7 x 10³⁸ và số 0

-write, writeln: in thông tin ra màn hình ( writeln đưa con trỏ xuống đầu dòng tiếp theo)

-read( danh sách biến), readln(danh sách biến): nhập dữ liệu vào ct (lệnh readln tạm ngừng ct cho đến khi nhấn enter)

-clrscr: xóa màn hình kết quả ( chỉ sử dụng khi đã kháo báo thư viện crt)

-delay(x): tạm ngừng ct trong x phần nghìn giây, sau đó tiếp tục chạy

-for..to..do: lặp vs số lần biết trước

-while..do: lặp vs số lần chưa biết trước

-if..then hoặc if..then..else: lệnh điều kiện

-gotoxy(a,b): đưa con trỏ về cột a, hàng b);

-whereX: cho biết số thứ tự của cột

-whereY : cho biết số thứ tự của hàng

chúc bạn học tốt

a) thông báo kết quả in tính toán

sử dụng lệnh write/ writeln để in ra màn hình

b) nhập dữ liệu từ bàn phím

sử dụng lệnh read/ readln để nhập dữ liệu

c) tạm ngưng chương trình

sử dụng lệnh delay (2000)

d) hộp thoại

hình như o có kí hiệu ấy chắc bạn viết sai

Giải:

Program Tong_va_tich;

Uses Crt;

Var S, P : real;

Begin

Clrscr;

S:= 16+4;

Writeln ('Tong hai so 14 và 6 la', S:4:2);

P:= 16*4;

Writeln ('Tich hai so 14 và 6 la', P:4:2);

Readln;

End.

Chúc bạn học tốt!

mấy anh chị có học bài này rồi trả lời giúp em với

Phạm Hoàng Giang bài này nè

Dãy chữ số 2017 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 2017 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 ('').
Ví dụ kiểu xâu kí tự: '2017'

Dãy chữ số 2017 thuộc những kiểu dữ liệu sau:

- Integer: Kiểu số nguyên

- Real: Kiểu số thực

- String: Kiểu xâu ký tự

Tuy nhiên, trong chương trình Pascal, để thể hiện 2017 thuộc kiểu string, ta phải để nó trong cặp dấu nháy đơn ('')

Thuộc kiểu integer( số nguyên )