Viết câu lệnh Pascal nhập dữ liệu cho `1` mảng gồm `n` phần tử
Câu 1 : hãy viết các câu lệnh trong pascal thực hiện các yêu cầu sau
a) Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực
b) Phần tử thứ năm của mảng A được gắn giá trị là 8
c) Viết câu lệnh lặp nhập giá trị cho 50 phần tử trong mảng A và in ra màn hình giá trị của 50 phần tử đã nhập
Câu 2: Viết chương trình tính tổng 10 số tự nhiên đầu tiên
Câu 3: Cho mảng A chứa các giá trị sau
A | 17 | 13 | 20 | 10 | 15 |
I | 3 | 7 | 5 | 6 | 7 |
a) Xác định các giá trị của A[2];A[4];A[7];A[9] là bao nhiêu
b) Cho các câu lệnh sau:
A[2]:= A[3] + A[5];
A[9]:= A[6] + A[7];
Dựa vào bảng trên hãy tính giá trị các phần tử A[2], A[9]
Giúp em với ạ chiều nay thi rồi huhu
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
Khi báo mảng Học sinh gồm 50 phần tử, các phần tử thuộc kiểu số nguyên <Viết câu lệnh nhập dữ liệu cho các phần tử của mảng Học sinh>
Help mik zới=))
#include <bits/stdc++.h>
using namespace std;
long long i,n,a[50];
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
return 0;
}
Câu 6. Chuyển các câu lệnh sau sang Pascal
a. Nhập dữ liệu cho biến a
b. Nhập dữ liệu cho biến mảng a gồm 15 phần tử.
b. Hiển thị dữ liệu cho phần tử thứ 5của mảng A
c. Nếu a lớn hơn hoặc bằng 10 thì tăng a lên 100 đơn vị.
d. Nếu a lớn hơn hoặc bằng 10 thì tăng a lên 10 đơn vị sau đó gán vào biến T ngược lại hiển thị a ra màn hình.
Câu 6. Chuyển các câu lệnh sau sang Pascal
a. Nhập dữ liệu cho biến a
b. Nhập dữ liệu cho biến mảng a gồm 15 phần tử.
b. Hiển thị dữ liệu cho phần tử thứ 5của mảng A
c. Nếu a lớn hơn hoặc bằng 10 thì tăng a lên 100 đơn vị.
d. Nếu a lớn hơn hoặc bằng 10 thì tăng a lên 10 đơn vị sau đó gán vào biến T ngược lại hiển thị a ra màn hình.
1- Viết chương trình nhập giá trị . cho 1 mảng 1 chiều gồm 10 phần tử có kiểu dữ liệu nguyên. In ra giá trị các phần tử trong mảng 1 kí tự trắng.
2- Viết chương trình nhập giá trị. Cho 1 mảng 1 chiều A gồm 10 phần tử có kiểu dữ liệu nguyên , theo thứ tự từ nhỏ đến lớn. Sau đó in ra giá trị của mảng đó theo thứ tự từ lớn đến nhỏ.
Gợi ý câu 2: Sử dụng lệnh lặp Down to ...do
Giúp e vs ạ >×<
1. Trong pascal viết câu lệnh nhập giá trị cho mảng Diemtin gồm 42 phần tử thuộc kiểu dữ liệu số thực?
2. Trong pascal viết câu lệnh tính điểm trung bình cho các bạn học sinh trong lớp trong đó điểm tb= ( Diemtoan+ Diemvan)/2; lớp có 36 hs)
Để nhập dữ liệu cho mảng a gồm 100 phần tử ra màn hình ta dùng câu lệnh: *
A.For i:= 1 to 100 do writeln(a[i]);
B For i:= 1 to 100 do readln(a[i]);
Bài tập 3. Nhập vào một mảng số nguyên và in ra các phần tử là số nguyên tố có trong mảng.
- Viết các lệnh:
+ Nhập, Xuất dữ liệu
+ Khai báo biến
+ Câu lệnh điều kiện
+ Vòng lặp For.. do, While.. do
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
//chuongtrinhcon
bool ktnt(long long x)
{
if (x<=1) return(false);
for (int i=2; i*i<=x; i++)
if (x%i==0) return(false);
return(true);
}
//chuongtrinhchinh
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) if (ktnt(a[i])==true) cout<<a[i]<<" ";
return 0;
}
Câu 1: Viết chương trình tổng của 100 số lẻ đầu tiên
Câu 2: Hãy viết các câu lệnh, kahi báo theo yêu cầu sau:
a) Khai báo mảng A gồm 5 phần tử thuộc kiểu dữ liệu số thực
c) Khai bào mảng dãy số gồm 50 phần tử theo dữ liệu số nguyên
d) Nhập giá trị cho phần tử thứ 2 trong mảng điền
(mink đag cần gấp)
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,t,dem:integer;
begin
clrscr;
t:=0;
for i:=1 to 200 do
if i mod 2=1 then t:=t+i;
writeln('Tong cua 100 so le dau tien la: ',t);
readln;
end.
Câu 2:
a) var a:array[1..5]of real;
b) var a:array[1..50]of integer;
c) readln(a[2]);