Помогите завершить программу по Паскалю

[nashi_lydi]

Здравствуйте! Помогите пожалуйста завершить программу: "Дана строка символов. Подсчитать сколько среди символов данной строки встречается буква x".

Вот программа:

program lab;
uses crt;
var s1:string [10];
    i,j:integer;
begin
    writeln ('vvedite stroku');
    readln (s1);
    i:=length (s1);
    for j:=1 to i do
    If s1[j]='x' then
    writeln (s1[j]);
    end.

. Заранее благодарен!!!

[Lakers]

program lab;
uses crt;
var s1:string [10];
    i,j,c:integer;
begin
    writeln ('vvedite stroku');
    readln (s1);
    i:=length (s1);
    c:=0;
   for j:=1 to i do
    If s1[j]='x' then inc(c);
    writeln (c);
    end.

[TolkienDRR]

ну и сразу для развития:

uses crt;
var s1 : string; {означает, что длина максимальная длина строки будет 255, а не как ранее было 10}
  j, c : integer;
begin
  writeln ('vvedite stroku');
  readln (s1);
  {уберем вот это  i:=length (s1);     потому что можно сразу написать так}
  for j:=1 to length(s1) do
    If s1[j]='x' then inc(c);
  writeln (c);
end. 

в коде убрал еще c:=0; - при инициализации глобальных переменных (т.е. в var основной программы) переменные принимают значения 0. поэтому можно не писать это дважды.

а в целом код очень даже нормальный, даже кажется, что человек действительно хочет сделать сам.

ЗЫ inc© равнозначно c:=c+1.

[L0K1]

а в целом код очень даже нормальный, даже кажется, что человек действительно хочет сделать сам.

Согласен, удивляют и отступы. Даже поверил в светлое будущее.

Мне кажеться, что практичнее было бы:

len := length(s1);
for j:=1 to  len do
	if s1[j]='x' then
		inc(c);

Так длина s1 будет вычисляться только один раз, или это чисто сишный прикол? Паскаль откровенно говоря подзабыл.

[Lakers]

в паскале также будет вычислять несколько раз

[TolkienDRR]

   Ничего подобного, в паскале вычислится 1 раз. В паскале запрещено менять границы цикла for. Так что высчитываться будет 1 раз =)

[L0K1]

   Ничего подобного, в паскале вычислится 1 раз. В паскале запрещено менять границы цикла for. Так что высчитываться будет 1 раз =)

Спасибо, запомним. А то сишная параноя на оптимизацию дает знать о себе.

[xucc]

ну и сразу для развития:

в коде убрал еще c:=0; - при инициализации глобальных переменных (т.е. в var основной программы) переменные принимают значения 0. поэтому можно не писать это дважды.

Не на всех версиях Pascal'я происходнит "обнуление" переменных. Тем более что в процедурах и функциях, такого не происходит вообще, на сколько я знаю Интересно, каково потребление ресурсов при двойной инициализации перменных? Так ли ощутимо?

[TolkienDRR]

Тем более что в процедурах и функциях, такого не происходит вообще

при инициализации глобальных переменных

на каком это паскале не происходит обнуление глобальных переменных? можно сцыль?

[xucc]

Вот же ж блин! Про глобальные - пардон, а ведь действительно даже в TurboPascal 1.0 глобальные перменные обнуляются. Во всяком случае, переменные типа integer. Хм... но я же стопудово помню, как наши любимые преподаватели (один, не все) предупреждали, что такое происходит только с шестой версии турбопаскаля.

Виноват.

[TolkienDRR]

xucc

=) вот и я кажись помнил, что всегда обнулялись при выделении памяти =)

а так, ничего страшного, со всеми бывает =)

[Polkan]

nashi_lydi

в ЦИТЕ учишься? <_<

[nashi_lydi]

Polkan в ВСГТУ

[TolkienDRR]

   nashi_lydi, статист чтоль? о_О только сча понял, нет же паскаля уже у спец-тей ЭВС, МОАИС и ПОВТАС =)

[Go-ger]

Помогите кто-нибудь составить программу, на тему: Обработка строк.

Вот текст задачи: Дан текст длиной 10 символов. Слова текста разделены пробелом. Сформировать новый текст, включив в него слова заданного и разделив их двумя пробелами.

Зарание спасибо.

[Sheleh]

program lab;
uses crt;
var s1,s2:string;
    i:integer;
begin
  clrscr;
  writeln('vvedite stroku');
  readln(s1);
  for i:=1 to length(s1) do //начинаем цикл от первого символа до конца строки
   begin
     s2:=s2+s1[i];                       //добавляем текущий символ в новую строку
     If s1[i]=' ' then s2:=s2+' ';  //Если текущий смвол равен пробелу, добавляем сверху ышо один
   end;
  writeln(s2);
end.

[Go-ger]

Спасибо, всё ясно и понятно

[shaman4eg]

Помогите пожалйста! Нужно найти одинаковый элемент в двух разных массивах и индексы должны быть одинаковы. Плииз

for i:=1 to n do
for j:=1 to n do
if a[i]=b[j] to then do begin g:=g+1; h:=h-1;
end;
for i:=1 to n do
for j:=1 to n do
writeln('вывод',a[i],b[j],   g,    h );
end.

Добавлено спустя 1 минуту 15 секунд:

А что в паскале a=b[j] не проканает? а как записать?

[JSTQ]

for i:=1 to n do
if (a[i]=b[i]) then
begin
 inc(g);
 dec(h);
end;

?

[shaman4eg]

Кароче вот условие: "Коровы и быки". Программа выбирает с помощью датчика случайных чисел четырехзначное число с разными цифрами. Угадать это число. На каждом шаге играющий называет четырехзначное число, а программа сообщает, сколько цифр числа угадано ("быки") и сколько цифр угадано и стоит на нужном месте ("коровы"). Например, если программой задано число 1294, а играющий назвал 1423, он получит ответ: "1 корова, 3 быка".

Думаю надо использовать такой метод)

program igor;
uses crt;
const n=3;
var a:array[1..n] of integer;
b:array[1..n] of integer; i,g,z,h,j:integer;
begin
clrscr;
randomize;
for i:=1 to n do
a[i]:=random(100);
writeln('Введите 4 число');
for j:=1 to n do
read(b[j]);
begin
h:=4;
g:=0;
for i:=1 to n do
for j:=1 to n do
if a[i]=b[j] to then do begin g:=g+1; h:=h-1;
end;
for i:=1 to n do
for j:=1 to n do
writeln('вывод',a[i],b[j],   g,    h );
end.