Phần mềm học tập

Chương trình sẽ in ra nội dung sau:

1

2

3

4

5

6

7

8

9

10

Bước 1: s←0; i←1;

Bước 2: s←s+i;

Bước 3: i←i+1;

Bước 4: Nếu i<=50 thì quay lại bước 2

Bước 5: Xuất s

Bước 6: Kết thúc

n

S = 1+2+...+50

   = ( 1+50 ) \(\times\) 25

   = 1275

a) Tổng của 50 số tự nhiên đầu tiên

Xác định bài toán: 

-Input: 50 số tự nhiên đầu tiên

-Output: Tổng của 50 số đó

Mô tả thuật toán:

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=n thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

b) Kiểm tra a là số chẵn hay số lẻ

Xác định bài toán

-Input: Số a

-Output: Kiểm tra xem a là số chẵn hay số lẻ

Mô tả thuật toán

-Bước 1: Nhập a

-Bước 2: Nếu a chia hết cho 2 thì a là số chẵn

không thì a là số lẻ

-Bước 3: Kết thúc

uses crt;

var a:integer;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

until a>0;

if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va 5')

else writeln(a,' khong chia het cho 3 va 5');

readln;

end.

Program HOC24;

var a: integer;

begin

write('Nhap a : '); readln(a);

if (a mod 3=0) and (a mod 5=0) then write(a,' chia het cho 3 va 5') else write(a,' khong chia het cho 3 va 5');

readln

end.

uses crt;

var a:integer;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

until a>0;

if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va chia het cho 5')

else writeln(a,' khong chia het cho 3 va 5');

readln;

end.

Câu 1:

uses crt;

var n,s: integer;

a: array [1..100] of integer;

begin

clrscr;

write('Nhap n= '); readln(n);

for i:=1 to n do begin

write('nhap so thu ',i,' :'); readln(a[i]);

end;

for i:=1 to n do s:=s+i;

writeln('Tong la: ',s);

readln;

end.

Program tinhtong ;

Uses crt;

Var N,tong:interger:

A:array[1..n]of integer;

Begin

Writeln ('nhap N:'); Readln (N);

tong:=0;

Fortnite i:=1to n do tong:= tong +i;

Writeln ('tong la'),tong)

Readln

End.

uses crt;

var i, n, max, min, tong: integer;

tb: real;

tich: longint;

a: array [1..100] of integer;

begin

write(' nhap so n:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do

tong := tong + a[i];

tb:= tong/n;

max:= a[1]; min:=a[1];

for i:=2 to n do

begin

if a[i] > max then max:= a[i];

if a[i] < min then min:= a[i];

end;

tich:=1;

for i:=1 to n do

tich:= tich*a[i];

writeln(' tong cac so vua nhap la:', tong);

writeln(' tich cac so vua nhap la:', tich);

writeln(' trung binh cac so vua nhap:', tb:4:2);

writeln(' so lon nhat:', max);

writeln(' so nho nhat:', min);

readln

end.

Program Cau2;

Uses crt;

Var i,n,max,min: integer;

a: array[1..100] of integer;

Begin

Clrscr;

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= ‘, max);

Writeln(‘So nho nhat la min= ‘, min);

Readln;

End.

C1:

Program Max_Min; Uses crt; Var a,b,c,d:integer; max,min:integer; Begin clrscr; write('nhap so thu nhat :'); readln(a); max:=a; min:=a; write('nhap so thu hai :'); readln(b); if maxb then min:=b; write('nhap so thu ba :'); readln(c); if maxc then min:=c; write('nhap so thu tu :'); readln(d); if maxd then min:=d; writeln('So lon nhat la :',max); writeln('So nho nhat la :',min); readln; End.

c2:

Program viet_ra_so_lon_nhat_va_nho_nhat;
Uses crt;
Const n=10;
Var a,max,min,i:integer;
Begin
clrscr;
for i:=1 to n do
Begin
Write('Nhap so thu ',i,' :');
readln(a);
If i=1 then
begin
max:=a;
min:=a;
end;
if maxa then min:=a;
End;
writeln('so lon nhat la :',max,' So nho nhat la:',min);
readln;
End.

Var z:array[1..1000] of longint;

n, i, min:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

min:= z[1];

End;

For i:=1 to n do begin if min>z[i] then min:=z[i];

End.;

Writeln('So nho nhat la ',min);

End.

Bạn thử kiểm tra lại nhé!

Var z:array[1..1000] of longint;

n, i, max:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

max:= z[1];

End;

For i:=1 to n do begin if max<z[i] then max:=z[i];

Writeln('So lon nhat la ',max);

End.

Bạn thử kiểm tra trên Pascal nhé.

uses crt;

var i,n,m:longint;

a:array[1..1000]of integer;

begin

write('nhap do dai cua day so:');readln(n);

for i:=1 to n do begin

write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);

if i=1 then m:=a[1]

else if a[i]>m then m:=a[i];

end;

write('gia tri lon nhat trong day so la:',m);

readln

end.