Помогите кто знает паскаль, а то я полный ноль в нем((( - Форум
Понедельник, 05.12.2016, 07:28
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите кто знает паскаль, а то я полный ноль в нем((( (задачи по паскалю)
Помогите кто знает паскаль, а то я полный ноль в нем(((
AzartДата: Четверг, 19.03.2009, 20:41 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Задача:
Составить программу подсчёта числа одинаковых букв, стоящих на одних и тех же местах в словах Х и У

ПОМОГИТЕ!!!!!!!!!!!!!!!! КТО НИБУДЬ!!!!!!!!!!!!!!


))))))))

Сообщение отредактировал Azart - Четверг, 26.03.2009, 15:54
 
notnotДата: Четверг, 19.03.2009, 23:23 | Сообщение # 2
Генерал-лейтенант
Группа: Активный пользователь
Сообщений: 54
[ 10 ]
Статус: Offline
и снова условие. а что должна делать программа, если в предложении одно слово?
я написала чтобы ругалась и выкидывала. если хочешь, чтобы считала количество К в этом слове - следуй указаниям в каментах

Code
program abc;

uses crt;

var
    s,buf : string;
    i,k,count : integer;
    yes:boolean;

begin
ClrScr;
Write('Vvedite stroku: ');
Readln(s);
yes:=false;
count:=0;
for i:=length(s) downto 1 do
    if (s[i]=' ') then
    begin
       yes:=true;
       break;
    end;
k:=length(s);
buf:='';
if yes = true then
begin
    while (k>1) and (s[k]<>' ') do
    begin
       buf:=buf+s[k];
       dec(k);
    end;
end
{else buf:=s; esli xo4ew s4itat' K v odnom slove raskomment etu,
               no udali sled 5 strok}
else
begin
    writeln('v predlozhenii odno slovo');
    readln; exit;
end;
for i:=1 to length(buf) do
    if (buf[i]='k') or (buf[i]='K') then
       inc(count);
if count<>0 then
    writeln('bukv k = ',count)
else
    writeln('bukvi k v posl slove net');
ReadLn;
end.


я - девушка!! +_+
 
AzartДата: Четверг, 26.03.2009, 15:43 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
спасибо большое за задачу!!!!!!!!
премного благодарен раально


))))))))
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите кто знает паскаль, а то я полный ноль в нем((( (задачи по паскалю)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016