Bài 5. Từ bài toán đến chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
huỳnh thị ngọc ngân
Xem chi tiết
Lệ Quyên Đinh
26 tháng 10 2016 lúc 5:16

program vantoc;

uses crt;

var v,s,t:real;

begin

writeln('nhap quang duong km');

readln(s);

writeln('nhap thoi gian h');

readln(t);

v:=s/t;

writeln('thoi gian la',v:4:2);

readln

end.

Vương Quốc Anh
Xem chi tiết
Lưu Hiền
5 tháng 11 2016 lúc 20:22

output:a;b

ý nghĩa thuật toán

gán giá trị cho các biên x và y :V

mình chưa học mới đọc sách thấy nó nói z

Lê Trần Bội Bội
Xem chi tiết
Bao Truong
30 tháng 12 2020 lúc 19:02

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

Lê Trần Bội Bội
Xem chi tiết
huỳnh thị ngọc ngân
11 tháng 11 2016 lúc 18:51

1.

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

for i:=1 to 10 do s:=s+1;

writeln ('tong cua s=',s);

readln

end.

2.

program tinhtong;

uses crt;

var i,L,s:integer;

begin

write('nhap gia tri L='); readln(L);

s:=0;

for i:=1 to L do s:=s+1;

writeln('tong cua s=',s);

readln

end.

 

 

Huỳnh Thị Thiên Kim
Xem chi tiết
Phương Anh (NTMH)
14 tháng 11 2016 lúc 18:58

Program Hinh_tron;

Uses crt;

Var r,dt:real;

Begin

clrscr;

Writeln(' Nhap ban kinh hinh tron:');

Readln(r);

dt:= r*r*3.14;

Writeln('Dien tich hinh tron la:',dt);

Readln;

End.

Lovers
14 tháng 11 2016 lúc 18:49

Uses crt;

Var r:real;

Begin

clrscr;

Writeln('Nhap ban kinh hinh tron = '); Readln(r)

Write('Dien tich hinh tron la ',r*r*3.14:5:1);

Readln

End.

Trần Thụy Trà My
Xem chi tiết
Tú Nguyễn
23 tháng 12 2018 lúc 15:37

tổng của 100 số đt:

var i,b:integer;

begin

b:=0;

for i:=1 to 100 do

b:=b+i;

writeln('Tong cua 100 so dt:', b);

readln;

end.

Nguyễn Huy Hoàng Sơn
11 tháng 2 2020 lúc 9:48

tổng của 100 số đt:

var i,b:integer;

begin

b:=0;

for i:=1 to 100 do

b:=b+i;

writeln('Tong cua 100 so dt:', b);

readln;

end.

Khách vãng lai đã xóa
Vai Linh Pham
Xem chi tiết
Giao Huỳnh
22 tháng 10 2017 lúc 22:09

Input: số phần tử của dãy A, dãy a1,a2...an.

Output:số phần tử chẵn, lẻ.

thuật toán:

B1: demchan <--0; demle <--0; i<--1;

B2: nếu a[i] mod 2=0 then demchan <-- demchan+1. ngược lại demle <--demle+1;

B3: i <--i+1;

B4: nếu i<=n thì quay lại bước 2;

B5: thông báo giá trị demchan và demle và kết thúc thuật toán.

chúc bạn học tốtbanh

Suri Nguyễn
Xem chi tiết
Hà Đức Thọ
21 tháng 11 2016 lúc 10:23

Em cần gửi câu hỏi lên đây nhé.

Đặng Yến Linh
21 tháng 11 2016 lúc 15:45

http://d.violet.vn//uploads/resources/present/2/114/529/preview.swf

Dương Phương Trà
6 tháng 12 2016 lúc 15:53

kết quả: giá trị của tổng: 1+2+...+100

Hoàng Hải Yến
Xem chi tiết
Nguyễn Thiện Minh
23 tháng 11 2016 lúc 15:48

uses crt;

var a: array [1..100] of integer;

n, i, tsc, tsl: integer

begin

clrscr;

write('So phan tu cua mang la: '); readln(n);

while n<1 do begin

write('So phan tu chi tu 2 tro len, ban da nhap sai, nhap lai: '); readln(n);

end;

for i:=1 to n do begin

write('So thu ',i,' la: '); readln(a[i]);

end;

tsc:=0;

tsl:=0;

for i:=1 to n do

if a[i] mod 2 =0 then tsc:=tsc+a[i]

else tsl:=tsl+a[i];

writeln('tong cac so chan la: ',tsc);

write('tong so cac so le la: ',tsl);

readln;

end.

duong nguyenvan
20 tháng 12 2017 lúc 16:26

Program bai1;

uses crt;

var i,n,s,s1: integer;

a:array[1..100] of integer;

begin

clrscr;

write('nhap n =');readln(n);

for i:=1 to n do

begin

write('nhap a[',i,'] ='); readln(a[i]);

end;

for i:= 1 to n do

if a[i] mod 2 = 0 then s:=s+a[i];

writeln('tong cac so duong = ' ,s);

for i:= 1 to n do

if a[i] mod 2 <> 0 then s1:=s1+a[i];

writeln('tong cac so le =' ,s1);

readln;

end.

Hoàng Hải Yến
Xem chi tiết
Lieu Loo
29 tháng 12 2017 lúc 13:24

for i:=1 to n do

if a[i] mod 2=0 then s:=s+a[i] else ss:=ss+a[i];

writeln(' a)', s);

write(' b),ss);