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.
Phát biểu nào dưới đây là sai?
A. Xâu là một dãy các kí tự trong bảng mã ASCII. Kiểu xâu là một kiểu dữ liệu có cấu trúc.
B. Có thể xem mỗi xâu có cấu trúc giống như một mảng một chiều mà mỗi phần tử của mảng là một kí tự trong bảng mã ASCII, được đánh chỉ số từ 1.
C. Số lượng kí tự trong một xâu chính là độ dài của xâu.
D. Các phép toán thao tác với xâu tương tự như các phép toán thao tác với mảng.
quá đơn giản
bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>100) then writeln('ban da nhap sai,yeu cau ban nhap lai');
until (n>0) and (n<=100);
for i:=1 to n do
begin
write('a[',i.']='); readln(a[i]);
end;
{--------------xuat-day--------------}
for i:=1 to n do
write(a[i]:4);
{-------------xu-ly----------------}
dem:=0;
for i:=1 to n do
if a[i] mod 2=1 then inc(dem);
writeln('so luong so le trong day la: ',dem);
readln;
end.
bài 2:
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
write('a[',i,']='); readln(a[i]);
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.
bài 3:
uses crt;
var st1,st2:string;
d,d1:integer;
begin
clrscr;
write('nhap xau thu 1:'); readln(st1);
write('nhap xau thu 2:'); readln(st2);
d:=length(st1);
d1:=length(st2);
if d>d1 then writeln('xau thu 1 dai hon xau thu 2');
if d<d1 then writeln('xau thu 2 dai hon xau thu 1');
if d=d1 then writeln('hai xau co do dai bang nhau');
readln;
end.
xin lỗi bạn , mình xin sửa lại bài 2 như sau:
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
dem1:=0;
for i:=1 to n do
if (a[i]>a[i-1]) and (a[i]>a[i+1]) then dem1:=dem1+1;
dem2:=0;
for i:=1 to n do
if (a[i]<a[i-1]) and (a[i]<a[i+1]) then dem2:=dem2+1;
writeln(dem1);
writeln(dem2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double a[100],t1,t2,k;
int i,n,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cin>>k;
dem=0;
for (i=1; i<=n; i++) if (a[i]==k) dem++;
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
if (a[i]>0) t1+=a[i];
else t2+=a[i];
}
cout<<dem<<endll;
cout<<t1<<" "<<t2;
return 0;
}
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap 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] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Câu 1: Phát biểu nào dưới đây về kiểu mảng một chiều là phù hợp?
A. Là một tập hợp các số nguyên
B. Độ dài tối đa của mảng là 255
C. Là một dãy hữu hạn các phần tử cùng kiểu
D. Mảng không thể chứa kí tự
C