Tìm max của 3 số abc pascal

Thông Tư 47 Bộ Lao Động Thương Binh Xã Hội

Hướng Dẫn Sử Dụng Vnedu Cho Giáo Viên

Đề thi minh họa THPT quốc gia của Bộ GD&ĐT

TÀI LIỆU TUYỂN SINH ĐH, CĐ 2015

Hướng dẫn thi THPT quốc gia

QUY CHẾ THI 2015

LUẬT DÂN SỰ

LUẬT DÂN SỰ

DANH SÁCH CÁC TIẾT MỤC VĂN NGHỆ ĐƯỢC CHỌN CÔNG DIỄN CHÀO MỪNG NGÀY NHÀ GIÁO VIỆT NAM NĂM 2014

TKB AP DUNG TU 20/10/2014

THÔNG BÁO VỀ VIỆC TỔ CHỨC LỄ KỶ NIỆM 20 NĂM THÀNH LẬP TRƯỜNG VÀ ĐÓN NHẬN HUÂN CHƯƠNG LAO ĐỘNG HẠNG BA

Bài tập 1: Viết chương trình tính tổng 3 số a, b, c với Pascal

Mã:

program tongabc;

uses crt;

var T, a, b, c:interger;

begin

write('gia tri cua a');

read(a);

write('gia tri cua b');

read(b);

write('gia tri cua c');

read(c);

T:=a+b+c ;

write ('tong ba so a, b, c la':, T);

Readln

End.

Tìm số lớn nhất:

Mã:

program tim _so_lon_nhat;
uses crt;
var a, b, c: integer;
Begin
write ("Nhap so nguyen a = "); readln(a);
write ("Nhap so nguyen b = "); readln(b);
write ("Nhap so nguyen c = "); readln(c);
max:=a;
if max < b then max:=b;
if max < c then max:=c;
writeln ("So lon nhat trong 3 so la :",max);
readln;
End. 

Bài tập 2: Viết chương trình tính chu vi, diện tích hình vuông.

Mã:

program cv_hinh_vuong;

uses crt;

var a, cv, dt:interger;

begin

clrscr;

write('nhap do dai a');

readln(a);

cv:= a*4, dt:= a*a.

Write ('Chu vi hinh vuong: ', cv);

Write ('Dien tich hinh vuong la: ', dt) ;

readln

end.

 

... tiết th c giải thuật: Lần Lặp L =Ø U U€T V L A < /b> False A < /b> False B, C, D D ,C ,B False D False H H ,C ,B False H False Ø C ,B False C False G G ,B False G False J J ,B False J True Ta c J ∈ DICH ⇒ Thành C ng ... rules") path(Open_stack,_,Path_stack,Goalstate):stack(Top,_,Open_stack),Top = Goalstate, write( "A < /b> solution found :\n"), reverse_print_stack(Path_stack) path(Open_stack,Closed_set,Path_stack,Goalstate):stack(Top,Res_open_stack,Open_stack), ... go(Start,Goalstate):empty_stack(Open), empty_stack(Path), empty_set(Closed), stack(Start,Open,Open_stack), stack(Start,Path,Path_stack), add_if_not_in_set(Start,Closed,Closed_set), path(Open_stack,Closed_set,Path_stack,Goalstate)...

Answers ( )

1. 

   ngockhue

   0

   2021-08-25T09:07:40+00:00 25/08/2021 at 09:07

   Reply

   Program BTT;
   Uses crt;
   Var a,b,c: longint;
   Begin
           Clrscr;
           Write(‘Nhap 3 so a, b, c: ‘); Readln(a, b, c);
           If (a>b) and (a>c) then Write(a,’ lon nhat’);
           If (b>a) and (b>c) then Write(b,’ lon nhat’);
           If (c>a) and (c>b) then Write(c,’ lon nhat’);
           Writeln;
           If (a        If (b        If (c        Readln
   End.

3. 

   hienchau

   0

   2021-08-25T09:07:56+00:00 25/08/2021 at 09:07

   Reply

   program tim_min_max;
   uses crt;
   var a,b,c:real;
   max,min:real;
   begin
   clrscr;
   write(‘nhap so thu nhat:’); readln(a);
   write(‘nhap so thu hai:’); readln(b);
   write(‘nhap so thu ba:’); readln(c);
   max:=a;
   if b>max then max:=b;
   if c>max then max:=c;
   writeln(‘Gia tri lon nhat la:’,max:4:0);
   readln;
   min:=a;
   if bif cwriteln(‘Gia tri nho nhat la: ‘,min:4:0);
   readln;
   end.