Cho dãy A gồm n số nguyên a1 a2 ...an n.Hãy in ra màn hình dãy A và tính tổng giá trị các phần tử chẵn của dãy đó
Bài 3: Thông tin của Nhân viên gồm: Mã Nhân viên, Họ tên, Năm sinh, Lương
1. Hãy khai báo kiểu bản ghi NhanVien gồm các thông tin trên
2. Khai báo mảng NV có n nhân viên. Nhập danh sách n nhân viên từ bàn phím và in danh sách học sinh đã nhập ra màn hình, mỗi nhân viên trên một dòng.
3. Ghi thông tin của nhân viên từ mảng NV vào tệp NhanVien.Dat, đọc tệp NhanVien.Dat và in dữ liệu ra màn hình.
Lưu ý: Khuyến khích sinh viên viết dưới dạng chương trình con.
Câu 24. Trong pascal, cho đoạn chương trình:Assign(f1,‟Input.dat‟); Reset(f1);
While not eoln(f1) do
Begin
Read(f1,x);Write(x, ‘ ');
End;
Close(f1);
A. Xuất dữ liệu trong tệp Input.dat ra màn hình; B. Ghi dữ liệu vào tệp Input.dat;
C. Gắn tên tệp Input.Dat cho biến tệp f1; D. Mở tệp Input.dat để đọc;
Câu 25. Đoạn chương trình sau thực hiện: Assign(f1,‟Input.dat‟); Assign(f2,‟Output.dat‟); Reset(f1); Rewrite(f2);
While not EOF(f1) do
Begin
Read(f1,x); Write(f2,x,’ ’);
End;
Close(f1);
Close(f2);
Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên cùng một dòng.
B.Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên nhiều dòng.
Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Input.dat trên nhiều dòng.
Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Intput.dat trên cùng một dòng.
Câu 26. Cho tệp B13.TXT chỉ có một dòng „abcdefgh‟ và chương trình sau: Var f:text; S1:string[3]; S2:string;
Begin
Assign(f,’B13.TXT’);
Reset(f);
Read(f,S2,S1);
Readln
End.
Sau khi chạy chương trình trên thì S1,S2 có kết quả là
a. S1=’absdefgh’; S2=’ ’
b. S1=’ ’; S2=’abcdefgh’
c. S1=’abcde’;S2=’fgh’
d. Cả a,b,c sai
cho một dãy số gồm N phần tử(N< hoặc =100)giá trị từng phần tử là số thực,thực hiện các nhiệm vụ sau.
a) nhập từ bàn phím số phần tử và giá trị của phần tử
b)in ra các phần tử là số nguyên tố
c) tính tổng và trung bình cộng của các phần tử chẵn của dãy
d) in các kết quả ra màn hình
cho tệp songuyen.txt gồm n phần tử ,các số được nhập cách nhau một dấu cách.Tìm những số chẵn trong dãy số trên rồi ghi vào tệp ketqua.txt
Viết chương trình tìm và in ra màn hình những số có 3 chữ số vừa chia hết cho 2, vừa chia hết cho 3, vừa chia hết cho 5. Chú ý in 5 số trên 1 dòng.
Nhập số nguyên dương N(N<=100).viết chương trình tính tổng các số chia hết cho 5 trong phạm vi của N và lưu hay ghi trong tệp 'tong5.Txt' sao cho dòng đầu ghi số nguyên N dòng 2 ghi kết quả vừa tính đc
cho một hình chữ nhật ABCD,cạnh AB bằng a,cạnh BC=b.a,b là các số nguyên dương trong khoảng từ 1 đến 100.
một điểm M chạy trong đoạn BC với BM=X. X là số nguyên dương trong khoảng từ 0 đến b . Điểm N chạy trong đoạn CD với CN=x
tính giá trị lớn nhất và nhỏ nhất của diện tích tam giác AMN và X khi M,N lưu động.
Viết chương trình nhập từ bàn phím 1 bảng các số nguyên gồm 4 hàng 4 cột đưa các giá trị vừa nhập ra màn hình theo bảng. Tính tổng các phần tử trên 2 đường chéo. Đưa các phần tử có hàng chẵn cột lẻ ra màn hình. Ai giúp nhanh hộ e với !!!