Bài 3. Chương trình máy tính và dữ liệu

Lời giải :

Bài 1 :

program hotrotinhoc ;

var a : array[1..9999] of in teger ;

i,N,tong : integer ;

begin

write('Nhap gia tri cua cac phan tu');

write('Nhap do dai cua mang :'); readln(N);

for i:= 1 to N do

begin

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

end;

tong:=0;

for i:= 1 to N do

tong := tong + a[i] ;

write('Tong cac phan tu la :',tong);

readln

end.

Bài 2 :

program hotrotinhoc ;

var a : array[1..9999] of in teger ;

i,N,SLN : integer ;

begin

write('Nhap gia tri cua cac phan tu');

write('Nhap do dai cua mang :'); readln(N);

for i:= 1 to N do

begin

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

end;

SLN:= a[1] ;

if SLN < a[i] then write('Phan tu lon nhat la',SLN);

readln

end.

Câu 3 :

Đoạn khai báo : var a : array[1..15] of real ;

Chỉ số phần tử cuối thì cần viết cả chương trình thì mới có thể là nhập phần tử cuối là 100 bạn nhé.

Bài 1:

program andanh;

uses crt;

var n,i,tong: integer;

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

begin

clrscr;

tong:= 0;

write('So phan tu trong mang: ');readln(n);

for i:= 1 to n do

begin

write('So thu ',i,': ');

readln(a[i]);

end;

for i:= 1 to n do

tong:= tong + a[i];

write('Tong cac phan tu la: ',tong);

readln

end.

Bài 2:

program andanh;
uses crt;
var n,i,max:integer;
a: array[1..100] of integer;
begin
clrscr;
write('So phan tu trong mang: ');readln(n);
for i:= 1 to n do
begin
write('Phan tu thu ',i,': ');
readln(a[i]);
end;
max:= a[1];
for i:= 2 to n do
if max < a[i] then max:= a[i];
write('Vi tri cua phan tu lon nhat: ');
for i:= 1 to n do
if a[i] = max then write(i);
readln
end.

Bài 3:

a: array[86..100] of real;

Cách làm này là cách làm theo mảng nhé:

Uses crt;

var n,s:int64;

i:longint;

a:array[1..10000] of int64;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

s:=0;

for i:=1 to n do

if a[i] mod 2 = 0 then

s:=s+a[i];

writeln('Tong so chan:',s);

s:=0;

for i:=1 to n do

if a[i] mod 2#0 then

s:=s+a[i];

writeln('Tong so le:');

readln

end.

Bước 1: Xác định bài toán

-input

-output

Bước 2: Xác định thuật toán: Xây dựng các bước để giải bài toán

Bước 3: Viết chương trình: Giải chương trình trên máy tính bằng ngôn ngữ Pascal

a, 2 DIV 3-2 MOD 3+3 DIV 2-3 MOD 2 = -2

b,1/2-2*7 MOD 2-8 DIV 4*4 = -7.5

a/ True

b/ False

c/ True

d/ Phụ thuộc vào giá trị cụ thể của x

các này là câu hỏi hay câu trả lời???