Khai báo mảng 1 chiều lưu trữ 300 phần tử số nguyên có giá trị trong khoảng từ -255 đến 255 bằng cách trực tiếp và gián tiếp
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
8 tháng 5 2020
uses crt;
const fi='lop11a1.txt';
var f1:text;
st:array[1..255]of string;
n,i,dem,d,j,dem1,kq:integer;
a:shortstring;
b:array[1..1000]of integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap so ban trong Group:'); readln(n);
for i:=1 to n do
begin
write('Ban thu ',i,' ten:'); readln(st[i]);
end;
writeln(f1,'Danh sach cac ban trong Group la: ');
for i:=1 to n do
writeln(f1,'Ban thu ',i,' ten la: ',st[i]);
dem:=0;
for i:=1 to n do
begin
a:=st[i];
d:=length(a);
dem1:=0;
for j:=1 to d do
if a[j]=' ' then dem1:=dem1+1;
begin
inc(dem);
b[dem]:=dem1+1;
end;
end;
kq:=0;
for i:=1 to dem do
kq:=kq+b[i];
writeln(f1,'So tu trong day ten vua nhap la: ',kq);
close(f1);
readln;
end.
8 tháng 5 2020
const fi='daysoZ.inp';
fo='vd1.txt';
var f1,f2:text;
z:array[1..100]of integer;
i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eoln(f1) do
begin
inc(dem);
read(f1,z[dem]);
end;
for i:=1 to dem do
write(f2,z[i]:4);
close(f1);
close(f2);
end.
DD
1
8 tháng 5 2020
uses crt;
const fi='bt.txt';
var f1:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
writeln('Day so la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
close(f1);
readln;
end.
7 tháng 5 2020
N phải nhỏ hơn hoặc bằng 250 chứ bạn
uses crt;
var a:array[1..250]of integer;
i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]<0 then t:=t+a[i];
writeln(t);
readln;
end.
7 tháng 5 2020
Cách 1: Có sử dụng
uses crt;
var st:string;
{---------------------------chuong-trinh-con--------------------------}
procedure cd(var s:string);
var i,d:integer;
begin
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
for i:=1 to d do
write(s[i]);
end;
{--------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
write('Nhap xau:'); readln(st);
cd(st);
readln;
end.
Cách 2: Không sử dụng
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
for i:=1 to d do
write(st[i]);
readln;
end.
QT
1
Trực tiếp: Var a:array[1..300]of byte;
Gián tiếp:
Type: mang=array[1..300]of byte;
Var a:mang;