Đăng Nhập
Latest topics
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm Không
Số người truy cập cùng lúc nhiều nhất là 48 người, vào ngày 2/8/2017, 00:32
Statistics
Diễn Đàn hiện có 74 thành viênChúng ta cùng chào mừng thành viên mới đăng ký: AlinaL92956302
Tổng số bài viết đã gửi vào diễn đàn là 107 in 53 subjects
Bài 1: Lệnh thông báo ra màn hình(Write)
3 posters
Trang 1 trong tổng số 1 trang
Bài 1: Lệnh thông báo ra màn hình(Write)
by Admin 20/10/2013, 21:32
A. Lý thuyết
- Để thông báo hoặc in kí tự, xâu kí tự, biến, ... ta sử dụng lệnh Write hoặc Writeln
- Cú pháp:
Write(a,b,c,...)
+ VD: Write('Chao cac ban');
+ Trong đó: a,b,c là các tham số(có thể là kí tự, xâu kí tự, biến, ...)
+ Lệnh Writeln tương tự lệnh Write nhưng con trỏ sẽ xuống hàng sau khi thông báo kết quả.
+ Lệnh Writeln; sẽ in ra một dòng trống
+ Nếu in xâu kí tự cần đặt xâu kí tự đó trong cặp dấu nháy đơn, nếu in giá trị của biến thì không dùng dấu nháy đơn.
B. Bài tập
Bài 1: Viết chương trình in ra màn hình câu Châm ngôn sau:
- Để thông báo hoặc in kí tự, xâu kí tự, biến, ... ta sử dụng lệnh Write hoặc Writeln
- Cú pháp:
Write(a,b,c,...)
+ VD: Write('Chao cac ban');
+ Trong đó: a,b,c là các tham số(có thể là kí tự, xâu kí tự, biến, ...)
+ Lệnh Writeln tương tự lệnh Write nhưng con trỏ sẽ xuống hàng sau khi thông báo kết quả.
+ Lệnh Writeln; sẽ in ra một dòng trống
+ Nếu in xâu kí tự cần đặt xâu kí tự đó trong cặp dấu nháy đơn, nếu in giá trị của biến thì không dùng dấu nháy đơn.
B. Bài tập
Bài 1: Viết chương trình in ra màn hình câu Châm ngôn sau:
"Bài chưa xong, chưa ngủ
Bài chưa đủ, chưa chơi"
Bài 2: Viết chương trình in ra màn hình nội dung sau:
**********************
* Trường THCS Trần Phán *
* Lớp 8A *
* Nguyễn Văn Nam *
**********************
Bài 3: Viết chương trình in ra các phép tính, kèm theo kết quả của phép tính đó
a) 20 + 30
b) 15 - 30
Chú ý:
+ Viết hai câu cùng trong một chương trình
+ Kết quả phải là công thức để máy tính tự tính
Admin- Admin
- Tổng số bài gửi : 59
Points : 171
Reputation : 3
Join date : 06/10/2013
Age : 41
Đến từ : Cà Mau -
Re: Bài 1: Lệnh thông báo ra màn hình(Write)
by crazy 14/11/2015, 19:02
bai 1:
program bai_1;
uses crt;
begin
writeln(' bai chua xong, chua ngu');
writeln(' bai chua du, chua choi');
readln;
end.
bai 2:
program bai_2;
uses crt;
begin
writeln('***********************');
writeln('* Truong THCS Tran Phan*');
writeln('* Lop 8A *');
writeln('* Nguyen Van Nam *');
writeln('***********************');
readlnl;
end.
bai 3/a:
program tinh_toan;
uses crt;
var a,b,tong : real;
begin
clrscr;
writeln(' hay nhap hai so thuc');
readln ( a,b );
tong:=a+b;
writeln(' tinh tong hai so thuc', tong:4:1);
readln;
end.
bai 3/b:
program tinh_toan;
uses crt;
var a,b,hieu : real;
begin
clrscr;
writeln(' hay nhap hai so thuc');
readln ( a,b );
hieu:=a-b;
writeln(' tinh hieu hai so thuc', hieu:4:1);
readln;
end.
program bai_1;
uses crt;
begin
writeln(' bai chua xong, chua ngu');
writeln(' bai chua du, chua choi');
readln;
end.
bai 2:
program bai_2;
uses crt;
begin
writeln('***********************');
writeln('* Truong THCS Tran Phan*');
writeln('* Lop 8A *');
writeln('* Nguyen Van Nam *');
writeln('***********************');
readlnl;
end.
bai 3/a:
program tinh_toan;
uses crt;
var a,b,tong : real;
begin
clrscr;
writeln(' hay nhap hai so thuc');
readln ( a,b );
tong:=a+b;
writeln(' tinh tong hai so thuc', tong:4:1);
readln;
end.
bai 3/b:
program tinh_toan;
uses crt;
var a,b,hieu : real;
begin
clrscr;
writeln(' hay nhap hai so thuc');
readln ( a,b );
hieu:=a-b;
writeln(' tinh hieu hai so thuc', hieu:4:1);
readln;
end.
Được sửa bởi crazy ngày 19/11/2015, 15:15; sửa lần 2.
crazy- Cấp 1
- Tổng số bài gửi : 10
Points : 10
Reputation : 0
Join date : 13/11/2015
Age : 21
Đến từ : Cà Mau
Re: Bài 1: Lệnh thông báo ra màn hình(Write)
by caodao 19/11/2015, 14:45
bai 1
program bai_1;
uses crt;
begin
writeln('bai chua xong, chua ngu');
writeln('bai chua du, chua choi');
readln;
end.
bai 2
program bai_2;
uses crt;
begin
writeln('*******************');
writeln('*truong THCS tran phan *');
writeln('* Lop 8A *');
writeln('*Nguyen Van Nam *');
writeln('*******************');
readln
end.
bai 3
program bai_3_a;
uses crt;
var a,b,tong,:real;
begin
writeln('hay nhap hai so thuc');
readln(a,b);
tong:=a+b;
writeln('tong hai so thuc da cho la',tong:4:1);
readln
end.
program bai_3_b;
uses crt;
var a,b,hieu:real;
begin
writeln('hay nhap hai so thuc');
readln(a,b);
hieu:=a-b;
writeln('hieu hai so thuc da cho la',hieu:4:1);
readln
end.
program bai_1;
uses crt;
begin
writeln('bai chua xong, chua ngu');
writeln('bai chua du, chua choi');
readln;
end.
bai 2
program bai_2;
uses crt;
begin
writeln('*******************');
writeln('*truong THCS tran phan *');
writeln('* Lop 8A *');
writeln('*Nguyen Van Nam *');
writeln('*******************');
readln
end.
bai 3
program bai_3_a;
uses crt;
var a,b,tong,:real;
begin
writeln('hay nhap hai so thuc');
readln(a,b);
tong:=a+b;
writeln('tong hai so thuc da cho la',tong:4:1);
readln
end.
program bai_3_b;
uses crt;
var a,b,hieu:real;
begin
writeln('hay nhap hai so thuc');
readln(a,b);
hieu:=a-b;
writeln('hieu hai so thuc da cho la',hieu:4:1);
readln
end.
caodao- Tổng số bài gửi : 1
Points : 1
Reputation : 0
Join date : 19/11/2015
Similar topics» Các lệnh cơ bản trong Pascal
» Bài 3: Câu lệnh điều kiện(if .. then ..)
» Học vẽ Hình học động với GeoGebra
» Học vẽ hình với phần mềm GeoGebra
» Quan sát hình không gian với phần mềm Yenka
» Bài 3: Câu lệnh điều kiện(if .. then ..)
» Học vẽ Hình học động với GeoGebra
» Học vẽ hình với phần mềm GeoGebra
» Quan sát hình không gian với phần mềm Yenka
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết|
|
|
» Bài 3: Câu lệnh điều kiện(if .. then ..)
» Bài 2: Nhập dữ liệu vào biến(Readln)
» Bài 4: Cấu trúc rẽ nhánh(Case .. of)
» Bài 1: Lệnh thông báo ra màn hình(Write)
» Hướng dẫn Ghost HDD không cần đĩa CD
» Bài tập tổng hợp
» Bàn ghế tre – cafe, nhà hàng giá xuất xưởng chỉ với 380k/1b
» Bài thuốc truyền đời chữa bệnh viêm gan B và xơ gan cổ trướng của lương y nức tiếng Hà thành