Tin học Thi tin 8

[thuongloan1697]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Giúp mk với!!!! Thanks!!!

 

[trà nguyễn hữu nghĩa]

1)
Mình không quen dùng file nha bạn, với mình chỉ viết phần chính thôi

if a = 0 then
begin
if b > 0 then write('BPT nghiem dung voi moi x')
else write ('BPT vo nghiem')
end
else
if a > 0 then write('Nghiem BPT la x > ',-b/a)
else write('Nghiem BPT la x < ',-b/a);

2)

repeat
write('Nhap N: ');readln(n);
until n = 0;

4)
b)

readln(s);
s := s + ' ';
c := '';
for i := 1 to length(s) do
begin
if s[i] <> ' ' then c := c + s[i]
else
begin
writeln(c);
c := '';
end;
end;

c)

tong := 0;
for i := 1 to length(s) do
begin
Val(s[i],int,code);
if code = 0 then tong := tong + int;
end;
write('tong cac so la: ',tong);

 

[Trương Hoài Nam]

View attachment 53948View attachment 53948 View attachment 53948

Giúp mk với!!!! Thanks!!!

1.Program BAT_PHUONG_TRINH_BAC_I;
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0');
Writeln('———————————————————————-');
Write('nhap a=');readln(a);
Write('nhap b=');readln(b);
If a<>0 then
If a>0 then
Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)
Else
Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)
Else
If b>=0 then
Writeln('Bat phuong trinh co vo so nghiem')
Else
writeln('Bat phuong trinh vo nghiem');
Readln;
End.