DQ
1
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
31 tháng 10 2019
quá dễ
bài 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=0 then
if b=0 then writeln('phuong trinh co vo so nghiem')
else writeln('phuong trinh vo nghiem')
else writeln('phuong trinh co nghiem x=',-b/a:4:2);
readln;
end.
bài 2:
uses crt;
var x,y,a,b,ucln:integer;
{---------------------------------------------------------}
procedure nhap(var n:integer);
begin
write('nhap mot so nguyen bat ky='); readln(n);
end;
{---------------------------------------------------------}
procedure rutgon(var a,b:integer);
var x,y,ucln:integer;
begin
x:=a;
y:=b;
while x<>y do
begin
if x>y then x:=x-y
else y:=y-x;
end;
ucln:=x;
if ucln<>1 then
begin
a:=a div ucln;
b:=b div ucln;
writeln('phan so toi gian la: ',a,'/',b);
end
else writeln('phan so toi gian la: ',a,'/',b);
end;
{----------------------------------------------------------}
begin
clrscr;
nhap(a);
nhap(b);
rutgon(a,b);
readln;
end.
13 tháng 9 2021
trl:
vì lý do này:
- ngôn ngữ lập trình bậc cao gần vs ngôn ngữ tự nhiên hơn, thuận tiện cho đông đảo những ng lập trình
- nói chung ko phụ tuộc vào loại máy, cx 1 trương trình có thể thực hiện nhiều phương trình khác nhau
- dễ hiệu chỉnh và dễ nâng cấp hơn
- cho phép làm việc vs nhiều kiểu dữ liệu vs các cách tổ chức dữ liệu đa dạng
- thuận tiện cho mô tả thuật toán
hc tốt nha bẹn!
#KHÓ chịu mấy đứa bắt trước t:))
24 tháng 11 2021
kì ta, mình nhớ là đã up hình rồi mà mất tiuu, đây nha, xem giúp mình với
2 tháng 10 2019
Bài 1:
program pstg;
uses crt;
var a,b,i,u : integer;
f : text;
BEGIN
clrscr;
assign(f,'PSTG.INP');
reset(f);
read(f, a);
read(f, b);
u:=1;
for i:= 1 to a do if ((a mod i)=0) and ((b mod i)=0) and (i>u) then u:=i;
a:= a div u;
b:= b div u;
assign(f,'PSTG.OUT');
rewrite(f);
write(f, a,' ',b);
close(f);
END.
13 tháng 10 2019
bài 4 dễ ẹt à
uses crt;
const fi='quediem.inp';
fo='quediem.out';
var i,m,n,d,x,j,csc:longint;
a,b:array[1..1000]of integer;
f1,f2:text;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
{-------------------------tim-so-lon-nhat--------------------------}
write(f2,'so lon nhat la: ');
m:=n;
if m mod 2=0 then
begin
for i:=1 to n div 2 do
write(f2,'1');
end
else begin
write(f2,'7');
for i:=2 to n div 2 do
write(f2,'1');
end;
{----------------------------tim-so-nho-nhat------------------------}
writeln(f2);
a[1]:=2; b[1]:=1;
a[2]:=5; b[2]:=2;
a[3]:=4; b[3]:=4;
a[4]:=6; b[4]:=6;
a[5]:=3; b[5]:=7;
a[6]:=7; b[6]:=8;
d:=(n div 7)+1;
if n mod 7=0 then d:=d-1;
if d=1 then begin
case n of
2:write(f2,'so nho nhat la: ',1);
3:write(f2,'so nho nhat la: ',7);
4:write(f2,'so nho nhat la: ',4);
5:write(f2,'so nho nhat la: ',2);
6:write(f2,'so nho nhat la: ',0);
7:write(f2,'so nho nhat la: ',8);
end;
end;
if d>1 then
begin
write(f2,'so nho nhat la: ');
for i:=1 to d do
if i=1 then begin
b[4]:=6;
for j:=1 to 6 do
begin
x:=n;
x:=x-a[j];
csc:=x div 7+1;
if x mod 7=0 then csc:=csc-1;
if csc=d-i then begin
write(f2,b[j]);
n:=x;
break;
end;
end;
end
else begin
a[1]:=6; b[1]:=0;
a[2]:=2; b[2]:=1;
a[3]:=5; b[3]:=2;
a[4]:=4; b[4]:=4;
a[5]:=3; b[5]:=7;
a[6]:=7; b[6]:=8;
for j:=1 to 6 do
begin
x:=n;
x:=x-a[j];
csc:=(x div 7)+1;
if x mod 7=0 then csc:=csc-1;
if csc=d-i then begin
write(f2,b[j]);
n:=x;
break;
end;
end;
end;
end;
close(f1);
close(f2);
readln;
end.
QT
Quoc Tran Anh Le
Giáo viên
22 tháng 8 2023
Việc có quy định về ý thức và trách nhiệm của những người vận hành hệ thống là rất cần thiết vì những lý do sau:
– Đảm bảo tính ổn định và an toàn của hệ thống: Những người vận hành hệ thống có trách nhiệm đảm bảo rằng hệ thống luôn ổn định, an toàn, không gặp sự cố và lỗi hệ thống.
– Giảm thiểu nguy cơ lỗi do con người: Việc có quy định về ý thức và trách nhiệm giúp giảm thiểu nguy cơ lỗi do con người. Những người vận hành hệ thống phải tuân thủ quy định cũng như hướng dẫn của hệ thống để giảm thiểu sai sót và lỗi hệ thống do nhân viên.
– Bảo vệ dữ liệu và thông tin: Những người vận hành hệ thống có trách nhiệm đảm bảo rằng dữ liệu thông tin trên hệ thống luôn được bảo vệ và giữ bí mật.
– Đảm bảo tính pháp lý: Việc có quy định về ý thức và trách nhiệm giúp đảm bảo tính pháp lý của hệ thống. Những người vận hành hệ thống phải đảm bảo rằng các quy định pháp lý được tuân thủ và các thông tin trên hệ thống không vi phạm các quy định pháp luật.
– Tăng hiệu suất và độ tin cậy của hệ thống: Việc có quy định về ý thức và trách nhiệm giúp tăng hiệu suất và độ tin cậy của hệ thống bởi vì những người vận hành hệ thống sẽ có kỹ năng và kiến thức cần thiết để quản lý và bảo trì hệ thống.
8 tháng 1 2020
uses crt;
var n,a,b,q:integer;
begin
clrscr;
write('n='); readln(n);
for a:=1 to n do
for b:=a to n do
if trunc(sqrt(sqr(a)+sqr(b)))=sqrt(sqr(a)+sqr(b)) then writeln(a,' ',b);
readln;
end.
Vì người sinh ra bạn là con người nên bạn là con người luôn! 👌