const fi='input.txt'
fo='output.txt'
var f1,f2:text;
a,b,c,max:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
writeln(f2,min);
close(f1);
close(f2);
end.
const fi='input.txt'
fo='output.txt'
var f1,f2:text;
a,b,c,max:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
writeln(f2,min);
close(f1);
close(f2);
end.
Mọi người ơi giúp mình vs ạ. M cảm ơn trước
Viết ctrinh: tạo tệp văn bản: KIEMTRA.TXT tệp gồm các dòng sau
Dòng 1: ghi 3 số nguyên
Dòng 2: ghi tổng 3 số nguyên dòng 1
Dòng 3: ghi số nhỏ nhất trong 3 số đầu dòng 1
Giúp m vs <3
Viết chương trình táo ra một tệp chứa một mảng số nguyên không quá 100 phần tử . Tiến hành mở tệp ra để đọc dữ liệu và tính tổng các phần tử của mảng tất cả đều sử dụng thủ tục để viết chương trình
Cho tệp dữ liệu vào tệp BT.INP gồm nhiều dòng , mỗi dòng chứa 2 số nguyên cách nhau bởi dấu cách từ điểm (0:0) đến từng điểm trong tệp BT.INP ( kết quả lấy một chữ số thập phân ) viết kết quả ra màn hình
BT.INP |
1 1 |
6 8 |
1 0 |
Tệp baitap.in chứa 1 số nguyên, tính bình phương số đó, ghi kq vào tệp ketqua.out
Giúp em với ạ
Viết chương trình ghi vào tệp “BAITHO.TXT" những câu thơ sau:
“Anh đi anh nhớ qua nhà
Nhớ canh rau muống nhớ cả rầm tương"
Câu 1 - Các số đặc biệt Tên tệp chương trình : CAU1.PAS
Định nghĩa:
- Một số được gọi là đối xứng, nếu đọc từ bên trái sang bên phải hoặc từ bên phải sang trái đều được cùng một số. Ví dụ: số 75457 là số đối xứng.
- Số chính phương là số bằng bình phương đúng của một số nguyên. Ví dụ số 256 là số chính phương (vì 256=162)
Cho 2 số tự nhiên M và N (M, N trong khoảng từ 10 đến 100000 và M <N).
Yêu cầu:
a) Liệt kê và đếm xem có bao nhiêu số đối xứng nằm trong khoảng [M,N]
b) Liệt kê và đếm xem có bao nhiêu số chính phương nằm trong khoảng [M,N]
c) Liệt kê và đếm xem có bao nhiêu số đối xứng chính phương trong khoảng [M,N]
Dữ liệu vào là 2 số tự nhiên M và N nhập từ bàn phím. Kết quả in ra màn hình .
Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!
Bài 1: Viết chương trình con tìm giá trị nhỏ nhất của 2 số nguyên a và b
Bài 2:Viết chương trình con tính cạnh huyền c với 2 cạnh góc vuông a,b nhập từ bàn phím
Giúp em giải gấp với ạ
Cho thuật toán một bài toán: Tìm giá trị nhỏ nhất/ lớn nhất; đếm kí tự bất kì trong tệp; chuyển đổi chữ hoa/ thường. Hãy thực hện các yêu cầu:
- Khai báo được các biến cần thiết của 1 bài toán đã cho.
- Viết chương trình hoàn chỉnh cho bài toán, sử dụng hàm hoặc thủ tục để giải quyết yêu cầu.