Một số chương trình pascal khó

Bạn đang xem: Top 13+ Bài Tập Lập Trình Pascal Nâng Cao

Thông tin và kiến thức về chủ đề bài tập lập trình pascal nâng cao hay nhất do Truyền hình cáp sông thu chọn lọc và tổng hợp cùng với các chủ đề liên quan khác.

... cùng phương, chéo nhau nếu hai vec tơ đó không cùng phương.3. Một số bài toán về tính khoảng cách Bài toán 1: Tính khoảng cách h từ một điểm M đến đường thẳng d đi qua điểm M0 và có vtcp ur.Cách ... cùng phương , 't t⇒Bước 3: Phương trình đường thẳng d là AB Bài tập: 1. Viết phương trình chính tắc và phương trình tham số nếu có của các đường thẳng sauđây:a. Đi qua điểm M(2;0;-1) và ... tham số t và t’).Bước 3: A,B,C thẳng hàng ,AB AC⇒uuur uuur cùng phương. Giải hệ phương trình, 0AB AC = uuur uuurTìm được t và t’.Bước 4: Đường thẳng AB là đường thẳng d. Bài toán...

ngobaochauvodich said:

Bài giải tham khảo
uses crt;
type vitri=array[1..3] of integer;
so=array[1..9] of string;
var s,dem,i:integer;
Vt:vitri;
doc:so;
procedure docso(n:integer);
begin
doc[1]:='mot'; doc[2]:='hai'; doc[3]:='ba'; doc[4]:='bon';
doc[5]:='nam'; doc[6]:='sau'; doc[7]:='bay'; doc[8]:='tam'; doc[9]:='chin';
write(doc[n]);
end;
begin
clrscr;
repeat
write('Nhap so can doc ');readln(s);
until (s>=100) and (s<=999);
for i:=1 to 3 do
begin
vt[4-i]:=s mod 10;
s:=s div 10;
end;
docso(VT[1]);
write(' tram ');
if VT[2]=1 then write('') else docso(VT[2]);
if VT[2]=0 then write('le ') else write(' muoi ');

docso(VT[3]);

readln;
end.

Bấm để xem đầy đủ nội dung ...

Mình đã thử test bài bạn nhưng có 1 số chỗ như sau:
-Nhâp 1 với 2 chữ số không được
VD: Nhap vào 16 thì bắt nhập lại

star.love said:

Mã:

  var
 a: array[1..100] of integer;
  k,n: integer;
  dem,i: integer;
 begin
  readln(n);
  k:=n;
   while n<>0 do
   begin
    dem:=dem+1;
    a[dem]:=n mod 10;
    n:=n div 10;
  end;

 if dem=1 then
      begin

       case k of
    1: write('mot ');
    2: write('hai');
    3: write('ba');
    4: write( 'bon');
    5:write( 'nam');

    end;
    end else
     if dem=2 then
      begin
       k:=a[2];
        case k of
    1: write(' muoi ');
    2: write('hai muoi');
    3: write('ba muoi');
    4: write( 'bon muoi');
    5:write( 'nam muoi');

          end;
      k:=a[1];
       case k of
    1: write(' mot ');
    2: write(' hai ');
    3: write(' ba ');
    4: write( ' bon');
    5:write( ' nam ');
              end;
      end;
readln;

         end.

Mình code hơi dài còn bài 2 thì bạn add nick yahoo mình mình sẽ sent cho bạn !!

Bấm để xem đầy đủ nội dung ...

Bài thứ 2 có hơn bài trước ở phần nhập nhưng mà:
- Nhập số có 3 chữ số thì không xuất kết quả ra màn hình

Xóa Đăng nhập để Gửi

