Download miễn phí Giáo án Tin - Bài thực hành số 2
Bài tập 2.
Viết chương trình tìm phần tử lớn nhất
của mảng và đưa ra màn hình chỉ số và
giá trị của phàn tử tìm được.Nếu có
nhiều phần tử có cùng giá trị lớn nhất
thì đưa ra phần tử có chỉ số nhỏ nhất.
Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phí
Tóm tắt nội dung tài liệu:
GIÁO ÁN SỐ 2.Bài thực hành số 2.
Bài 1
Tìm hiểu cách sử dụng lệnh và kiểu dữ
liệu mảng 1 chiều qua chương trình có
sẵn.
• Program sum1;
• Uses crt;
• Const nmax=100;
• Type
• Myarray=array[1..nmax] of integer;
• Var A:Myarray;
• s,n,k,i:integer;
• Begin
• Clrscr;
• Randomize;
• Write(‘Nhap n=‘);
• readln(n);
• For i:=1 to n do
• A:=random(300)-random(300);
• For i:=1 to n do
• Write(A:5);
• Writeln;
• Write(‘Nhap k=‘);
• Readln(k);
• s=0;
• For i:=1 to n do
• If a mod k=0 then s:=s+a;
• Write(‘tong can tinh la:’s);
• Readln;
• End.
• Thêm lệnh nhằm sửa đổi chương trình để
thực hiện đếm số phần tử âm của mảng.
• Posi:=0;neg:=0;
• If a>0 then Posi:=Posi+1
• else if a<0 then neg:=neg+1;
• Write(Posi:4,neg:4);
Bài tập 2.
Viết chương trình tìm phần tử lớn nhất
của mảng và đưa ra màn hình chỉ số và
giá trị của phàn tử tìm được.Nếu có
nhiều phần tử có cùng giá trị lớn nhất
thì đưa ra phần tử có chỉ số nhỏ nhất.
• Chương trình:
• Program bai2;
• Uses crt;
• Const nmax=100;
• Type mang=array[1..nmax]of integer;
• Var
• A:mang; n,i,j,max:integer;
• Begin
• Write(‘Nhap so luong phan tu cua day so’);
• Readln(n);
• For i:=1 to n do
• Begin
• Write(‘phan tu thu’,i,’=’);
• Readln(A);
• End;
• j:=1;
• for i:=2 to n do
• if A>A[j] then j:=i;
• Write(‘chi so:’,j,’gia tri:’,A[j]:4);
• Readln;
...