Cho Hỏi Công Thức Tìm Số đối Xứng Trong Pascal - Hoc24

HOC24

Lớp học Học bài Hỏi bài Giải bài tập Đề thi ĐGNL Tin tức Cuộc thi vui Khen thưởng

• Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn

Đóng Đăng nhập Đăng ký

Lớp học

• Lớp 12
• Lớp 11
• Lớp 10
• Lớp 9
• Lớp 8
• Lớp 7
• Lớp 6
• Lớp 5
• Lớp 4
• Lớp 3
• Lớp 2
• Lớp 1

Môn học

• Toán
• Vật lý
• Hóa học
• Sinh học
• Ngữ văn
• Tiếng anh
• Lịch sử
• Địa lý
• Tin học
• Công nghệ
• Giáo dục công dân
• Tiếng anh thí điểm
• Đạo đức
• Tự nhiên và xã hội
• Khoa học
• Lịch sử và Địa lý
• Tiếng việt
• Khoa học tự nhiên
• Hoạt động trải nghiệm
• Hoạt động trải nghiệm, hướng nghiệp
• Giáo dục kinh tế và pháp luật

Chủ đề / Chương

Bài học

HOC24

Khách vãng lai Đăng nhập Đăng ký Khám phá Hỏi đáp Đề thi Tin tức Cuộc thi vui Khen thưởng

• Tất cả
• Toán
• Vật lý
• Hóa học
• Sinh học
• Ngữ văn
• Tiếng anh
• Lịch sử
• Địa lý
• Tin học
• Công nghệ
• Giáo dục công dân
• Tiếng anh thí điểm
• Hoạt động trải nghiệm, hướng nghiệp
• Giáo dục kinh tế và pháp luật

Hãy tham gia nhóm Học sinh Hoc24OLM Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Câu hỏi

Hủy Xác nhận phù hợp Chọn lớp Tất cả Lớp 12 Lớp 11 Lớp 10 Lớp 9 Lớp 8 Lớp 7 Lớp 6 Lớp 5 Lớp 4 Lớp 3 Lớp 2 Lớp 1 Môn học Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Tiếng anh thí điểm Đạo đức Tự nhiên và xã hội Khoa học Lịch sử và Địa lý Tiếng việt Khoa học tự nhiên Hoạt động trải nghiệm Hoạt động trải nghiệm, hướng nghiệp Giáo dục kinh tế và pháp luật Mới nhất Mới nhất Chưa trả lời Câu hỏi hay

• Vũ HẢi Hà

13 tháng 10 2016 lúc 15:18

cho hỏi 

công thức tìm số đối xứng trong pascal

 

 

 

Xem chi tiết Lớp 9 Tin học Bài 1. Từ máy tính đến Mạng máy tính 3 0 Gửi Hủy Nguyễn Thuỳ Dung 15 tháng 10 2016 lúc 13:16

Uses crt;var st: string;function KT (xau: string): boolean;var i, dem: integer;begindem:=0;for i:= 1 to length(st) div 2 doif xau<>xau[length(xau)-i+1] then inc(dem);if dem<>0 then KT:=False else KT:=True;end;beginclrscr;write ('Nhap so co do dai khong qua 100 chu so: '); readln (st);if length(st)>100 thenbeginwrite ('Nhap khong hop le! An Enter va chay lai!');readln; exit;end;if KT(st)=True then write ('Day la so doi xung!') else write ('Day la so khong doi xung!');readlnend.

Đúng 0 Bình luận (1) Gửi Hủy qwerty 1 tháng 5 2017 lúc 21:54

procedure bai1; var n,n1,temp:integer; BEGIN repeat clrscr; write('Nhap vao so n='); readln(n); if((n>-32000) and (n<32000) )then break; until (1=1); n1:=0; temp:=n; while temp>0 do begin n1:=n1*10 + temp mod 10; temp:= temp div 10; end; if n1=n then writeln('Doi xung') else writeln('Khong doi xung'); END;

Đúng 0 Bình luận (2) Gửi Hủy Đỗ Tâm 27 tháng 11 2020 lúc 10:24

Function sdx (l:longint):boolean; var s:string; i,m:longint; Begin sdx:=false; str(l,s); m:=length(s); for i:= 1 to m div 2 do if s[i]=s[m-i+1] then sdx:=true else sdx:=false; End; Procedure sodoixung(var a:mat); Begin write('cac so doi xung la: '); for i:= 1 to n do if sdx(a[i]) then write(a[i]:4); End; Còn phần mảng bạn tự làm nha

Đúng 0 Bình luận (0) Khách vãng lai đã xóa Gửi Hủy

• Phạm Nhật

26 tháng 3 2023 lúc 20:16

viết chương trình đọc vào số nguyên dương n từ file văn bản sdx.inp, tìm các số đối xứng hơn bằng n, ghi kết quả ra file văn bản văn bản sdx.out trong pascal

 

Xem chi tiết Lớp 8 Tin học 1 0 Gửi Hủy gấu béo 26 tháng 3 2023 lúc 22:27