• 

  Nguyễn Thu Huyền Câu 1: Hãy tạo biến và viết chương trình để giải bài toán sau: 1 người di chuyển, trong khoảng thời gian đầu là t1(h) người đó di chuyển bằng xe máy với vận tốc đều là V1( km/h). Sau đó người đó đi bộ vời vận tốc đều là V2( km/h), trong t2 (phút). Hãy tính quãng đường S mà người đó đi được đi được. Câu 2: Viết chương trình vẽ hình vuông theo 2 cách khác nhau?giúp mình với ạ:(((

  Thích · Phản hồi · 4 · 23/12/21

• 

  Hợp Nguyễn

  câu 1: viết chương trình  3 số nguyên tính d=(a*a+b+c)/3

  Thích · Phản hồi · 1 · 1 giờ trước

• 

  Quỳnh Phương

  làm sao để chuyển pascal sang pythoon ạ

  
  

  Thích · Phản hồi · 0 · 21:19 15/12

• 

  Phùng bá Tâm SP

  Bài 1: dem:=dem+1;

         end;

        if dem=15 then

         begin

          dem:=0;

          writeln;{in duoc 15 so thi xuong dong};

         end;

       end;

  chỗ này mình không hiểu lắm đề bài kêu là:

  Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số chẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số.

  Nhưng tại sao lại có dem:=dem+1; rồi thêm if dem =15.

  ai biết trả lời giúp mik với:(

   

   

   

   

   

   

   

   

   

   

  Thích · Phản hồi · 0 · 12:31 30/08
  • 

    Bong Bóng Xà Phòng

    Giá trị 'dem' ở đây chỉ nhằm mục đich là để hiển thị 15 số/1 dòng thôi bạn, khi dòng đủ 15 số rồi thì nó sẽ xuống dòng và reset 'dem' về 0 để đếm số trên dòng mới

    Thích · Phản hồi · 0 · 13:47 30/08

• 

  Nguyễn Bảo Cảm ơn vì đoạn code! nhưng có phần vẫn chưa tối ưu!

  Thích · Phản hồi · 0 · 16/12/21

Bạn nên đọc

• 
  Monster sẽ phát hành tai nghe không dây Nokia Purity Pro
• 
  Cách làm bánh trôi bánh chay ngũ sắc đẹp mắt trong Tết Hàn Thực
• 
  HDTV laser hỗ trợ 3D có giá 6.000 USD
• 
  10 sự thật về loài gián Đức nguy hiểm và khó tiêu diệt đang hoành hành tại các chung cư Việt Nam
• 
  Cách chat riêng tư bằng zhoo.app
• 
  Cách lựa chọn router chơi game

Lập trình

• 
  Trắc nghiệm Tin học 10 bài 3
• 
  Microsoft .NET Framework là gì, và tại sao nó được cài đặt trên PC?
• 
  Những điều bạn cần biết về Bootstrap 5
• 
  Cách trở thành kiến trúc sư phần mềm trong năm 2022: Họ là ai? Cần những kỹ năng gì? Lương bao nhiêu?
• 
  Công thức tính diện tích hình lập phương, thể tích khối lập phương
• 
  Công thức tính diện tích hình thang: thường, vuông, cân
• 
  29 câu hỏi phỏng vấn PHP trình độ căn bản và câu trả lời
• 
  Cách dùng Bootstrap 5 chính xác trong Next.js
• 
  Cách sử dụng GPT-3 trong OpenAI Playground

Xem thêm

Lập trình

• 
  SQL
• 
  Python
• 
  Cơ sở dữ liệu
• 
  AngularJS
• 
  Cấu trúc dữ liệu và giải thuật

• 
  Công nghệ
  • 
    Ứng dụng
  • 
    Hệ thống
  • 
    Game - Trò chơi
  • 
    iPhone
  • 
    Android
  • 
    Linux
  • 
    Nền tảng Web
  • 
    Đồng hồ thông minh
  • 
    Chụp ảnh - Quay phim
  • 
    macOS
  • 
    Phần cứng
  • 
    Thủ thuật SEO
  • 
    Kiến thức cơ bản
  • 
    Raspberry Pi
  • 
    Dịch vụ ngân hàng
  • Lập trình
  • 
    Dịch vụ công trực tuyến
  • 
    Dịch vụ nhà mạng
  • 
    Nhà thông minh
• 
  Download
  • 
    Ứng dụng văn phòng
  • 
    Tải game
  • 
    Tiện ích hệ thống
  • 
    Ảnh, đồ họa
  • 
    Internet
  • 
    Bảo mật, Antivirus
  • 
    Họp, học trực tuyến
  • 
    Video, phim, nhạc
  • 
    Mail
  • 
    Lưu trữ đám mây
  • 
    Giao tiếp, liên lạc, hẹn hò
  • 
    Hỗ trợ học tập
  • 
    Máy ảo
• 
  Tiện ích
• 
  Khoa học
  • 
    Khoa học vui
  • 
    Khám phá khoa học
  • 
    Bí ẩn - Chuyện lạ
  • 
    Chăm sóc Sức khỏe
  • 
    Khoa học Vũ trụ
  • 
    Khám phá thiên nhiên
• 
  Điện máy
  • 
    Tủ lạnh
  • 
    Tivi
  • 
    Điều hòa
  • 
    Máy giặt
• 
  Cuộc sống
  • 
    Kỹ năng
  • 
    Món ngon mỗi ngày
  • 
    Làm đẹp
  • 
    Nuôi dạy con
  • 
    Chăm sóc Nhà cửa
  • 
    Kinh nghiệm Du lịch
  • 
    Halloween
  • 
    Mẹo vặt
  • 
    Giáng sinh - Noel
  • 
    Tết 2023
  • 
    Quà tặng
  • 
    Giải trí
  • 
    Là gì?
  • 
    Nhà đẹp
  • 
    TOP
  • 
    Phong thủy
• 
  Video
  • 
    Công nghệ
  • 
    Cisco Lab
  • 
    Microsoft Lab
  • 
    Video Khoa học
• 
  Ô tô, Xe máy
  • 
    Giấy phép lái xe
• 
  Làng Công nghệ
  • 
    Tấn công mạng
  • 
    Chuyện công nghệ
  • 
    Công nghệ mới
  • 
    Trí tuệ nhân tạo (AI)
  • 
    Anh tài công nghệ
  • 
    Bình luận công nghệ
  • 
    Tổng hợp
• 
  Học CNTT
  • 
    Quiz công nghệ
  • 
    Microsoft Word 2016
  • 
    Microsoft Word 2013
  • 
    Microsoft Word 2007
  • 
    Microsoft Excel 2019
  • 
    Microsoft Excel 2016
  • Hàm Excel
  • 
    Microsoft PowerPoint 2019
  • 
    Microsoft PowerPoint 2016
  • 
    Google Sheets - Trang tính
  • 
    Photoshop CS6
  • 
    Photoshop CS5
  • 
    HTML
  • 
    CSS và CSS3
  • Python
  • Học SQL
  • 
    Lập trình C
  • 
    Lập trình C++
  • 
    Lập trình C#
  • 
    Học HTTP
  • 
    Bootstrap
  • 
    SQL Server
  • 
    JavaScript
  • 
    Học PHP
  • 
    jQuery
  • 
    Học MongoDB
  • 
    Unix/Linux
  • 
    Học Git
  • 
    NodeJS

Giới thiệu | Điều khoản | Bảo mật | Hướng dẫn | Ứng dụng | Liên hệ | Quảng cáo | Facebook | Youtube | DMCA

Giấy phép số 362/GP-BTTTT. Bộ Thông tin và Truyền thông cấp ngày 30/06/2016. Cơ quan chủ quản: CÔNG TY CỔ PHẦN MẠNG TRỰC TUYẾN META. Địa chỉ: 56 Duy Tân, Dịch Vọng Hậu, Cầu Giấy, Hà Nội. Điện thoại: 024 2242 6188. Email: [email protected]. Chịu trách nhiệm nội dung: Lê Ngọc Lam.

Bản quyền © 2003-2022 QuanTriMang.com. Giữ toàn quyền. Không được sao chép hoặc sử dụng hoặc phát hành lại bất kỳ nội dung nào thuộc QuanTriMang.com khi chưa được phép.