Chủ đề / Chương

Bài học

Rapton321
Rapton321

Rapton321
Học tại trường Chưa có thông tin
Đến từ Thành phố Hồ Chí Minh , Chưa có thông tin
Số lượng câu hỏi 0
Số lượng câu trả lời 28
Điểm GP 3
Điểm SP 30

Người theo dõi (1)

blitzcrank
blitzcrank

Đang theo dõi (0)


Rapton321
Rapton321

Câu trả lời:

công dụng của lệnh assign: khởi tạo 1 file( hay text :v) , thường đi chung với câu lệnh rewrite,reset,... và close(đóng file lại) VD: 1 bài cơ bản về assign var: f,g:text; n,t:integer; begin assign(f,' BAI1.INP');reset(f); assign(g,' BAI2.OUT');rewrite(g); read(f,n); t:=n+10; write(g,t); close(f);close(g); end.
Rapton321

Câu trả lời:

bài 2

uses crt; var n,i,c,l:longint; a:array[1..1000]of integer; begin write('nhap n:');readln(n); c:=0; l:=0; for i:=1 to n do begin write('nhap vi tri thu ',i,' :');readln(a[i]); if i mod 2=0 then c:=c+a[i] else l:=l+a[i]; end; writeln('tong cac so o vi tri chan la :',c); writeln('tong cac so o vi tri le la:', l); readln end;
Rapton321

Câu trả lời:

bài 1

uses crt; var i,t,n:longint; begin write('nhap n:');readln(n); t:=0; for i:=1 to n do if i mod 2<>0 then t:=t+i else t:=t-i; write('Tong la: ',t); readln end.
Rapton321

Câu trả lời:

uses crt;

var i,t:integer;

begin

t:=1;

for i:=1 to 30 do t:=t*i;

write(t);

readln

end.
Rapton321

Câu trả lời:

uses crt;

var i,m:longint;

a:array[1..1000]of integer;

begin

for i:=1 to 10 do begin

write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);

end;

writeln('cac so chan trong mang la:');

for i:=1 to 10 do

if a[i]mod 2=0 then writeln(a[i]);

readln

end.
Rapton321

Câu trả lời:

uses crt;

var i,n,m:longint;

a:array[1..1000]of integer;

begin

write('nhap do dai cua day so:');readln(n);

m:=0;

for i:=1 to n do begin

write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);

m:=m+a[i];

end;

write(' tong cua day so la:',m);

readln

end.
Rapton321

Câu trả lời:

uses crt;

var i,n,m:longint;

a:array[1..1000]of integer;

begin

write('nhap do dai cua day so:');readln(n);

for i:=1 to n do begin

write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);

if i=1 then m:=a[1]

else if a[i]<m then m:=a[i];

end;

write('gia tri NHO nhat trong day so la:',m);

readln

end.
Rapton321

Câu trả lời:

uses crt;

var n:byte;

begin

write('Nhap thu can dich :'); readln(n);

if n=1 then write('Chu nhat la Sunday');

if n=2 then write('Thu 2 la Monday');

if n=3 then write('Thu 3 la Tuesday');

if n=4 then write('Thu 4 la Wednesday');

if n=5 then write('Thu 5 la Thursday');

if n=6 then write('Thu 6 la Friday');

if n=7 then write('Thu 7 la Saturday');

if (n>7)or(n<1) then ('ko hop ly');

readln

end.
Rapton321

Câu trả lời:

uses crt;

var i,n,m,n:longint;

a:array[1..1000]of integer;

begin

write('nhap do dai cua day so:');readln(n);

n:=0;m:=0;

for i:=1 to n do begin

write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);

if a[i]>0 then n:=n+1

else if a[i]<0 then m:=m+1;

end;

write('co ',n,' so duong va ',m,' so am trong day so');

readln

end.