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.

Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên
Mua vip
NT
Nguyễn Trần Tuấn Anh
24 tháng 4 2018

Cho chương trình sau ( bằng Turbo Pascal):

Begin {1}

Write('Tong cac so chan lon hon 50 la:',t);{2}

While i<50 do{3}

Begin{4}

If i mod 2=0 then{5}

t:=t+i;{6}

i:=i+1;{7}

end;{8}

Uses crt;{9}

Var i, t:integer;{10}

i:=1; t:=0;{11}

Clrscr;{12}

Readln;{13}

End.{14}

â) Chương trình trên bị sai về vị trí các dòng \(\left\{2\right\}\), \(\left\{9\right\}\), \(\left\{10\right\}\), \(\left\{11\right\}\), \(\left\{12\right\}\), hãy sắp xếp lại các vị trí của các dòng này để được chương trình đúng.

b) Hãy cho biết công dụng của chương trình trên
#Tin học lớp 8
3
VL
Vũ lê nam anh
2 tháng 5 2021

a,Thứ tự sắp xếp đúng là 9,10,1,12,11,3,4,5,6,7,8,2,13,14

b,Công dụng để tính tổng các số chẵn lớn hơn 50

Đúng(0)
VL
Vũ lê nam anh
2 tháng 5 2021

nhỏ nha bạn nhầm:<<

 

Đúng(0)
BP
Bình Phan
5 tháng 5 2021

Uses crt; Var i,t: integer; Begin Clrscr; t:=0; i:=0; t:=t+i; i:=i+1; Begin Readln; Write('tong các so chan nho hon 50 la',t); End; End. A)if mod 2=0 then B)while i
#Tin học lớp 8
0
PN
Phú Nhuận Nguyễn
18 tháng 3 2021

uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
#Tin học lớp 8
3
PN
Phú Nhuận Nguyễn
18 tháng 3 2021

Giúp mình vs

Đúng(0)
NH
Nguyễn Hoàng Long
18 tháng 3 2021

a) tính tổng các số chẵn từ 1 đến 50
b)
  (3): lệnh viết kq của ct trên.
  (4):lệnh in ra màn hình kq của bài toán.
  (5):lệnh kết thúc ct.

Đúng(0)
BP
Bình Phan
5 tháng 5 2021

Uses crt; Var i,t: integer; Begin Clrscr; t:=0; i:=0; t:=t+i; i:=i+1; Begin Readln; Write('tong các so chan nho hon 50 la',t); End; End. While i
#Tin học lớp 8
2
NL
Nguyễn Lê Phước Thịnh
5 tháng 5 2021

Đề bài yêu cầu gì vậy bạn?

Đúng(0)
BP
Bình Phan
5 tháng 5 2021

Đề yêu cầu sắp xếp lại .a) if mod a=0 then.b) while i<50 do

 

 

 

Đúng(0)
L
Lovers
28 tháng 9 2016
Câu hỏi hay

Tìm và sửa tất cả các lỗi sai trong chương trình sau :

program Hà 0908

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');

readln;

end.
#Tin học lớp 8
9
HD
Hà Đức Thọ
Admin
28 tháng 9 2016

Những chỗ sai được in đậm em nhé

program Hà 0908

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');

readln;

end.

Sửa lại như sau:

program Ha_0908;

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);

readln;

end.

Đúng(0)
NX
Nguyễn Xạ Điêu
1 tháng 10 2016

sai nhu nay 

Hà 0908 ko ';'

writeln... =;4;2'); => ko co dau ' nay nha 

Đúng(0)
BC
Ba chú heo con
20 tháng 5 2020

Program tong_so_le;

Uses crt;

Var S,N,I:Integer;

Xữa chương trình sau( nếu sai)

Begin

Clrscr;

Write('Nhap N ');Readln(N);

S:=0;

For I:=1 to N do If (I mod 2<>0) then

S:=S+I;

Writeln('Tong cac so le la ',S); Readln;

End.

Giup mik nha các bn

Thanks
#Tin học lớp 8
0
GC
Gãy Cánh GST
8 tháng 5 2023
Tìm và sửa lỗi trong chương trình pascal sau:               Uses crt;               Var i, n, t : integer;               Begin        clrscr;        write('Nhap so n = '); readln(n);        i := l; t := 0;        while i <= n do begin       t := t + i;      i := i + l;      write('Tong = ', t);             Readln;           ...
Đọc tiếp

Tìm và sửa lỗi trong chương trình pascal sau:

               Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;

      write('Tong = ', t);

             Readln;

             end.
#Tin học lớp 8
1
ML
Minh Lệ
8 tháng 5 2023

         Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;   | sửa: i:=1; t:=0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;       | Sửa: i:=i+1;

