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.
Viết câu lệnh Pascal nhập dữ liệu cho `1` mảng gồm `n` phần tử
Uses crt;
var n,i: integer;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i]:3);
readln;
end.
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;
}
Viết chương trình thực hiện các yêu cầu sau :
a,Khai báo biến mảng DTB có số phần tử bằng sĩ số lớp em , các phần tử có kiểu dữ liệu số thực
b,Nhập dữ liệu cho mảng DTB từ bàn phím
c,Tính tổng giá trị các phần tử trong mảng
d,Thông báo kết quả ra màn hình
Giúp mình với , làm bằng pascal nhé!
'''python
a. DTB = []
siso = int(input("Nhập số lượng học sinh trong lớp: "))
b. for i in range(siso):
diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))
DTB.append(diem)
c. tong=sum(DTB)
d. print(f"Tổng điểm của lớp là: {tong}")'''
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;
}
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
viêt các câu lệnh theo yêu cầu. a, khai tên báo biến mảng cannang, với chỉ số đầu là 10, chỉ số cuối là 100,kiểu dữ liệu số thực. b, viết lệnh gán giá trị 20 cho phần tử thứ 7 của mảng A
a) var cannang:array[10..100] of real;
b) a[7]:=20;
Để nhập dữ liệu từ bàn phím cho mảng A có 10 phần tử là số nguyên ta dùng lệnh nào sau đây?
A. For i:=1 to 10 do Readln(A[i]);
B. For i:= 1 to 10 do Writeln(A[i]);
C. Dùng 10 lệnh Readln(A);
D. Cả (A), (B), (C) đều sai.
Để nhập dữ liệu từ bàn phím cho mảng A có 10 phần tử là số nguyên ta dùng lệnh lặp với số lần biết trước là For..do, câu Readln (A[i]) là nhập dữ liệu từ bàn phím cho từng phần tử.
Đáp án: A
