Câu 1: Viết câu lệnh khai báo biến x có kiểu xâu và biến y không có kiểu số thực bằng ngôn ngữ lập trình Pascal
Câu 2: Em hãy viết chương trình tính TỔNG của 2 số nguyên a,b được nhập từ bàn phím?
#Tin_Học_8
#Giúp em đi :((
----> Cần gấp... Trưa mai nộp rồi <----
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
Viết chương trình nhập từ bàn phím "toi di hoc" sau khi chạy chương trình hiện xâu kí tự "hoc di toi"
Program HOC24;
var st,s: string;
a: array[1..255] of string;
d,i,n: integer;
begin
readln(s);
s:=s+' ';
while length(s)<>0 do
begin
st:=copy(s,1,pos(' ',s)-1);
n:=n+1;
a[n]:=st;
delete(s,1,pos(' ',s));
end;
for i:= n downto 1 do write(a[i],' ');
readln
end.
Các câu lệnh ra / vào dữ liệu trong ngôn ngữ lập trình Turbo Pascal
Nguyên liệu sản xuất (Tên file Promate.pas)
Một người dùng số tiền là U đô-la và V Euro để mua một loại nguyên liệu sản xuất. Có N công ty nước ngoài bán nguyên liệu trên được đánh số từ 1 đến N. Công ty thứ i có giá bán Ai đô la/1 kg nguyên liệu và Bi Euro/1 kg nguyên liệu. Tuy nhiên, tại mỗi công ty chỉ bán nguyên liệu cho một khách hàng hoặc theo đô-la, hoặc theo Euro. Hãy giúp người đó tìm cách chọn ra 2 công ty để mua hàng sao cho số lượng nguyên liệu sản xuất có thể mua được là nhiều nhất.
Nhập vào: Từ bàn phím 3 số theo thứ tự : N U V (1 ≤ N ≤ 20; 1 ≤ U, V ≤ 1000) và N cặp số nguyên Ai, Bi (1 < Ai, Bi < 1000), mỗi cặp trên một dòng.
In ra : Số lượng nguyên liệu S(kg) người đó mua được với 2 chữ số thập phân.
Ví dụ:
| Nhập | In ra | Giải thích |
3 2 5 6 4 3 5 8 7 | S=1.92
| N = 3, U = 2, V = 5 Người đó mua nguyên liệu của công ty thứ 2 bằng đô-la và mua nguyên liệu của công ty thứ nhất bằng Euro. |
MÌNH ĐANG CẦN GẤP MỌI NGƯỜI GIÚP MÌNH NHANH NHÉ :)))))
Khởi động chương trình pascal, viết chương trình nhập số ttuwj nhiên n sao cho 5<n<100, nếu nhập sai yêu cầu nhập lại đúng thì tính tổng Sn:
Sn=\(\frac{1.2}{3.4}\)+\(\frac{2.3}{4.5}\)+\(\frac{3.4}{5.6}\)+....+\(\frac{n.\left(n+1\right)}{\left(n+2\right)\left(n+3\right)}\)
- Mình mới dùng nên phân số còn hơi chệch choạc, mong mn thông cảm nhé.
ko phải do bạn lập trình hơi chệch choạng đâu mà do nó khó đó
à có vẻ hơi khó thiệt để ngĩ đã
Thể nào thằng bạn t cũng làm được, để t nhờ nó :v
Viết chương trình giải phương trình ax + b = 0 (các hệ số a,b được nhập từ bàn phím)
Hướng dẫn có sẵn trong bài là:
- Nếu a khác 0 thì phương trình có nghiệm x=-b/a(âm b phần a)
- Nếu a = 0 và b = 0 thì phương trình có vô số nghiệm
- Nếu a = 0 và b khác 0 thì phương trình vô nghiệm
uses crt;
var a, b: logint;
Begin
write('nhap so a ='); Readln(a);
write('nhap so b ='); readln(b);
If (a = 0 and b = 0)
then write ('pt co nghiem x thuoc R')
else
if (a=0 and b#0) then write('pt vo nghiem')
else
write(nghiẹm la x=': -b/a);
readln
end.
uses crt;
var a, b: logint;
Begin
write('nhap so a ='); Readln(a);
write('nhap so b ='); readln(b);
If (a = 0 and b = 0)
then write ('pt co nghiem x thuoc R')
else
if (a=0 and b#0) then write('pt vo nghiem')
else
write(nghiẹm la x=': -b/a);
readln
end.
có bạn nào có đề kiểm tra 1 tiết học kì 1 môn tin học 8 kkkkkk
nếu có cho mik xin cái đề đuê 
Chưa chắc giống nhau nhưng tham khảo :
Câu 1 : Viết các phép tính sau trong pascal :
a) \(\frac{\sqrt{p\left(p-a\right)\left(p-b\right)^2}}{p-c}\)
b) \(a^2+b^2-5ab-\frac{43}{3}\)
c) \(\sqrt{2}+\frac{\sqrt{s+p+c}}{\sqrt{2}}\)
Câu 2 :
Viết chương trình tính diện tích và chu vi hình chữ nhật biết chiều dài và chiều rộng nhập từ bàn phím.
Câu 3 :
Viết chương trình tính diện tích hình tròn biết bán kính được nhập từ bàn phím.
Sửa lỗi cho chương trình sau :
( Chương trình tìm chu vi và diện tích của hình tam giác có 3 cạnh a , b , c và đường cao h ứng với cạnh a; nhập từ bàn phím )
Use crt;
Var a,b,c,h : integer ;
Begin
clrscr;
Readln(a,b,c);
Writeln( a + b + c= '; 'met');
Write ( a*h/2= ','met vuong');
Readln;
End.
À thôi em nghĩ ra rồi =))) Mọi người trả lời thoải mái
Câu này mình đang cần trả lời nè ạ, bạn biết rồi thì vui lòng chỉ giúp mình với !!
Dùng vòng lặp không xác định đếm xem có bao nhiêu số lẻ \(\le\) n
Program HOC24;
var i,d,n: integer;
begin
write('Nhap N='); readln(n);
i:=1; d:=0;
while i<=n do
begin
if i mod 2=1 then d:=d+1;
i:=i+1;
end;
write(d);
readln
end.
Dùng vòng lặp không xác định tính tổng những số chẵn \(\le\) n
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N='); readln(n);
i:=1; t:=0;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
write(t);
readln
end.
