Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > ПОМОГИТЕ!!!!!!! РЕШИТЬ ЗАДАЧИ ПО ДЕЛФИ ПЛИ

Автор: Shade 6.3.2005, 14:11

Здраствуйте, помогите пожалусто решить пару задач. Буду вам очень благодарен. Для некоторых эти задачи покажутся смешными но я в делфи обсолютный ньюб-) Вот список задач кто знает как ее решить пишите номер и решение заранее спасибо и если не составит труда укажите какие кампоненты надо вынести на форм. Если что обращайтесь я вам помогу чем смогу, в веб дизайне силен) а вот и список
№1 При помощи класа, используя инкапсуляцию решить уравнение y=ax+b/c
№2При помощи класа используя инкапсуляцию найти среднее арифмитическое из 10 чисел
№3Дан класс содержащий в себе поля ФИО, Месяц, Зарплата. Найти среднюю зарплату человека за год(12 месяцев), кол-во человек-5ю Найти людей средняя зарплата каторых больше заданой суммы.
№4Дан одномерный масив состоящий из 10 элементов, упорядочить по возрастанию.
№5Дан одномерный масив поменять 1 элемент с последним 2 с предпоследним и т.д.
№6Используя Ini-файл осуществить сохранение (при закрытии) и востановление (при открытии)следущих параметров- Расположение ее формы на экране, ее размер, цвет. Все параметры можно изменять программно.
№7Сохранить одномерный масив Ini-файл и считать его.
№8Используя Мемо- осуществить редактирование файла(основные операции), а также сохранить и загрузить.
№9Дан файл состоящий из 10 чисел найти среднее арифмитическое.
№10Дан файл вывести максимальное число
№11Дан файл найти все слова начинающиеся с буквы А
№12Дан нетипизированый файл вывести его содержание в Мемо

Автор: Pakshin A. S. 6.3.2005, 14:12

Если мне нарисуешь полностью дизайн сайта и все сопутствующее, то помогу решить... smile

Автор: Shade 6.3.2005, 14:14

Помоги сначало мне надо срочно(

Автор: Pakshin A. S. 6.3.2005, 14:16

Я могу только в понедельник вечером... smile

Добавлено @ 14:19
Модераторы! Только не закрывайте/удаляйте эту тему!!!!

Автор: Shade 6.3.2005, 14:19

Отпишеш тут решение ок?
мое мыло xxx_1_@rambler.ru
напиши что надо с дизайном и че за сайт

Автор: Fedor 6.3.2005, 14:22

Модератор: вообще, все это можно было и в привате обсуждать!!!

Автор: Shade 6.3.2005, 14:25

Извините, просто мне нужна срочно помощь

Автор: Pakshin A. S. 6.3.2005, 14:56

12: Memo1.Lines.LoadFrom('Demo.txt');
11:

Код


var
 s,s1: string;
begin
 Memo1.Lines.LoadFromFile('Demo.txt');
 s:=Memo1.Lines.Text;
 s:=s + ' ';
 Memo1.Lines.Text:='';
 while s <> ' ' do
  begin
   s1:=Copy(s, 1, Pos(' ', s));
   Delete(s,  1, Pos(' ', s));
   if s1[1]  = 'A'
    then
     Memo1.Lines.Add(s1);
  end; 
end;

10:

Код


var
 f:textfile;
 i:integer;
 max:integer;
begin
 AssignFile('Demo.txt');
 reset(f);
 read(f, max);
 while not Eof(f) do
   begin
    readln(f, i);
    if i > max
     then
      max:=i;
   end;
 CloseFile(f);
 ShowMessage(IntToStr(max));
end;

Код


var
 f:textfile;
 i:integer;
 s:integer;
 col:integer;
begin
 AssignFile('Demo.txt');
 reset(f);
 s:=0;
 col:=0;
 while not Eof(f) do
   begin
    readln(f, i);
    s:=s + i;
    col:=col + 1; 
   end;
 CloseFile(f);
 ShowMessage(FloatToStr(s/col));
end;

8: Посмотрите лекции... вам это должны были объяснять.
5:

Код


var
 a:array [1..10] of integer;
 nuf:integer;
 i:integer;
begin
 for i:=1 to 10 div 2 do
  begin
   buf:=a[i];
   a[i]:=a[10 - i +1];
   a[10 - i + 1]:=buf;
  end;
end;

Код


var
 i,j:integer;
 a: array....;
 buf:integer;
begin
 for i:=Low(a) to High(a) do
  for j:=Low(a) to High(a)-1 do
   if a[j] < a[j+1]
    then
     begin
      buf:=a[j];
      a[j]:=a[j+1];
      a[j+1]:=buf;
     end;
end;