Các bạn cho mình hỏi cách lập chương trình pascal cho một số đề sau. mình cần gấp trong tối nay . Càng cụ thể càng tốt nhé, nếu khôg thì các bạn trình bày thành 1 bài cho mình tham khảo nha. Thank Câu 1: Nhập vào 1 xâu kí tự ( giả sử các từ cách nhau đúng 1 kí tự trống ) . Đếm số từ trong câu. Câu 2: Nhập vào 1 mảng 2 chiều có kích thước 3x4 . Tính tổng các phần tử của mảng. Câu 3: Viết chương trình sinh ngẫu nhiên 1 dãy số gồm n số ( n>=200) Các số có giá trị tuyệt đối <=200. Tính tổng các số chia hết cho 3
Hix, mình cũng ngu không kém. Mấy bài này khó quá. Mấy cái phần xâu với mảng mình học chẳng hiểu gì cả May mà hôm KT HK lại đụng phải bài không đến nỗi: Nhập từ bàn phím 3 số nguyên n \leq a \leq b. Lập trình hiển thị tất cả bội của n trong [a ; b]
Bài 1: Mã: PROGRAM Bai_tap; USES CRT; VAR s:string; i,j:integer; BEGIN Clrscr; Write('Nhap vao mot xau ki tu : '); Readln(s); j:=1; For i:=1 to length(s) do If s[i]=' ' then j:=j+1; Writeln('So tu trong xau ki tu : ',j); READLN; END. Cách giải trên áp dụng với điều kiện hai đầu xâu không có kí tự trống.
Bài 2: Mã: PROGRAM Bai_tap; USES CRT; VAR A:array[1..3,1..4] of integer; i,j,s:integer; BEGIN Clrscr; For i:=1 to 3 do For j:=1 to 4 do Begin Write('Nhap phan tu A[',i,',',j,'] = '); Readln(A[i,j]); End; s:=0; For i:=1 to 3 do For j:=1 to 4 do s:=s+A[i,j]; Writeln('Tong cac phan tu cua mang : ',s); READLN; END.
Bài 3: Mã: PROGRAM Bai_tap; USES CRT; VAR i,j,n,s,x:integer; BEGIN Clrscr; Randomize; Write('Nhap so n : '); Readln(n); Writeln(' Day so sinh ngau nhien : '); s:=0; For i:=1 to n do Begin x:=Random(n); Write(x,' '); If x mod 3 = 0 then s:=s+x; End; Writeln; Writeln(' Tong cac so chia het cho 3 : ',s); READLN; END.
Anh làm ngắn hơn Cái bài này học có thể tổng quát,không cần phải là kiểu 3x4: program bai_tap; var i,j:integer; s,m,n:real; a:array[1..100,1..100]of real; begin write('nhap gia tri cua m va n:'); readln(m,n); s:=0; For i:=1 to m do For j:=1 to n do begin write('a[',i,j,']='); readln(a[i,j); s:=s+a[i,j]; end; writeln('gia tri tong cac phan tu cua mang la:',s:8:0); readln; END.