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.
program xau_so_hoc;
uses crt;
procedure xu_li;
var s, x, xau : string; i, tinh, j, f1, f2 : integer;
begin
write('nhap xau: '); readln(xau);
i:=1;
repeat
x:=''; s:='';
while (xau[i] in ['0'..'9']) and (i<=length(xau)) do
begin
x:=x+xau[i];
inc(i); {tim dau '+' hoac tru '-'/tim so truoc dau do}
end;
for j:=i+1 to length(xau) do
if xau[j] in ['0'..'9'] then s:=s+xau[j] else
break;
val(x,f1); val(s,f2); {chuyen doi xau thanh so};
if xau[i]='-' then
tinh:=tinh +(f1-f2) else
if xau[i] = '+' then
tinh:=tinh + (f1+f2);
{tinh toan voi xau va dau da tim duoc}
i:=j;
until i>=length(xau);
write('xau da tinh toan: ', tinh);
end;
{chuong trinh chinh}
begin
clrscr;
xu_li;
end.
có một số chỗ mình chú thích hơi sai
đại khái ý tưởng của mình là như này nè:
đầu tiên mình tìm dấu - hoặc + và tìm số đầu tiên trước dấu cộng hoặc trừ (vòng while đầu tiên), rồi tìm số sau dấu đó (vòng for sau đó).
rồi chuyển thành xâu, nếu - thì cộng biến với hiệu 2 số, nếu + thì mình cộng với hiệu hai số
lưu ý: vòng while chỉ dùng cho lần lập đầu tiên thôi, để tránh sai số những vòng repeat tiếp theo thì dùng vòng for để tìm số tiếp theo dấu vừa tìm được (số sau dấu vừa tìm được đã tìm ở vòng for lần lặp trước);
ví dụ để dễ mường tượng nè
1+1
i sẽ bằng 1 để tránh trường s[0] sẽ bị exit code
vòng repeat 1:
tìm được vị trí dấu + và số trước dấu + (vòng while);
tìm được số 1 (vòng for);
vòng for: sẽ được chạy từ giá trị của biến i+1 (do i đang ở vị trí của dấu vừa tìm được, không phải số nên nếu chạy từ i lúc cộng dồn sẽ là +1 chứ không phải là 1);
+ nếu như s[j] mà không phải số thì mình dừng vòng for lại (break)
đổi 2 số '1' thành kiểu số
biến 'tính' =0
tính:=tính + (1+1) ( vì đây là dấu +); => tính=2;
biến i sẽ bằng giá trị cuối của biến j nhận được
tức là bằng 3
mà 3 = độ dài của xâu nên vòng repeat dừng lại
vòng lặp của repeat chỉ có 1 vòng
#include <bits/stdc++.h>
using namespace std;
int main()
{
string st;
int d,i,dem=0;
getline(cin,st);
d=st.length();
for (int i=0; i<d; i++)
if (st[i]=' ') dem++;
cout<<dem+1;
return 0;
}
Luư ý đây không phải là dạng viết chương trình nên sẽ không chạy được trên pascal nhé!
1)
Var i, n: Integer;
For i:=3;
If n mod i = 0 then write('n chia het cho 3');
2)
Var m, n: integer;
i: real;
For n:= 7;
If m mod 7 = 0 then write('m chia het cho 7') else write('m khong chia het cho 7');
If 0 < i <= 100 then write('i la so duong khong vuot qua 100');
Luư ý đây không phải là dạng viết chương trình nên sẽ không chạy được trên pascal nhé!
1)
Var i, n: Integer;
For i:=3;
If n mod i = 0 then write('n chia het cho 3');
2)
Var m, n: integer;
i: array[0..100] of real;
For n:= 7;
If m mod 7 = 0 then write('m chia het cho 7') else write('m khong chia het cho 7');
If i <> 0 then write ('i la so duong khong vuot qua 100');
sai rồi kìa bạn
ngôn ngữ C++ mà sao bạn lại viết bằng pascal
Bài 1:
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
writeln('Chu so hang don vi cua ',a,' la: ',a mod 10);
readln;
end.
Bài 2:
uses crt;
var s:ansistring;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i] in ['A'..'Z'] then inc(dem);
writeln('So luong chu so trong chuoi ky tu ',s,' la: ',dem);
readln;
end.
Sử dụng hàm Upcase
Vd
var
s:string;
begin
readln(s);
s:=upcase(s);
write(s);
readln
end.