Lập chương trình qua thuật toán sau:
B1: Nhập a,b (a,b≠0)
B2: S1←2ab
B3:S2←\(\frac{\pi a^2b}{2}\)
B4:S←S1+S2
B5:Chuyển S vào màn hình
b1: nhập 1 dãy a từ bàn phím . tính tổng các giá trj của dãy a.
b2 : cho 2 xâu s1 và s2, viết đoạn chương trình chèn xâu s1 vào giữa s2, tại vị trí len(s2)\\2. in kết quả ra màn hình
b3: cho xâu s, viết đoạn lệnh trích ra xâu con của s bao gồm 3 ks tự đầu tiên của s
b4 ; viết chương trình kiểm tra xâu s có chứa chữ số không. thông báo " s có chứa chữ số" hoặc " s kh chứa chữ số nào "
help me, ty 3>
Cho thuật toán sau:
- B1: A :=0;b :=1;
- B2: Nếu A≤ 30 thì chuyển qua B3, ngược lại A > 30 thì chuyển B4;
- B3:i :=b+2 ; A:=A+b; và quay lại B2
- B4: In ra kết quả và kết thúc thuật toán
Program Bai9;
Uses CRT;
Var A,b:integer;
Begin
A:= 0, J:=1;
While A<= 30 do
Begin i := b +2;A := A + b;End;
Writeln(A);
Readln;
End.
a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu (1,0 điểm)
b) Viết chương trình sử dụng câu lệnh lặp chưa biết trước thể hiện thuật toán trên.
a: Thực hiện 5 vòng lặp
T=35
j=11
b: Câu lệnh chưa biết trước là while-do, và chương trình của bạn chỉ cần sửa lại chỗ j:=1 thành b:=1 mà thôi
Cho đoạn chương trình sau: s1:='abcd' s2:='acb'
if length(s1)>length(s2) then write(s2) else write(s1);
Đoạn chương trình trên đưa ra màn hình kết quả nào sau đây:
A. Abcdacb B. Acb C. Abcd D. Acbabcd
A. Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu? B. Viết chương trình bằng pascal để mô tả thuật toán đó. B1: S ! 20, n! 1; B2: nếu S>5 hoặc = 5, chuyển b4 B3: n ! N + 1, S ! S - n và quay lại b2 B4: thông báo S và kết thúc thuật toán.
uses crt;
var s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while s>=5 do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
a/. Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu? b/. Viết chương trình bằng Pascal để mô tả thuật toán đó. B1: S ← 20, n←1; B2: Nếu S ≥ 5, chuyển B4. B3: n ←N + 1, S ← S - n và quay lại B2. B4: Thông báo S và kết thúc thuật toán.
Thuật toán sẽ chạy 5 vòng lặp
Kết thúc thì S=0
Trong ngôn ngữ lập trình pascal đoạn chương trình sau thực hiện công việc gì S1 := 'hong'; S2 := 'hoa'; i :=pos(S2, S); While i 0 do Begin Delete(S,i,2); Insert(S1,S,i); i := pos (S2,S); End;
Sửa đề: S:='hong'
Đoạn chương trình thực hiện chương trình chèn xâu s1 vào xâu s
Cho biết thực hiện thuật toán giá trị của a = ? thực hiện bao nhiêu vòng lặp? Viết chương trình
B1. a ← 0; i:=1;
B2. a = > 10 chuyển b4
B3. i:=i+1;a← a:= a+i;
B4. Thông báo a và kết thúc thuật toán
Cho thuật toán sau:
B1: Nhập N
B2: i <- 1
B3: S<- 0
B4: Nếu i> N thì sang B7 ngược lại qua B5
B5: S<-S+i
B6: i<-i+1 rồi quay lại B4
B7: Đưa ra S rồi kết thúc
a) Minh hoạ thuật toán với N=6
b) Ý nghĩa của thuật toán là gì ?
a) Minh họa thuật toán :
i | 1 | 2 | 3 | 4 | 5 | 6 |
S | 1 | 3 | 6 | 10 | 15 | 21 |
b) Ý nghĩa của thuật toán : Tính tổng từ 1 đến N
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’;
insert(s1 , s2 , 2);
write(s1);
Kết quả in ra màn hình là:
A. ‘a123bc’
B. ‘1abc23’
C. ‘123’
D. ‘abc’