Violet
Baigiang

Tìm kiếm theo tiêu đề

Tin tức cộng đồng

5 điều đơn giản cha mẹ nên làm mỗi ngày để con hạnh phúc hơn

Tìm kiếm hạnh phúc là một nhu cầu lớn và xuất hiện xuyên suốt cuộc đời mỗi con người. Tác giả người Mỹ Stephanie Harrison đã dành ra hơn 10 năm để nghiên cứu về cảm nhận hạnh phúc, bà đã hệ thống các kiến thức ấy trong cuốn New Happy. Bà Harrison khẳng định có những thói quen đơn...
Xem tiếp

Tin tức thư viện

Chức năng Dừng xem quảng cáo trên violet.vn

12087057 Kính chào các thầy, cô! Hiện tại, kinh phí duy trì hệ thống dựa chủ yếu vào việc đặt quảng cáo trên hệ thống. Tuy nhiên, đôi khi có gây một số trở ngại đối với thầy, cô khi truy cập. Vì vậy, để thuận tiện trong việc sử dụng thư viện hệ thống đã cung cấp chức năng...
Xem tiếp

Hỗ trợ kĩ thuật

  • (024) 62 930 536
  • 0919 124 899
  • hotro@violet.vn

Liên hệ quảng cáo

  • (024) 66 745 632
  • 096 181 2005
  • contact@bachkim.vn

Tìm kiếm Bài giảng

Bài thực hành 1. Làm quen với Turbo Pascal

Wait
  • Begin_button
  • Prev_button
  • Play_button
  • Stop_button
  • Next_button
  • End_button
  • 0 / 0
  • Loading_status
Tham khảo cùng nội dung: Bài giảng, Giáo án, E-learning, Bài mẫu, Sách giáo khoa, ...
Nhấn vào đây để tải về
Báo tài liệu có sai sót
Nhắn tin cho tác giả
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Lê Thiện Minh (trang riêng)
Ngày gửi: 14h:26' 17-02-2010
Dung lượng: 63.0 KB
Số lượt tải: 107
Số lượt thích: 0 người
Bài tập tổng hợp
Viết chương trình nhập 1 số nguyên nhỏ hơn 1000. Cho biết các số hàng trăm, hàng đơn vị, hàng chục của số đã nhập.
Vd nhập 216 trăm = 2 chuc = 1 đơn vị = 6
Hướng dẫn :
Hàng đơn vị =số dư của số nhập khi chia cho 10
Hàng trăm = kết quả của phép chia nguyên giữa số nhập và 100
Hàng chục= số dư của số nhập khi chia cho 100, chia tiếp số dư này cho 10 lấy kết quả số nguyên
Thể hiện bằng các câu lệnh pascal
Hàng đơn vị = so mod 10
Hàng trăm = so div 100
Hàng chục = (so mod 100) div 10
Các lệnh chính của chương trình
repeat
write(`nhap so : `);readln(so);
if so >=1000 then writeln(`nhap lai so nho hon 1000`);
until so <1000;
tram:= so div 100;
donvi:= so mod 10;
chuc:=(so mod 100) div 10;
writeln(so:5,` co don vi,chuc,tram la ’,donvi:3,chuc:3,tram:3);
2)Viết chương trình nhập 1 số nguyên n. Xuất n số nguyên tố từ 1 (không tính số 1).
Vd nhập 7 xuất 2 3 7 9 11 13 17
Hướng dẫn :
Dùng vòng lặp repeat … until để xuất các số nguyên tố cho đến khi nào số lượng số nguyên tố lớn hơn hay bằng n thì ngưng xuất.
Cách xác định số nguyên tố đã biết trong bài tập trước.
Các lệnh chính của chương trình
writeln(so,` so nguyen to tu 1 la `);
n:=2;dem:= 0;
repeat
i:=2;
while n mod i<>0 do i:= i + 1 ;
if n=i then
begin
write(n:5); dem:= dem + 1 ;
end;
n:= n + 1 ;
until dem >=n;
Bài tập về nhà
Viết chương trình nhập 2 số a và b (a < b). Xuất các số nguyên tố từ a đến b
Viết chương trình nhập các hệ số a, b của phương trình bậc nhất có dạng ax + b = 0.
Tính các nghiệm của phương trình
468x90
 
Gửi ý kiến