program TimSoDoiXung;

var

     f_in, f_out: text;

     n, num, tmp, rem: integer;

begin

     // mở file đầu vào

     assign(f_in, 'sdx.inp');

     reset(f_in);

     // mở file đầu ra

     assign(f_out, 'sdx.out');

     rewrite(f_out);

     // đọc n từ file đầu vào

     readln(f_in, n);

     // tìm các số đối xứng

     for num := 1 to n do

     begin

          tmp := num;

          rem := 0;

          while tmp <> 0 do

          begin

               rem := rem * 10 + tmp mod 10;

               tmp := tmp div 10;

          end;

          if num = rem then

               writeln(f_out, num);

     end;

     // đóng file đầu vào và đầu ra

     close(f_in);

     close(f_out);

end.

Đúng 0 Bình luận (0) Gửi Hủy

• mkkkmkmkkmkm

5 tháng 11 2023 lúc 15:31

Đồ thị hàm số có trục đối xứng là đường thẳng x=3, cắt trục tung tại điểm có tung độ bằng -16 và một trong hai giao điểm với trục hoành có hoành độ là -2. Tìm công thức của hàm số bậc hai.

Xem chi tiết Lớp 10 Toán 1 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 6 tháng 11 2023 lúc 18:27

Gọi công thức của hàm số bậc hai là \(y=ax^2+bx+c\)

Trục đối xứng là x=3 nên \(-\dfrac{b}{2a}=3\)

=>b=-2a

Thay x=0 và y=-16 vào (d), ta được:

\(a\cdot0^2+b\cdot0+c=-16\)

=>c=-16

=>\(y=ax^2+bx-16\)

Thay x=-2 và y=0 vào (d), ta được:

\(a\cdot\left(-2\right)^2+b\left(-2\right)-16=0\)

=>4a-2b-16=0

=>\(4a-2\cdot\left(-2a\right)=16\)

=>8a=16

=>a=2

=>b=-2a=-4

Vậy: Công thức cần tìm là \(y=2x^2-4x-16\)

Đúng 0 Bình luận (0) Gửi Hủy

• Bài 4
• 

SGK Cánh Diều trang 43 23 tháng 9 2023 lúc 11:33

Cho đồ thị hàm số bậc hai ở Hình 15.

a) Xác định trục đối xứng, tọa độ đỉnh của đồ thị hàm số.

b) Xác định khoảng đồng biến, khoảng nghịch biến của hàm số.

c) Tìm công thức xác định hàm số.

Xem chi tiết Lớp 10 Toán $2. Hàm số bậc hai, Đồ thị hàm số bậc hai và ứng d... 1 0 Gửi Hủy Hà Quang Minh Giáo viên CTVVIP 23 tháng 9 2023 lúc 11:35

a) Trục đối xứng là đường thẳng \(x = 2\)

Đỉnh là \(I\left( {2; - 1} \right)\)

b) Từ đồ thị ta thấy trên khoảng \(\left( { - \infty ;2} \right)\) thì hàm số đi xuống nên hàm số nghịch biến trên \(\left( { - \infty ;2} \right)\).

Trên khoảng \(\left( {2; + \infty } \right)\) thì hàm số đi xuống nên đồng biến trên \(\left( {2; + \infty } \right)\).

c) ) Gọi hàm số là \(y = a{x^2} + bx + c\left( {a \ne 0} \right)\)

Đồ thị hàm số có đỉnh là \(I\left( {2; - 1} \right)\) nên ta có:

