Задачи на строки и массивы+1 на последовательность Опции

[mafia1232]

в var не надо count прописать? а то у меня ругается
как writeln написать? чтобы кол-во букв "а" выводил ?

Сообщение отредактировано: mafia1232 - 2.06.2005 14:28

[mafia1232]

а код пока такой получился

program p14;
uses crt;
var
s:string;
l,i,count:integer;
begin
clrscr;
writeln('vvedite stroky');
readln(s);
l:=length(s);
{podschet kol-vo bykv a}
count:=0;
for i:=1 to l do
  if s[i]='a' then inc(count);
   writeln('bykv a=',count);
   readln;
        end.

Сообщение отредактировано: mafia1232 - 2.06.2005 14:26

[hiv]

Паскаль это не басик! В нем все переменные должны прописываться и инициализироваться. Это в басике взял переменную и использовал (тип сам подберется и нулем проинициализируется или пустой строкой). Еще раз - УЧИ МАТЧАСТЬ!
ЗЫ: Код правильный - так держать! Только в предпредпоследней строке наверно ты хотел выдать значение счетчика - тогда

writeln('Букв А=',count);

Сообщение отредактировано: hiv - 2.06.2005 14:14

[mafia1232]

а как тогда посчитать самое короткое слово, чего -то искал, но не нашел.
допустим Иванов Алексей Петрович как сделать чтоб именно слово "иванов"
он посчитал самым коротким?

Сообщение отредактировано: mafia1232 - 2.06.2005 14:28

[mafia1232]

Вывести самое короткое слово.

Если нет, то выкладывай код - поможем!

ну помогите код выше постом

[hiv]

берешь снова счетчик и считаешь количество букв (не пробелов) пока не встретишь пробел, т.е. слово закончилось. Потом сравниваешь значение счетчика с переменной min, в которой будет храниться минимальное значение счетчика. А его инициализируешь значением длины всей строки. И если счетчик меньше, то его значение присваиваешь переменной min.
А еще гдянь сюда: FAQ: разбиение строки на слова

[mafia1232]

а ты просто написать не можешь? щас уезжать надо на зачет и времени думать нету. напиши плиз. :molitva: :molitva:
:molitva: hiv :molitva:
:molitva: :molitva:

[hiv]

Здесь вообще-то помогают тем кто хочет учиться. А ты досиделся пока сдавать пора не пришла. На:

Исходный код

program p14;
uses crt;
var
s,ss,sm:string;
l,i,count,min:integer;
begin
clrscr;
writeln('vvedite stroky');
readln(s);
l:=length(s);
writeln('Dlina stroki=',l);
{podschet kol-vo bykv a}
count:=0;
for i:=1 to l do
if s[i]='a' then inc(count);
writeln('bykv a=',count);

min:=l;
sm:='';
ss:='';
i:=1;
while i<=l do
begin
if s[i]=' ' then
begin
ss:='';
while (i<=l)and(s[i]=' ') do inc(i);
end
else
begin
while (i<=l)and(s[i]<>' ') do
begin
ss:=ss+s[i];
inc(i);
end;
if length(ss)<min then
begin
min:=length(ss);
sm:=ss;
end;
end;
end;
writeln('Korotkoe slovo=',sm);
writeln('Dlina korotkogo slova=',length(sm));

readln;
end.

ЗЫ: Сам разбирайся. No comments!

[mafia1232]

спасибо огромное, но я до конца не досидел. дали еще 2 недели на все эти задачи и еще 3 прибавили, их я пока сам помучаю.

[mafia1232]

исправте(если неправильно) и добавте по условию
создать массив и найти в нем max элемент и поменять у элемента знак на противоположный.
и выводит массив с измененным элементом.
от что получилось, но не работает, хотя списал из справочника (задача была с похожими условиями на поиск максимального значения)

Код

program p3;
uses crt;
type
vector=array [1..100] of integer;
var
A:vector;
i,n,k:integer;
max:real;
begin
clrscr;
writeln('vvedite razmernost');
readln(n);
for i:=1 to n do
begin
write('vvedite [',i,'] elementov massiva');
readln(A[i]);
end;
writeln('massive A');
for i:=1 to n do
write (A[i]:3,'');
writeln;
for i:=1 to n do
read(A[i]);
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
writeln('maximalniu element massiva:  ',max:6:2);
end.

