Строки - Форум
Вторник, 06.12.2016, 08:44
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Строки (Pascal)
Строки
busterДата: Вторник, 29.03.2011, 16:19 | Сообщение # 1
Лейтенант
Группа: Новичок
Сообщений: 14
[ 0 ]
Статус: Offline
1.Введите строку. Посчитайте, сколько слов в ней начинается на букву А(слова разделены одним или несколькими пробелами);
2.Введите строку (слова разделены одним или несколькими пробелами). Удалите последнюю букву каждого слова.
3.Введите строку Замените в ней все "Н" на "НОН". Выведите результат на экран.
4.Введите строку. Удалите из неё часть текста, заключённую между первым и вторым пробелами.

помогите пожалуйста

 
roguДата: Вторник, 29.03.2011, 19:58 | Сообщение # 2
Генерал-лейтенант
Группа: Новичок
Сообщений: 52
[ 1 ]
Статус: Offline
icq 643966519
Нужно хорошее пиво smile

Добавлено (29.03.2011, 19:58)
---------------------------------------------

Code
program A;
var s:string;
        var m,i,sum :integer;
         begin
          writeln('Введите строку со словами начинающимися на А');
           readln(s);
         m:=length(s);

         for i:=0 to m do
         begin
         if((s[i]=' ') and (s[i+1]='А'))or ( (s[1]='А') and (i=1) ) then
         sum:=sum+1;
         end;
        writeln('sum=',sum);
         end.

Первое задание
 
NailДата: Вторник, 29.03.2011, 22:40 | Сообщение # 3
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
пиши в асю сделаю без проблемно все, 6688101
 
XTen1357Дата: Среда, 30.03.2011, 20:38 | Сообщение # 4
Генерал-майор
Группа: Заблокированные
Сообщений: 42
[ 0 ]
Статус: Offline
Если актуально, пиши ICQ#: 410-691-984
 
flash_kpiДата: Четверг, 31.03.2011, 15:30 | Сообщение # 5
Генералиссимус
Группа: Заблокированные
Сообщений: 118
[ 0 ]
Статус: Offline
Пишите, выполню
icq: 588002847
email: flash_1989@ukr.net
skype: rfhfcerf
 
busterДата: Четверг, 31.03.2011, 20:59 | Сообщение # 6
Лейтенант
Группа: Новичок
Сообщений: 14
[ 0 ]
Статус: Offline
Если кто, что сделает пишите пожалуйста решения в коментах
 
NailДата: Четверг, 31.03.2011, 22:02 | Сообщение # 7
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
Тебе задачки не кто не решит за бесплатно, решу по дешевке все задачки..
Mail: shakurovnail@mail.ru
Icq: 6688101
Skype: shakurovnail
 
BinaryWolfДата: Суббота, 02.04.2011, 13:35 | Сообщение # 8
Генерал-лейтенант
Группа: Новичок
Сообщений: 51
[ 0 ]
Статус: Offline
Quote (Nail)
Тебе задачки не кто не решит за бесплатно, решу по дешевке все задачки..
Mail: shakurovnail@mail.ru
Icq: 6688101
Skype: shakurovnail

Мудаки, решающие за деньги - не программисты


Луна, единственная спутница моя, отведи меня домой, залечи раны мои и помоги забыть всё.
 
NailДата: Суббота, 02.04.2011, 17:56 | Сообщение # 9
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
BinaryWolf, дай свой скайп пообщаюсь
 
XTen1357Дата: Суббота, 02.04.2011, 18:39 | Сообщение # 10
Генерал-майор
Группа: Заблокированные
Сообщений: 42
[ 0 ]
Статус: Offline
BinaryWolf, если такой умный, то что сам то не решить? только можешь коментировать я смотрю ...
Лично мне тратить своё время просто так не охото, если у тебя оно лишнее то решай а не коментируй ...
 
NailДата: Суббота, 02.04.2011, 19:45 | Сообщение # 11
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
XTen1357, Ты прав! Мы предлагаем лишь свои услуги! И не заставляем не кого!
 
XTen1357Дата: Суббота, 02.04.2011, 20:19 | Сообщение # 12
Генерал-майор
Группа: Заблокированные
Сообщений: 42
[ 0 ]
Статус: Offline
Вот, вот! и я о том же! мы предлагаем помошь по крайней мере! BinaryWolf а ты что сделал? ты просто пытаешься самоудостовериться(хотя даже непонятно в чём)! если такой умный то давай напиши заказчику задачки и выложи сюда!

А во вторых! На многих форумах есть разделы где помогут решить закачику задачи, но при условии если заказчик старался и приложил хотя бы какие то усилия! и в случае если у него не получается чегото он выкладывает код и уже знающие люди смотрят! а в данной теме была выложенны чисто условия задачек, и не строчки кода которые бы написал заказчик! так что это уже называется фриланс, а за него платят!

 
NiceДата: Воскресенье, 03.04.2011, 13:27 | Сообщение # 13
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
// Из введенных слов вывести все слова, начинающиеся с "а"
#include <conio.h>
#include <string.h>
#include <stdio.h>
main()
{ char str[80];
int L,i,j=1,k[10],n;
int m=1; // для строки, начинающейся с А, будет m=0 и k[0]=0
clrscr(); // для остальных m=1, и индекс k также начинается с 1
puts("soz tirkesi:");
gets(str); L=strlen(str);
for(i=0;i<L;i++)
if(str[i]==' ') {k[j]=i; j++;}
k[j]=L; //k[j] - позиции пробелов и конца слова
n=j; // n - кол-во введенных слов
if (str[0]=='а') { k[0]=0; m=0; };
for(j=m;j<=n;j++)
{ if(str[k[j]+m]=='а')
for(i=k[j]+m; i<k[j+1]; i++)
putchar(str[i]);
m=1; // для 2-го слова, начинающегося с А, и дальше m=1
printf(" ");
}
getch();
}
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Строки (Pascal)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016