K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

22 tháng 4 2019

Lời giải :

a) sai vì trước else không được chứa dấu ;

b) đúng

c) sai vì kết thúc x:=x+5 phải có dấu ;

d) sai vì trong vòng lặp for không có kiểu dữ liệu số thực

a) if a>b then max:=a; else max:=b;b) var X: Array[5..10] Of Real; c) X:=10; while X:=10 do X := X+5; d) for  i:=1.5 to 10 do m:=m + 1;e) if a>b then max:=a else max:=b;f) var X: Array[5.5..10] Of Real; g) X:=10; while X>10 do X := X+5; h) for  i:=1.5 to 10 do m:=m + 1;III. Hãy viết các câu lệnh, khai báo theo 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ứ  5 của mảng A được gán giá trị là 8.C. Khai báo mảng dayso gồm...
Đọc tiếp

a) if a>b then max:=a; else max:=b;

b) var X: Array[5..10] Of Real;

c) X:=10; while X:=10 do X := X+5;

d) for  i:=1.5 to 10 do m:=m + 1;

e) if a>b then max:=a else max:=b;

f) var X: Array[5.5..10] Of Real;

g) X:=10; while X>10 do X := X+5;

h) for  i:=1.5 to 10 do m:=m + 1;

III. Hãy viết các câu lệnh, khai báo theo 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ứ  5 của mảng A được gán giá trị là 8.

C. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên.

D. Nhập giá trị cho phần tử thứ 2 trong mảng diem.        

IV. Bài tập

 Viết chương trình thực hiện các yêu cầu sau:

a.    Nhập điểm văn và điểm toán của n học sinh trong một lớp (n nhập từ bàn phím)

b.    Tính điểm trung bình của mỗi học sinh (kết quả lấy 1 chữ số thập phân)

help với mai ktr ;-;

 

1

III:
A: var a:array[1..50]of real;

B: a[5]:=8;

C: var a:array[1..50]of integer;

D: readln(dem[2]);

19 tháng 4 2022

a) Var X : Array [1;50] of integer;  (sai cách khai báo mảng)

-> Var X : Array [1..50] of integer; 
b) Var X : Array [5..50.5] of real; (sai vì chỉ số là số thực)

-> Var X : Array [5..50] of real;
c) For i: 1,5 to 10 do write ('A'); (sai vì giá trị đầu là số thực)

-> For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A'); (sai vì sau to có dấu ; và sau i: thiếu dấu =)

->For i:= 1 to 10 do write ('A')
e) While x:=10 do x:=x+5; (điều kiện sai, đây là phép gán không phải điều kiện)

-> While x=10 do x:=x+5;

For i:=1 to 10 do writeln('A'); Đúng

Var x; array[5...10]of char; Sai

Sửa lại: var x:array[5..10]of char;

19 tháng 4 2021

câu 1:

a)for i:=17 to 109 do writeln('a');

b)for i:=1 to 10 do x:=x+1;

c)s:=7;

while s<=15 do

begin

n:=n+s;

s:=s+1;

end;

d)var a:array[1..100] of real;

câu 2:

program tihn_tong;

uses crt;

var s,i:integer;

begin

clrscr;

i:=1;s:=1000;

while i<=21 do

begin

s:=s+1000+i;

i:=i+1;

end;

writeln(s);

readln;

end.

câu 3:

cú pháp của lệnh for...to...do:

for<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<công việc>

cú pháp của lệnh while...do:

while<điều kiện>do<công việc>

câu 4:

cú pháp khai báo biến mang trong chương trình pascal:

khai báo trực tiếp:

var <biến mảng>:array[chỉ số]of <kiểu dữ liệu>

khai báo gián tiếp:

type <biến mang> =array[chỉ số]of <kiểu dữ liệu>

 

Câu 1: 

a) for i:=17 to 109 do 

  writeln('a');

a: Sai bởi chỉ số đầu lớn hơn chỉ số cuối

b: Sai vì chỉ số đầu, chỉ số cuối là số thực

c: Sai vì chỗ end thiếu chấm phẩy

d: Sai vì chỉ số đầu lớn hơn chỉ số cuối

e: Sai vì chỉ số đầu và chỉ số cuối là số thực

d: Đúng

30 tháng 4 2022

cảm ơn bạn nhayeu

 

10 tháng 5 2021

a) thiếu dấu ; ở cuối 

sửa: for i:=1 to 10 do writeln ('A');

b) sau X ko phải có; mà có : từ 5.. 10 có 2 dấu chấm dư 1 dấu

sửa: var X: array [5..10] of char;

b) thiếu  dấu ; ở cuối câu lệnh

sửa: X:=10; while X=10 do X:=X+5;

d) giá trị đầu và gia trị cuối của câu lệnh phải là só nguyên

sửa: for i:=1 to 10 do writeln('A');

10 tháng 5 2021

chắc ko

 

23 tháng 3 2018

d,e ko sai

24 tháng 3 2018

a, sai vì dấu "," phải được thay bằng ".."

b, c, sai vì chỉ số đầu và cuối đều phải kiểu nguyên

d, sai vì chỉ số đầu phải nhỏ hơn chỉ số cuối

e, đúng