bai tap kieu tep pascal

Ngày tải lên: 05/07/2014, 08:00

Ngày tải lên: 10/05/2015, 08:00

Ngày tải lên: 25/12/2014, 09:23

... 'C:\DULIEU.INP’); - Mở tệp ra để ghi; REWRITE (tep2 ); CÁC BƯỚC: THỂ HIỆN BẰNG PASCAL Nhấn F3 để mở tệp BAITAP.INP xem nội dung. Nội dung tệp BAITAP.INP Nhap vao bao nhieu so : 6 Nhap so thu ... báo; Program Bai2 ; Uses crt; Var tep: TEXT; A:ARRAY[1 100] of Integer; S,i,n:Integer; - Gán tên tệp; Begin Clrscr; ASSIGN (tep, 'D:\TP\BAITAP.INP’); - Mở tệp ra để đọc; RESET (tep) ; B i ... dãy số đó vào tệp có tên BAITAP.INP - Khai báo; Program bai1 ; Uses crt; Var tep2 : TEXT; A:ARRAY[1 100] of Integer; i,n:Integer; - Gán tên tệp; Begin Clrscr; ASSIGN (tep2 , 'C:\DULIEU.INP’); -...

Ngày tải lên: 24/06/2013, 01:25

Ngày tải lên: 17/09/2013, 12:10

... chạy chương trình trên. 4. Lưu chương trình vào đĩa với tên BAI1 .PAS. 5. Thoát khỏi Pascal. 6. Khởi động lại Turbo Pascal. 7. Mở file BAI1 .PAS. 8. Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN 9. ... cơ bản của ngôn ngữ Pascal 6.1. Từ khóa Từ khoá là các từ mà Pascal dành riêng để phục vụ cho mục đích của nó. (Chẳng hạn như: BEGIN, END, IF, WHILE, ) Chú ý: Với Turbo Pascal 7.0 trở lên, ... Các phép toán: phép so sánh (=, <, >) và các phép toán logic: AND, OR, XOR, NOT. Trong Pascal, khi so sánh các giá trị boolean ta tuân theo qui tắc: FALSE < TRUE. Giả sử A và B là...

Ngày tải lên: 26/09/2013, 23:38

Ngày tải lên: 27/01/2014, 14:20

Ngày tải lên: 01/07/2014, 01:00

... (4)(2( −−− −−− xxx xxx Lưu hành nội bộ 6 Trường THPT Tây Nam Bài tập Pascal 11 Phần 2: BÀI TẬP VỀ CÁC KIỂU DỮ LIỆU VÀ CẤU TRÚC CHƯƠNG TRÌNH PASCAL Bài 22: Hãy định nghĩa một kiểu dữ liệu mới chỉ chấp ... hai ma trận đó. Lưu hành nội bộ 7 Trường THPT Tây Nam Bài tập Pascal 11 Bài 9: Vì sao bạn phải biết và nhớ các từ khoá của ngôn ngữ Pascal? Bài 10: Hãy phân biệt từ khoá với tên chuẩn. Bài 11: ... màn hình giá trị trung bình cộng S của 3 số đó. Lưu hành nội bộ 3 Trường THPT Tây Nam Bài tập Pascal 11 Phần 6: BÀI TẬP KIỂU MẢNG (61)-Bài mảng 1: Viết chương trình nhập vào một mảng(một dãy...

Ngày tải lên: 03/07/2014, 13:20

Ngày tải lên: 06/07/2014, 01:00

... la: ',t:0:2); readln; end. Bài 2: program bai2 ; uses crt; var i,n,k:integer; x:real; a:array[1 50]of real; begin 47 Bài 12: program bai1 2; uses crt; var i,n:integer; tong:real; begin ... readln; end. III.CÂU LỆNH LỰA CHỌN CASE-OF: Bài 1: program bai1 ; uses crt; var n:byte; begin clrscr; write('n= '); 21 end. Bài 6: program bai6 ; uses crt; var hoten,sinhnhat,tenlop:string; begin ... writeln('Trung binh nhan cua ',n,' so tren la: ',t/n:0:2); readln; end. Bài 33: program bai3 3; uses crt; var i,j,n,tonguoc:integer; begin clrscr; write('n= '); readln(n); ...

Ngày tải lên: 09/07/2014, 04:20

... dÃy số đó vào tệp có tên BAITAP.INP - Khai báo; Program bai1 ; Uses crt; Var tep2 : TEXT; A:ARRAY[1 100] of Integer; i,n:Integer; - Gán tên tệp; Begin Clrscr; ASSIGN (tep2 , 'C:\DULIEU.INP); - ... tệp. Close (tep) ; Readln; END. - Đọc dữ liệu từ file BAITAP.INP; - In ra màn hình dÃy số; - Tính tổng; Writeln('Tong cua day so la : ',S); WHILE NOT(EOF (tep) ) DO Begin Readln (tep, A[i]); Writeln; ... Readln (tep, A[i]); Writeln; - Khai báo; Program Bai2 ; Uses crt; Var tep: TEXT; A:ARRAY[1 100] of Integer; S,i,n:Integer; - Gán tên tệp; Begin Clrscr; ASSIGN (tep , 'D:\TP\BAITAP.INP); - Mở tệp ra để đọc; RESET(t...

Ngày tải lên: 15/07/2014, 11:00

... báo; Program Bai2 ; Uses crt; Var tep: TEXT; S,i,n:Integer; - Gán tên tệp; Begin Clrscr; ASSIGN (tep , 'D:\TP\BAITAP.INP); - Mở tệp ra để đọc; RESET(t ep); Bài 2: Mở tệp BAITAP.INP, in ... ớc: Thể hiện bằng pascal Nhấn F3 để mở tệp BAITAP.INP xem nội dung. Nội dung tÖp BAITAP.INP - Gán tổng của dÃy = 0; Write(i:5); S:=S+i; End; readln (tep) ; end; S:=0; - DÃy ... tệp BAITAP.INP; - Đóng tệp. Close (tep2 ); Readln; END. Một số bài toán với tệp Bài 1: Đọc vào một dÃy n số nguyên (n<=100), ghi dÃy số đó vào tệp có tên BAITAP.INP - Khai báo; Program bai1 ; Uses...

Ngày tải lên: 16/07/2014, 20:00

Ngày tải lên: 28/07/2014, 17:20

... toạ độ trọng tâm của tam giác đó. Bài làm: a. TYPE DIEM=record x, y: real; End; b.program Bai1 b; Type DIEM=record x, y: real; End; Var A,B,C,G:Diem; BEGIN Clrscr; Write(’nhap toa...

Ngày tải lên: 07/08/2014, 22:23

... :=n MOD 1000; Write(' ', n DIV 100); n :=n MOD 100; BÀI TẬP PASCAL Chủ nhật, 30/11/2008 12:23 pm BÀI TẬP PASCAL Chương 1. Bài 1 Program Ca_dao; Begin Writeln('Trong dam gi...

Ngày tải lên: 14/08/2014, 09:20

Ngày tải lên: 22/10/2014, 00:00

Ngày tải lên: 21/01/2015, 12:00

Ngày tải lên: 05/02/2015, 10:28

Ngày tải lên: 30/04/2015, 03:00