Tiêu đề câu hỏi
Nội dung câu hỏi
m.n giải hộ em với
bài 1.viết chương trình nhập vào số nguyên n,xuất ra dãy số từ 1 đến n.
Câu trả lời của bạn
Program cai_j_cung_duoc;
Uses crt;
Var i,n integer;
Begin
Write(“nhap n “);read(n);
For i=1 to n do
Writeln(i);
Readln;
End.
tại sao khi tải pascal về máy lúc sử dụng bấm các kí hiệu như "( )=" không được ạ
Câu trả lời của bạn
Chị đổi kiểu gõ keyboard của máy tính từ English (United Kingdom) sang English (United States) thử xem ạ.
tải FreePascal IDE thử xem;
viết chương trình tạo 1 tệp lưu trữ n số nguyên chỉ lưu trữ số chẵn ko lưu số lẻ với n nhập từ bàn phím
hướng dẫn giúp em với ạ
Câu trả lời của bạn
cho tệp VANBAN.Txt chứa các số nguyên, mỗi số cách nhau 1 dấu cách và không kết thúc bằng kí tự xuống dòng
a, hãy đếm xem trong tệp có bao nhiêu số nguyên dương và đưa kq ra màn hình
b, tệp SO.TxT chứa tất cả các số chia hết cho 3 có trong tệp VANBAN.Txt mỗi số cách nhau một dấu cách và kt bằng kí tự xuống dòng
m.n trả lời mình ngay được không ạ
Câu trả lời của bạn
a.
var f:text;
a:array[1..100] of integer;
n,i,d:integer;
begin
assign(f,'vanban.txt');
reset(f);
read(f,n);
for i:=1 to n do
read(f,a[i]);
for i:=1 to n do
if a[i]>0 then inc(d);
assign(f,'kq.out');
rewrite(f);
write(f,d);
close(f);
end.
1.In ra câu ' chao' ở cột 20 dòng thứ 5 .sử dụng tệp 'vao.inp' , 'ra.out'.
=> sao kết quả ra thì chữ 'chao' lại vẫn ở đầu dòng???? ai giúp vs
uses crt;
var f1,f2: text;
begin
clrscr;
assign(f1,'vao.inp'); reset(f1);
assign(f2,'ra.out'); rewrite(f2);
Gotoxy(20,5);
write(f2,'chao'); close(f1); close(f2);
end.
Câu trả lời của bạn
cho chương trình:
Var f: text;
Begin
Assign(f,'khối11.txt');
Rewrite(f);
Write(f,105*2-134);
Close(f);
End.
sau khi thực hiện chương trình, tập tin 'khối11.txt' có nội dung như thế nào?
Câu trả lời của bạn
ý tưởng của mỗi chương trình trong 1 bài
Câu trả lời của bạn
khi nào ta nên khai báo biến mảng gián tiếp thông qua định nghĩa kiểu ?
Câu trả lời của bạn