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

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.

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

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

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.

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.

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.

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.

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.

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ốt

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

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

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

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.

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.

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);