Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2008, 21:12   #1
Flur
 
Регистрация: 02.12.2008
Сообщений: 8
Стрелка помогите с заданиями по делфи

работа на делфи

Задание 4.
1. Проверить, все ли цифры данного натурального числа N различны.
2. Из данного натурального числа удалить все цифры А. А задается.
Тема. Программирование с использованием массивов.
Задание 5.
Во всех заданиях по теме «Массивы» массивы представлять на форме в виде компонентов TStringGrid, в которых 0-й столбец и 0-ю строку использовать для отображения индексов массивов.
1. Дан двумерный массив размером N*M, заполненный случайным образом. Вставить после каждого столбца, содержащего значение равное нулю столбец из нулей.
2. Дан двумерный массив размером N*M, заполненный случайным образом. Поменять местами первый и последний столбцы.
Задание 6.
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-50,50]. Удалить из него все элементы, в записи которых последняя цифра равна 0.
2. Вставить значение минимального элемента массива после всех четных элементов.
Задание 7.
Выполнить действия над массивами.
1. Заменить максимальный по модулю отрицательный элемент массива нулем.
2. Заменить первые к элементов массива на противоположные по знаку.
Тема. Программирование с использованием строк.
Задание 8.
1. Дан текст на русском языке и некоторая буква. Подсчитать, сколько слов начинается с указанной буквой.
2. Дан зашифрованный русский текст. Каждая буква заменяется на следующую за ней (буква я заменяется на а). Получить _новый текст, содержащий расшифровку данного текста.
Тема. Программирование с использованием файлов.
Задание 9.
При выполнении индивидуального задания необходимо текст считать из текстового файла. Результат выполнения программы записать в исходный файл.
1. В тексте заменить все двоеточия ( точкой с запятой (. Подсчитать количество замен.
2. Определить, сколько раз в тексте встречается заданное слово.
кто может помогите, пожалуйста
Вложения
Тип файла: txt Задания.txt (2.3 Кб, 136 просмотров)

Последний раз редактировалось Flur; 02.12.2008 в 22:16.
Flur вне форума Ответить с цитированием
Старый 02.12.2008, 23:04   #2
VVM
Форумчанин
 
Аватар для VVM
 
Регистрация: 06.06.2007
Сообщений: 282
По умолчанию

Уверен, что это можно сделать проще и более рационально, но моим мозгом плавно овалдевает сон...
Код:
//1. Проверить, все ли цифры данного натурального числа N различны.
procedure TForm1.Task41(Value: integer);
var
  Str: string;
  I, J: integer;
begin
  Str := IntToStr(Value);
  for I := 1 to Length(Str) do
    for j := I + 1 to Length(Str) do
      if Str[i] = Str[j] then
      begin
        ShowMessage('Найдено совпадение!');
        Break;
      end;
end;
//2. Из данного натурального числа удалить все цифры А. А задается.
procedure TForm1.Task42(Value, A: integer);
var
  Str, StrA: string;
  I: integer;
begin
  Str := IntToStr(Value);
  StrA := IntToStr(A);
  I := 1;
  while I < Length(Str) do
  begin
    if Str[i] = StrA then
    begin
      Delete(Str, I, 1);
      Task42(StrToInt(Str), StrToInt(StrA));
    end;
    inc(I);
  end;
end;
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.
VVM вне форума Ответить с цитированием
Старый 03.12.2008, 16:18   #3
Flur
 
Регистрация: 02.12.2008
Сообщений: 8
По умолчанию

Спасибо те большое!
я 8 задание сделал. помогите с остальными.
Flur вне форума Ответить с цитированием
Старый 03.12.2008, 21:07   #4
Flur
 
Регистрация: 02.12.2008
Сообщений: 8
По умолчанию

где все програмисты?!?!?!?!?!
Flur вне форума Ответить с цитированием
Старый 04.12.2008, 01:14   #5
VVM
Форумчанин
 
Аватар для VVM
 
Регистрация: 06.06.2007
Сообщений: 282
По умолчанию

При выполнении индивидуального задания необходимо текст считать из текстового файла. Результат выполнения программы записать в исходный файл.
1. В тексте заменить все двоеточия ( точкой с запятой (. Подсчитать количество замен.
Вложения
Тип файла: rar 9_1.rar (231.1 Кб, 30 просмотров)
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.
VVM вне форума Ответить с цитированием
Старый 04.12.2008, 01:39   #6
VVM
Форумчанин
 
Аватар для VVM
 
Регистрация: 06.06.2007
Сообщений: 282
По умолчанию

2. Определить, сколько раз в тексте встречается заданное слово.
кто может помогите, пожалуйста
Вложения
Тип файла: rar 9_2.rar (232.7 Кб, 25 просмотров)
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.
VVM вне форума Ответить с цитированием
Старый 04.12.2008, 09:53   #7
Flur
 
Регистрация: 02.12.2008
Сообщений: 8
По умолчанию

"VVM" респект. Большой те REСпект!
Flur вне форума Ответить с цитированием
Старый 04.12.2008, 22:06   #8
Flur
 
Регистрация: 02.12.2008
Сообщений: 8
По умолчанию

здесь всего один програмист чтоли?!?!?!
вас же много откликнитесь....
Flur вне форума Ответить с цитированием
Старый 05.12.2008, 18:44   #9
Flur
 
Регистрация: 02.12.2008
Сообщений: 8
По умолчанию

так тяжело чтоли с масивами работать??? и хде же вы програмисты?!?!?!

Последний раз редактировалось Flur; 06.12.2008 в 11:06.
Flur вне форума Ответить с цитированием
Старый 05.12.2008, 19:17   #10
chnry
Пользователь
 
Регистрация: 18.12.2007
Сообщений: 10
По умолчанию

Привет Flur!
Стучись в аську 393877884. За умеренную плату сделаю все твои задания.
chnry вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с заданиями в PASCAL LLIypLLIyH Помощь студентам 8 11.06.2008 11:51
Помогите с заданиями в Excel Arxan Помощь студентам 5 15.05.2008 20:29
Помогите плиз с заданиями по Delphi7 grum Помощь студентам 1 01.03.2007 14:29