intTypePromotion=1
zunia.vn Tuyển sinh 2024 dành cho Gen-Z zunia.vn zunia.vn
ADSENSE

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.

Chia sẻ: Paradise4 Paradise4 | Ngày: | Loại File: PDF | Số trang:9

95
lượt xem
5
download
 
  Download Vui lòng tải xuống để xem tài liệu đầy đủ

Tham khảo tài liệu '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.', công nghệ thông tin, tin học văn phòng phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả

Chủ đề:
Lưu

Nội dung Text: 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.

  1. GIÁO ÁN SỐ 2. Bài thực hành số 2.
  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.
  3. • 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;
  4. • Write(‘Nhap n=‘); • readln(n); • For i:=1 to n do • A[i]:=random(300)-random(300); • For i:=1 to n do • Write(A[i]:5); • Writeln; • Write(‘Nhap k=‘); • Readln(k); • s=0;
  5. • For i:=1 to n do • If a[i] mod k=0 then s:=s+a[i]; • Write(‘tong can tinh la:’s); • Readln; • End.
  6. • 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[i]>0 then Posi:=Posi+1 • else if a[i]
  7. 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.
  8. • 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
  9. • Begin • Write(‘phan tu thu’,i,’=’); • Readln(A[i]); • End; • j:=1; • for i:=2 to n do • if A[i]>A[j] then j:=i; • Write(‘chi so:’,j,’gia tri:’,A[j]:4); • Readln;
ADSENSE

CÓ THỂ BẠN MUỐN DOWNLOAD

 

Đồng bộ tài khoản
3=>0