Pascal viết chương trình đưa ra tất cả từ có thể phát sinh ra từ một tập các chữ cái
Những câu hỏi liên quan
viết chương trình nhập một xâu từ bàn phím đưa ra màn hình xâu đó sau khi đã chuyển tất cả các kí tự đầu của mỗi từ thành chữ cái in hoa
15 tháng 3 2022 lúc 19:00
Sử dụng ngôn ngữ lập trình Pascal để viết chương trình sau :
Hãy nhập vào bàn phím một xâu S rồi đưa ra màn hình tất cả các từ của xâu đó.
Định nghĩ về từ : Từ là một dãy các kí tự liên tiếp cách nhau bởi dấu cách
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
begin
if st[i]=' ' then writeln
else write(st[i]);
end;
readln;
end.
Đúng 0
Bình luận (1)
thực hiện viết chương trình bằng ngôn ngữ lập trình pascal thực hiện in ra màn hình các chữ cái từ a đến z
program InChuCai;
var ch: char;
begin
for ch := 'a' to 'z' do
writeln(ch);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập một xâu S, in ra tất cả các chữ cái và số lượng chữ cái trong xâu, in ra tất cả các chữ số và số lượng chữ số trong xâu.
Viết chương trình đưa ra màn hình các kí tự trong bảng chữ cái từ Aà Z.
uses crt;
var i:char;
begin
clrscr;
for i:='A' to 'Z' do
write(i:4);
readln;
end.
Đúng 1
Bình luận (0)
Viết Chương Trình Pascal Cho Nhập N Nguyên , Dương Từ Bàn Phím . In ra màn hình : -Các Ước Của N Không Kể N -Xác Định N Có Phải Là Số Hoàn Hảo -Tất Cả Số Hoàn Hảo Trong Phạm Vi Từ 1-> N
program bai_toan;
var
N, i, sum: integer;
begin
write('Nhap so N: ');
readln(N);
write('Cac uoc cua ', N, ' khong ke ', N, ' la: ');
for i := 1 to N - 1 do
if N mod i = 0 then
write(i, ' ');
writeln;
sum := 0;
for i := 1 to N - 1 do
begin
if N mod i = 0 then sum := sum + i;
end;
if sum = N then writeln(N, ' la so hoan hao')
else writeln(N, ' khong phai la so hoan hao');
writeln;
writeln('Tat ca so hoan hao trong pham vi 1 -> ', N, ' la:');
for i := 1 to N do
begin
sum := 0;
for j := 1 to i - 1 do
begin
if i mod j = 0 then sum := sum + j;
end;
if sum = i then writeln(i);
end;
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 1 xâu kí tự từ bàn phím và đưa xâu đó ra màn hình là các chữ cái in hoa
Program Xau;
Uses crt;
Var St: String;
i: longint;
Begin
Clrscr;
Write('Nhap xau: '); Readln(St);
For i:=1 to length(St) do
St[i] := Upcase(St[i]);
Write('St = ',St);
Readln
End.
Đúng 0
Bình luận (0)
Viết một chương trình thực hiện các công việc sau:
- Nhập từ bàn phím 1 dãy A gồm N số nguyên (với N được nhập từ bàn phím).
- Sắp xếp dãy số đó theo chiều giảm dần.
- In ra mà hình tất cả các phần tử chẵn
- Tìm và đưa ra chỉ số của phần tử có gía trị = K (với K là số nguyên và được nhập từ bàn phím).
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[1000];
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
sort(a+1,a+n+1);
for (i=n; i>=1; i--) cout<<a[i]<<" ";
return 0;
}
Đúng 0
Bình luận (0)
Cho xâu S bất kì chứa các kí số và chữ cái tiếng Anh. Viết chương trình:
a. Đưa ra màn hình tất cả các chữ cái có trong S.
b. Đưa ra màn hình dãy số con tăng liên tiếp dài nhất có trong xâu S.
Ví dụ: S='ab3v5e72f4a7g91b2: có 3 dãy con tăng là (3,5,7); (2,4,7,9);(1,2). Dãy con tăng dài nhất là (2,4,7,9).
Mọi người giúp em với em cần gấp .Em cảm ơn ạ!
#include <bits/stdc++.h>
using namespace std;
string st,a[1000];
int i,d,dem,j;
bool kt;
int main()
{
getline(cin,st);
d=st.length();
a[1]=st[0];
dem=1;
for (i=0; i<=d-1; i++)
{
kt=true;
for (j=1; j<=dem; j++)
if (a[j]==st[i]) kt=false;
if (kt==true)
{
dem++;
a[dem]=st[i];
}
}
for (i=1; i<=dem; i++) cout<<a[i]<<" ";
return 0;
}
Đúng 1
Bình luận (0)