Nội dung của Bài thực hành 1: Làm quen với Turbo Pascal dưới đây nhằm giúp các em bước đầu làm quen với môi trường lập trình Turbo Pascal, nhận diện màn hình soạn thảo, cách mở các bảng chọn và chọn lệnh; rèn luyện cho các em kĩ năng dịch, sửa lỗi và chạy chương trình;... Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
Hình 1. Màn hình làm việc của Turbo Pascal
Lưu ý:
program ct_dau_tien;
uses crt;
begin
writeln('chaocacban’);
end.
Hình 2. Soạn thảo chương trình đơn giản
Hình 3. Hộp thoại lưu chương trình trong Turbo Pascal
Sau khi soạn thảo xong, nhấn tổ hợp phím Alt+F9 để dịch chương trình, màn hình có dạng như sau:
Hình 4. Màn hình dịch chương trình trong Turbo Pascal
Hình 5. Màn hình chạy chương trình trong Turbo Pascal
Hình 6. Lỗi thiếu Begin
Hình 7. Lỗi thiếu dấu chấm phẩy
Hình 8. Lỗi thiếu dấu chấm sau End
Hình 9. Lỗi thiếu dấu nháy trên
Sau khi học xong Bài thực hành 1: Làm quen với Turbo Pascal , các em cần nắm vững các nội dung trọng tâm:
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 8 Bài thực hành 1 cực hay có đáp án và lời giải chi tiết.
Môi trường làm việc của ngôn ngữ lập trình Pascal là:
Khi gõ từ khóa vào màn hình Pascal thì từ khoá có màu:
Câu 3- 5: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 8 DapAnHay
Môi trường làm việc của ngôn ngữ lập trình Pascal là:
Khi gõ từ khóa vào màn hình Pascal thì từ khoá có màu:
Để khởi động chương trình Pascal ta làm như sau:
Để dịch chương trình Pascal sang ngôn ngữ máy ta nhấn tổ hợp phím:
Để chạy chương trình pascal ta nhấn tổ hợp phím:
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Viết chương trình pascal để tính tổng
S= 1/1+1/2+1/3+1/4+1/5+...+1/n
Câu trả lời của bạn
tính trung bình tích trong pascal dùm em với ạ
Câu trả lời của bạn
Câu trả lời của bạn
program sohoanhao;
uses crt;
var n,i,S:longint;
begin
writeln('Nhap so nguyen co ba chu so');read(n);
S:=0
for i:=1 to n div 2 do
if n mod i=0 then S:=S+i;
if S=n then write(n,' la so hoan hao')
else write(n,' khong phai so hoan hao');
readln
end.
họ và tên
số điện thoại+học sinh/phương trình
địa chỉ
Câu trả lời của bạn
Viết chương trình in ra màn hình dòng chữ: "Hello Toi la Turbo Pascal" *Cần khai báo kiểu dữ liệu*
Câu trả lời của bạn
program bt;
uses crt;
var a,b:string;
begin
a:='hello';
b:='Toi la turbo pascal';
writeln(a); writeln(b);
readln; end.
program vietchuongtrinh;
uses crt;
begin
clrscr;
writeln('Hello');
writeln('"Toi la Turbo Pascal"');
readln;
end.
Câu 1:Viết chương trình in ra họ tên của mình?
Câu 2:Viết chương trình tính chu vi và diện tích hình chữ nhật có chiều dài 2 cạnh là a,b(được nhập từ bàn phím)
Câu 3:Viết chương trình tính xem 1 tam giác có là tam giác vuông hay không khi biết 3 cạnh của tam giác(hướng dẫn-nhập 3 cạnh của tam giác vào 3 biến a,b,c;-Nếu a^2=b^2+c^2 hoặc b^2=a^2+c^2 hoặc c^2=a^2+b^2 thì là tam giác vuông và ngược lại)
Câu 4:Viết chương trình xét xem tam giác có là tam giác cân hay không khi biết 3 cạnh(huongs dẫn-Nhập 3 cạnh của tam giác vào 3 biến a,b,c;-Nếu a=b hoặc c=a thì tam giác là tam giác cân và ngược lại)
Câu 5:Dùng lệnh for...do viết chương trình tính tổng của n số tự nhiên đầu tiên với n là số tự nhiên được nhập từ bàn phím
Câu 6:Dùng lệnh for...do tính tổng S=1/2+1/3+1/4+...+1/100
Câu 7:Viết chương trình in ra tất cả các ước của một số n(với n là số được nhập từ bàn phím)
Hướng dẫn:Cho biến i chạy từ 1đến n. Nếu n chia hết cho i thì in ra i
Câu 8:Viết chương trình in ra các số lẻ<hoặc bằng n(n được nhập từ bàn phím)
Hướng dẫn. Sử dụng biến thực số lẻ đầu tiên=1.Số lẻ sau =số lẻ trước+2
-Cho biến i có giá trị ban đầu =1
-Dùng vòng lặp While...do với điều kiện i<n và công việc bên trong là in i và tăng i lên 2
Câu trả lời của bạn
Câu 3:
Var a,b,c :real;
Begin
Write ('nhap canh 1: '); Readln(a);
Write (' nhap canh thu 2 :');Readln(b);
Write (' nhap canh thu 3 :'); Readln(c);
If ((a+b) >c ) and ((a+c)>b) and ((b+c)>a) then
If (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then Writeln (' ba canh vua nhap la tam giac vuong ')
else Writeln(' ba canh vua nhap khong phai tam giac vuong')
else (' ba canh vua nhap khong phai la tam giac ');
Readln;
end.
Viết chương trình nhập vào một số nguyên A từ bàn phím in ra màn hình dòng chữ "A>10" nếu số A được nhập vào >10
in ra màn hình "A<10"nếu số A đc nhập vào <10
Câu trả lời của bạn
program bai12;
uses crt;
var
begin
clrcr;
write('Nhap mot so N= ');readln(n);
if n>10 then writeln(n,'>10');
if n<10 then writeln(n,'<10');
readln
end.
Sử dụng ngôn ngữ lập trình Pascal, viết chương trình tính chu vi và diện tích hình tròn với pi = 3.1415
Câu trả lời của bạn
* CHu vi
Program CV ;
Var D, C= interger ;
const pi= 3,14 ;
begin
Writeln ('moi ban nhap D=');
Readln ( D);
C= pi*D;
writeln ( 'Chu vi hinh tron la',C)
Readln
end.
* Diện tích*
program DT;
uses crt ;
var DT,r : real ;
const pi=3,14 ;
Begin
Writeln ('moi ban nhap r=') ;
readln (r) ;
DT=pi*r;
Writeln ('dt hinh tron la', DT);
readln
end.
*Chúc bạn hc tốt*
Cách viết chương trình pascal in ra màn hình :
+ Họ và tên
+ Số điện thoại
+ Email và địa chỉ
Câu trả lời của bạn
program bt;
uses crt;
var a,b,c:string;
begin
writeln('nhap ho va ten: '); readln(a);
writeln('nhap sdt: '); readln(b);
writeln('nhap Email & dia chi: '); readln(C);
writeln('___________________________');
writeln(ho ten la: ',a); writeln('sdt: ',b); writeln('Email & dia chi: 'c);
readln; end.
Dễ thôi:
program I_challenge_all;
uses crt;
begin
writeln('Ho va ten');
writeln('So dien thoai');
writeln('Email & Dia chi');
readln
end.
Please upvote for me!
Em có một bài Pascal muốn được các anh chị giải đáp giúp em:
Bài: Viết chương trình Pascal in ra màn hình:
- Đề bài yêu cầu:
+ Họ tên
+ Số điện thoại
+ Email
+ Địa chỉ
Câu trả lời của bạn
program ....(tên bạn đặt cho chương trình);
uses crt;
begin
clrscr;
writeln (' ten của bạn ');
writeln (' sdt của bạn ');
writeln (' email của bạn');
writeln (' địa chỉ ');
readln
end.
VCT nhập vào 2 số, hoán đổi giá trị hai số cho nhau rồi in ra màn hình
Câu trả lời của bạn
Program hoan_doi;
uses crt;
var hd p ,q: integer;
begin
clrscr;
write('nhap p ='); readln(p);
write('nhap q ='); readln(q);
write('gia tri ban dau cua p = ',p,' va ' q = ',q);
hd:=p;
p:=q;
q:=hd;
writeln;
writeln('gia tri cua p va q sau khi hoan doi la p =',p,' va q =',q);
readln;
end.
1Sửa lỗi sai
a)thongbao:='trung binh cong cua hai so x va y la:',
b)wriete ('nháp gia tri cho x='); realn(x)
Câu trả lời của bạn
a)Writeln('Moi ban nhap so x:');Read(x);
Writeln('Moi ban nhap so y:');Read(y);
Writeln('trung binh cong cua hai so x va y la:',(x+y)/2));
b)Writeln('nhap gia tri cho x:');Read(x);
Viết chương trình nhập vào từ bàn phím 1 khoảng thời gian n phút (0<n<=5)nếu nhập sai thì yêu cầu nhập lại nhập khi nào đúng in ra màn hình thông báo đếm ngược dây
Câu trả lời của bạn
program bai1;
var n:longint;
begin
repeat
write('N= ');readln(n);
until (n>0) and (n<=5);
readln
end.
Viết chương trình in trên màn hình nội dung 5 điều Bác Hồ dạy
Câu trả lời của bạn
program 5_dieu_Bac_day;
uses crt;
begin
clrscr;
writeln('5 dieu Bac Ho day:');
writeln('Dieu 1. Yeu to quoc, yeu dong bao');
writeln('Dieu 2. Hoc tap tot, lao dong tot');
writeln('Dieu 3. Doan ket tot, ki luat tot');
writeln('Dieu 4. Giu gin ve sinh that tot');
writeln('Dieu 5. Khiem ton, that tha, dung cam');
readln;
end.
chúc bạn học tốt!!!!
Ai biết viết chương trình để in ra màn hình, hình cây thông không, chỉ mình với
Mình sẽ tick cho! Huu
Câu trả lời của bạn
program cay_thong;
uses crt;
begin
clrscr;
writeln(' /\ ');
writeln(' /\/\/\/\ ');
writeln(' /\/\/\/\/\/\ ');
writeln(' /\/\/\/\/\/\/\ ');
writeln(' | | ')'
writeln(' | | ');
readln
end.
(mk đo ko đc chuẩn lắm nên chỉ vẽ đc thê thôi! Bạn thông cảm nhé!)
Viết chương trình nhập tên của em
Câu trả lời của bạn
nhập tên rồi in ra màn hình:
Mã chương trình.
program nhap_ten;
uses crt;
var n: integer;
begin
clrscr;
write('nhap ho ten cua ban :'); readln(n);
writeln('ho ten cua ban la :' ,n);
readln
end.
Viết ch/tr tính: S= 1/1*3+1/2*+1/3*5+1/4*6+...+1/n(n+2)
Với n nhập từ bàn phím
Câu trả lời của bạn
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *