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 hotrotinhoc;
var max,i,n: integer;
x,s: string;
d: array['A'..'z'] of integer;
l: char;
begin
readln(x);
for i:=1 to length(x) do
inc(d[x[i]]);
for i:=1 to length(x) do if pos(x[i],x)=i then s:=s+x[i];
for l:='A' to 'z' do if d[l]<>0 then
if d[l]>max then max:=d[l];
for l:='A' to 'z' do if d[l]=max then begin write(l); break; end;
readln;
end.
Màn hình sẽ in ra giá trị: 3 7
Giải thích:
Câu lệnh if i mod 3=0 then j:=j+1 có nghĩa là j bằng một cộng với số các số chia hết cho 3.
k:=k+j có nghĩa là k bằng bốn cộng với giá trị của j đã tìm.
Cú pháp: For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>
VD
For i:=1 to 10 do
a:=a+1;
*Hoạt động
Câu lệnh lặp thực hiện lặp lại vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn
Quá trình giải 1 bài toán
- Xác định bài toán:
+ Xác định thông tin đã cho (Input)
+ Thông tin cần tìm (Output)
- Mô tả thuật toán: Tìm cách giải bài toán và diễn tả bằng các lệnh cần phải thực hiện
- Viết chương trình: Dựa vào mô tả thuật toán, ta viết chương trình bằng một ngôn ngữ lập trình
2/
Cú pháp While<điều kiện> do<câu lệnh>
Ví dụ
While a>20 do a:=a+1;
Hoạt động
- Bước 1. Kiểm tra điều kiện
- Bước 2. Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện câu lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại Bước 1
Cú pháp: Var <tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>]of <kiểu dữ liệu>
Trong đó:
-Chỉ số đầu, chỉ số cuối thường là các số nguyên hoặc các kí tự
-Kiểu dữ liệu thường là kiểu số nguyên hoặc kiểu kí tự/chuỗi
Vd: Var a:array[1..100]of integer;
program tinhtong;
uses crt;
var t,i: integer;
s: longint;
begin
write ( 'Nhap so t' ); readln (t);
s:= 0;
for i:=1 to t do s:=s+i;
writeln ('tong la:' );
readlln
end.
Program Tinhtongsonguyen;
Uses Crt;
Var i, t, Tong: Integer;
Begin
Clrscr;
Writeln('Nhap so t='); Readln(t);
Tong:=0
For i:=1 to t do
Tong:=Tong+i;
Writeln('Ket qua',Tong);
Readln;
End.
a,Thứ tự sắp xếp đúng là 9,10,1,12,11,3,4,5,6,7,8,2,13,14
b,Công dụng để tính tổng các số chẵn lớn hơn 50
program tim_max_min ;
var i,n,max,min:integer;
a:array[1..100] of integer;
begin
write('nhap do dai cua day so n=');readln(n);
writeln('nhap cac phan tu cua day so :');
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max :=a[1] ; min:=a[1];
for i:=2 to n do
begin
if max <a[i] then max :=a[i];
if min >a[i] then min :=a[i];
end;
writeln('so lon nhat la:',max);
writeln('so be nhat la:',min);
readln
end.
bạn cho mình hỏi thuật toán của chương trình này là gì?
