Trang chủ Tin Học Lớp 12 Plssssssss giúp mình bài này với huhu Trong cuộc thi...

Plssssssss giúp mình bài này với huhu Trong cuộc thi Khoa học kỹ thuật năm 2018 của Tỉnh Hòa Bình, rất nhiều học sinh, phụ huynh và giáo viên có mặt trong hội

Câu hỏi :

Plssssssss giúp mình bài này với huhu Trong cuộc thi Khoa học kỹ thuật năm 2018 của Tỉnh Hòa Bình, rất nhiều học sinh, phụ huynh và giáo viên có mặt trong hội trường nhưng sự có mặt của mọi người là không cùng một lúc. Sau khi kết thúc cuộc thi Ban tổ chức muốn biết số lượng người đến nhiều nhất tại một thời điểm là bao nhiêu. Rất may là ban tổ chức đã cho một người ghi chép vào sổ theo trình tự thời gian như sau: cứ 1 người ra ngoài thì ghi "-" (dấu trừ), 1 người đi vào ghi dấu "+" (dấu cộng). Và điều đương nhiên là kết thúc cuộc thi thì không còn người nào trong hội trường, và không thể có trong một thời điểm không có người nào trong hội trường mà lại có người đi ra INPUT • Gồm T test (T ≤ 100), mỗi test chứa một dòng dãy ký hiệu (không quá 255 ký tự) ghi dấu "-" hoặc "+". OUTPUT • Gồm T dòng, mỗi dòng ghi ra 1 số nguyên duy nhất là số lượng người nhiều nhất cùng lúc có mặt trong hội trường.

Lời giải 1 :

uses math;
var t,i,d,maxx,q:longint;
    st:string;
begin
readln(t);
for q:=1 to t do
 begin
 readln(st);
 d:=0; maxx:=0;
 for i:=1 to length(st) do
  begin
  if st[i]='+' then inc(d) else dec(d);
  maxx:=max(maxx,d);
  end;
 writeln(maxx);
 end;
end.

Thảo luận

-- Không biết nữa @@
-- Vừa nhập xong 2 +-++-- Bấm enter để nhập tiếp, chưa nhập thì nó xuất ra kq luôn
-- @@ chả qua tại bạn kia không biết vào ra bằng tệp thôi
-- ak thế thì nhập luôn dòng thứ 2 :))
-- Chắc vậy .-. Nếu là file thì đã dễ hơn rồi ._. Cơ mà học chương trình 12 sao chưa học file nhỉ .-.
-- nhập ra dòng thứ nhất nó in luôn ra kq dòng 1, sau đó lại nhập tiếp dòng thứ 2 thì nó lại in ra kq dòng 2,..., nhập dòng n in ra kq dòng n @@
-- cx chưa bt, tui lớp 8 đã học file rồi
-- Thực sự .-. Lớp 8 tớ cũng học file rồi -.-

Lời giải 2 :

như thế này

uses math;
var t,i,d,maxx,q:longint;
    st:string;
begin
readln(t);
for q:=1 to t do
 begin
 readln(st);
 d:=0; maxx:=0;
 for i:=1 to length(st) do
  begin
  if st[i]='+' then inc(d) else dec(d);
  maxx:=max(maxx,d);
  end;
 writeln(maxx);
 end;
end.

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 12

Lớp 12 - Năm cuối ở cấp tiểu học, năm học quan trọng nhất trong đời học sinh trải qua bao năm học tập, bao nhiêu kì vọng của người thân xung quanh ta. Những nỗi lo về thi đại học và định hướng tương lai thật là nặng. Hãy tin vào bản thân là mình sẽ làm được rồi tương lai mới chờ đợi các em!

Nguồn : ADMIN :))

Copyright © 2021 HOCTAP247