\(\left\{ \begin{array}{l} - \frac{b}{{2a}} = 2\\a{.2^2} + b.2 + c =  - 1\end{array} \right. \Leftrightarrow \left\{ \begin{array}{l}b =  - 4a\\4a + 2b + c =  - 1\end{array} \right.\)

Ta lại có điểm \(\left( {1;0} \right)\) thuộc đồ thị nên ta có: \(a + b + c = 0\)

Vậy ta có hệ sau:

\(\left\{ \begin{array}{l}b =  - 4a\\4a + 2b + c =  - 1\\a + b + c = 0\end{array} \right.\)\( \Leftrightarrow \left\{ \begin{array}{l}b =  - 4a\\4a + 2.\left( { - 4a} \right) + c =  - 1\\a + \left( { - 4a} \right) + c = 0\end{array} \right.\)\( \Leftrightarrow \left\{ \begin{array}{l}b =  - 4a\\c - 4a =  - 1\\c - 3a = 0\end{array} \right.\)\( \Leftrightarrow \left\{ \begin{array}{l}b =  - 4a\\a = 1\\c = 3\end{array} \right. \Leftrightarrow \left\{ \begin{array}{l}b =  - 4\\a = 1\\c = 3\end{array} \right.\)

Vậy parabol là \(y = {x^2} - 4x + 3\)

Đúng 0 Bình luận (0) Gửi Hủy

• Nguyễn Hoàng Nam

6 tháng 10 2019 lúc 11:30 Axit hữu cơ X mạch hở có trong quả chanh công thức phân tử là C6H8O7. Thực hiện sơ đồ phản ứng sau:  Axit   xitric → + NaHCO 3 C 6 H 5 O 7 Na 3 → + Na   dư C 6...Đọc tiếp

Axit hữu cơ X mạch hở có trong quả chanh công thức phân tử là C6H8O7. Thực hiện sơ đồ phản ứng sau: 

Axit   xitric → + NaHCO 3 C 6 H 5 O 7 Na 3 → + Na   dư C 6 H 4 O 7 Na 4

Biết X có cấu tạo đối xứng, khi cho X tác dụng với C2H5OH. Hỏi thu được bao nhiêu chất có chức este.

A. 2 

B. 4

C. 5

D. 3

Xem chi tiết Lớp 11 Hóa học 1 0 Gửi Hủy Ngô Quang Sinh 6 tháng 10 2019 lúc 11:30

Đáp án C

Đúng 0 Bình luận (0) Gửi Hủy

• Hồ Thị Huyền Trang

7 tháng 5 2021 lúc 21:32

Cho tệp SONGUYEN.INT, chứa dãy số nguyên bất kì. Viết công thức Pascal : Đếm các số chẵn trong dãy số nguyên đó. Kết quả ghi vào tệp TONG.OUT Giúp em với ạ😔

Xem chi tiết Lớp 11 Tin học 1 1 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 7 tháng 5 2021 lúc 22:17

const fi='songuyen.inp'

fo='tong.out'

var f1,f2:text;

a:array[1..100]of integer;

n,i,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

read(f1,a[n]);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln(f2,dem);

close(f1);

close(f2);

end.

Đúng 1 Bình luận (0) Gửi Hủy

• Bài 3
• 

SGK Chân trời sáng tạo trang 61 8 tháng 10 2023 lúc 16:12

Hãy tìm một số hình ảnh, đồ vật trong tự nhiên có tính đối xứng (có trục đối xứng hoặc có tâm đối xứng).

Xem chi tiết Lớp 6 Toán Bài 3. Vai trò của tính đối xứng trong thế giới tự... 1 0 Gửi Hủy Hà Quang Minh Giáo viên CTVVIP 8 tháng 10 2023 lúc 16:12

Đúng 0 Bình luận (0) Gửi Hủy

• nguyễn cường

29 tháng 8 2017 lúc 19:02

số đối xứng thập phân là số j

ai vẹ với nnha 

còn ai bít bài này nữa thì vẹ lun

tìm số phần tử là dương và là số đối xứng thập phân của mảng và vị trí của nó trong mang. ai học tin ấy nhé. còn ko thỉ trả lời giúp câu hỏi số đối xứng thập phân là j cx đc

Xem chi tiết Lớp 8 Toán Câu hỏi của OLM 0 0 Gửi Hủy

• Đinh Huy Đức

26 tháng 4 2021 lúc 20:47

Một số tự nhiên gọi là số đối xứng nếu đọc từ trái qua phải hay phải qua trái đều giống nhau, chẳng hạn số 8668. Hỏi trong phạn vi từ 1000 đến 9999 có bao nhiêu số đối xứng chia hết cho 7

Xem chi tiết Lớp 6 Toán 0 0 Gửi Hủy

• Long ca ca

13 tháng 6 2023 lúc 13:36

in ra tất cả các số nguyên tố đối xứng có k chữ số, với k được nhập từ bàn phím (1<=k<=9)

Vd: k=3 

101,131,151,181,191,313,...

Làm bằng pascal nha mn giúp mình

Xem chi tiết Lớp 9 Tin học 1 0 Gửi Hủy lynguyenmnhthong 13 tháng 6 2023 lúc 14:04

program abcdef;

uses Crt;

var

k, lowerLimit, upperLimit, i, j, reversed, temp, remainder: integer;

isPrime, isPalindrome: boolean; 

begin

clrscr;

write('Nhap so chu so k (1<=k<=9): ');

readln(k);

 lowerLimit := 1;

for i := 1 to k - 1 do

lowerLimit := lowerLimit * 10; 

upperLimit := lowerLimit * 10 - 1; 

writeln('Cac so nguyen to doi xung co ', k, ' chu so la:');

for i := lowerLimit to upperLimit do

begin

// Kiểm tra số nguyên tố

isPrime := True;

if i < 2 then

isPrime := False

else

for j := 2 to trunc(sqrt(i)) do

if i mod j = 0 then

beginisPrime := False;break;end;

// Kiểm tra số đối xứng

if isPrime then

begin

reversed := 0;

temp := i;

while temp <> 0 dobeginremainder := temp mod 10;

reversed := reversed * 10 + remainder;

temp := temp div 10;

end;

isPalindrome := (i = reversed);

 if isPalindrome then

writeln(i);

end;

end; 

readln;

end.

Đúng 0 Bình luận (0) Gửi Hủy