Сообщение отредактировано: mafia1232 - 23.06.2005 15:10

[hiv]

Вот так будет работать, если от куда-то списываешь, то правильно списывай!

program p3;
uses crt;
type
vector=array [1..100] of integer;
var
A:vector;
i,n:integer;
max:integer;
begin
clrscr;
writeln('vvedite razmernost');
readln(n);
for i:=1 to n do
begin
write('vvedite [',i,'] elementov massiva');
readln(A[i]);
end;
writeln('massiv A');
for i:=1 to n do
write(A[i]:3,' ');
writeln;
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
writeln('maximalniu element massiva:  ',max);
end.

[mafia1232]

и вот на последовательность
последовательность задается формулой (((-1)^n)*(2^n))/n
вывести сумму членов ряда и первые члены
задача без процедур. лекая, но я забыл как решать аж стыдно

насчет массива: все работает после добавления readln ( ) , но как помять знак на противополжный (было 10--->-10) и вставить обратно это число в массив и вывести новый массив на экран?

Сообщение отредактировано: mafia1232 - 23.06.2005 15:32

[klem4]

эээ... ну наверное всетаки надо искать номер максимального элемента , а не его значение

nmax:=1;
for i:=2 to n do
 if x[i]>x[nmax] then
   nmax:=i;
x[nmax]:=-x[nmax];

[mafia1232]

ну и куда вставить твои строчечки?(объясни) и как сделать то , что я накалякал в Сегодня, 12:27 PM

Сообщение отредактировано: mafia1232 - 23.06.2005 15:34

[volvo]

mafia1232,
ты думать САМ когда-нибудь начнешь? Смысл какой ЗА ТЕБЯ делать задачи? Потом ты получишь диплом, и что? Так что начинай думать. Уж

куда вставить твои строчечки?

можно самому догадаться...

[klem4]

на, не мучайся уже ...

uses crt;

type

    Vector = array[1..100] of integer;

var
          a : Vector;

   i,n,nmax : integer;

Begin

   clrscr;

   write('n='); readln(n);

   for i:=1 to n do begin
       write('a[',i,']=');
       readln(a[i]);
   end;

   nmax:=1;

   for i:=2 to n do
    if a[i]>a[nmax] then
     nmax:=i;

   a[nmax]:=-a[nmax];

   writeln;

   for i:=1 to n do
    writeln('a[',i,']=',a[i]);

   readln;

end.

Сообщение отредактировано: klem4 - 23.06.2005 15:48

[mafia1232]

какой к черту диплом? у меня специальность не програмист. это так общепознавательный предмет. и в этом году он заканчивается. на 2 курсе его не будет.
спасибо за задачу.

Сообщение отредактировано: mafia1232 - 23.06.2005 15:57

[mafia1232]

последовательность задается формулой (((-1)^n) * (2^n))/n
вывести сумму членов ряда и первые члены

про последовательность. вот мой код

Код

program p2;
uses crt;
var
a,i,n:integer;
s,s1:real;
begin
clrscr;
writeln('vvedite n');
readln(n);
for i:=1 to n do
begin
a:=((exp(i)*ln(-1))*(exp(i)*ln(2))/i)
s:=s+1;
end;
writeln('summa =  ',s:8:3);
readln;
end.

вопросы:
1)как вывести первые члены последовательности
2) про s он пишет, что тип не подходит! на что заменить?
3)как ln(-1) по другому задать, а то чисто математически работать не будет.

Сообщение отредактировано: mafia1232 - 23.06.2005 21:35

[klem4]

Естественно это не будет работать ... во первых там у тебя полная ерунда написана ... ну например Ln(-1) это чему равно по твоему ?

[mafia1232]

про ln я знаю и это один из вопросов
ввести переменную d=ln(1), а d потом возвести в степень -1?

Сообщение отредактировано: mafia1232 - 23.06.2005 16:44