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