-> Thiếu. Thêm: End;

      write('Tong = ', t);

             Readln;

             end.

Đúng(2)
BJ
Bùi Jessica
5 tháng 5 2020
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ; End. Program Bai _ tap _ day _ so ; If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ; a:array [ 1 . . 100 ] of Integer ; Begin Clrscr ; write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ; For i : = 1 to n do readln ( a [ i ] ) ; For...
Đọc tiếp

Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;
#Tin học lớp 8
0
TT
Triệu Thị Thu Trang
27 tháng 2 2020

Cho vis duj sau trong Pascal:

Uses crt ;

var i: Interger

Begin

clrscr ;

i:=1

while : i < 14 do begin Writeln('0');

i:=i+1;

End ;

Readln;

End.

-Khi chạy chương trình ví dụ bên sẽ in ra bao nhiêu số 0?

A.12

B.13

C.14

D.15
#Tin học lớp 8
2
NL
Nguyễn Lê Phước Thịnh
27 tháng 2 2020

B

Đúng(0)
HM
hoàng minh trọng
28 tháng 2 2020

B . 13 bạn ak

Đúng(0)
BH
Bong Hoa No
2 tháng 12 2018
A. Lý Thuyết: Nêu ý nghĩa của các từ khóa,câu lệnh trong Pascal: program,begin,end,uses,var,const,clrscr,delay(x),write ( ),readln,readln (x) Trắc nghiệm: Câu 1: Các ngôn ngữ lập trình phân chia dữ liệu thành các kiểu dữ liệu khác nhau với mục đích gì ? Hãy chọn phương án sai: ​ a)Sử dụng bộ nhớ máy tính có hiệu quả b)Thực hiện các phép toán tương ứng với từng kiểu dữ liệu c)Tự động hóa...
Đọc tiếp

A. Lý Thuyết:

Nêu ý nghĩa của các từ khóa,câu lệnh trong Pascal: program,begin,end,uses,var,const,clrscr,delay(x),write ( ),readln,readln (x)

Trắc nghiệm:

Câu 1: Các ngôn ngữ lập trình phân chia dữ liệu thành các kiểu dữ liệu khác nhau với mục đích gì ? Hãy chọn phương án sai: ​

a)Sử dụng bộ nhớ máy tính có hiệu quả

b)Thực hiện các phép toán tương ứng với từng kiểu dữ liệu

c)Tự động hóa việc viết chương trình

Câu 2:Hãy chọn câu đúng:

a)14/5=2; 14 div 5 = 2 ; 14 mod 5 = 4

b)14/5=2.8; 14 div 5 = 2 ; 14 mod 5 = 4

c) 14/5=2.8; 14 div 5 = 2 ; 14 mod 5 = 2

d) 14/5=3; 14 div 5 = 2 ; 14 mod 5 = 4

Câu 3: Giá trị của biến a sau khi thực hiện chương trình: "a:=5 ; a:=a–4" là:

a) 1 b) 2 c) 3 d) 4

Câu 4: Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu:

a)Chỉ một biến cho một kiểu dữ liệu

b)Chỉ hạn chế bởi dung lượng nhớ

c) 10 biến

d) Không giới hạn

Câu 5: Giả sử A được khai báo là biến với kiểu dữ liệu là số thực,phép gán nào đúng:

a)A:= ' 38.59 b) A:=35.59; c) A:=3559 d) cả b và c đều đúng

Câu 6:Trong Pascal,khai báo đúng là:

a) Var chieudai:real

b) Var 40HS: integer

c) Var R=50

d) Cả b và c đều đúng

B. Bài Tập:

1. Tìm ra chỗ sai ( gạch chân ) và giải thích tại sao sai :

a) var a,b:=integer

const c:=4 ;

begin :

a:= 10

b:=a/c;

write( ' gia tri cua b la ' b);

end.

b) var : a: real; b: integer;

const c:=4

begin

c:=4.1;

a:=10;

b:=a/c

write( ' gia tri cua b la ' b )

end

2. Viết thuật toán rồi viết chương trình bằng ngôn ngữ Pascal để giải bài toán:

a) Tính tổng của n số tự nhiên đầu tiên. Lậo bảng chạy tay với n=10, n=15

b) Hoán đổi giá trị của 2 biến x và y. Lập bảng chạy tay với x 🔙 10; y 🔙1​

Mong các bạn giúp mình !
#Tin học lớp 8
0
Bảng xếp hạng
Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên
  • Tuần
  • Tháng
  • Năm
Các khóa học có thể bạn quan tâm
Tổng thanh toán: 0đ (Tiết kiệm: 0đ)
Tới giỏ hàng
Yêu cầu VIP