VPF::[Delphi] Масивы - Форум программистов

Kirgston

Дата 24.12.2007, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2

Ребят очень прошу помоч т.к. в масивах я не бум-бум а завтра надо здавать.
1. Зделайте програмный код для вычесления количества символов "*" и "%" в строке что вводитса в окно Edit . Сообщение о количестве найденых символов выведести в окно Memo
2. Зделайте програмный код для табуляцыи функцыи f(x) на промежутке [0,100] с шагом h=0,1 * 15
f(x)=log10(x)/sqrt(2x(в кубе)+3
Вычеслите количество елементов созданого масива. Значение елементов масива выведете на екран с использованием компонента StringGrid.
3.Вычислите средьнее арефметичное значение елементов масивазделаного в задании 2.

Hang

Дата 24.12.2007, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 16.12.2007
Где: Вологда

Репутация: 1
Всего: 3

Цитата

1. Зделайте програмный код для вычесления количества символов "*" и "%" в строке что вводитса в окно Edit . Сообщение о количестве найденых символов выведести в окно Memo

Код


procedure TForm1.Button1Click(Sender: TObject);
var
    st: String;
    i:  Integer; //счетчик
    k1: Integer; //для подсчета символов *
    k2: Integer; //для подсчета символов %
begin
  st:=Edit1.Text;
  k1:=0;
  k2:=0;
  Memo1.Clear;
  for i:=1 to Length(st) do
  begin
    if st[i]='*' then
      inc(k1);  //k1:=k1+1;
    if st[i]='%' then
      inc(k2);  //k2:=k2+1;
  end;
  Memo1.Lines.Add('Количество символов "*" = '+IntToStr(k1));
  Memo1.Lines.Add('Количество символов "%" = '+IntToStr(k2));
end;

Это сообщение отредактировал(а) Alexeis - 24.12.2007, 20:21

THandle

Дата 24.12.2007, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Hang, пользуйся кнопкой "Код".

Hang

Дата 24.12.2007, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 16.12.2007
Где: Вологда

Репутация: 1
Всего: 3

Цитата

f(x)=log10(x)/sqrt(2x(в кубе)+3

где закрывается скобочка: sqrt(2x(в кубе)+3 ???

Добавлено через 2 минуты и 5 секунд
THandle, в следующий раз так и сделаю! (не знал просто)

Kirgston

Дата 24.12.2007, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2

f(x)=log10(x)/(√(2x^3 )+3)

Alexeis

Дата 24.12.2007, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Kirgston

Дата 24.12.2007, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2

вот более понятная формула

Присоединённый файл ( Кол-во скачиваний: 7 )

__________.JPG 3,74 Kb

Hang

Дата 25.12.2007, 01:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 16.12.2007
Где: Вологда

Репутация: 1
Всего: 3

Цитата

2. Зделайте програмный код для табуляцыи функцыи f(x) на промежутке [0,100] с шагом h=0,1 * 15
f(x)=log10(x)/sqrt(2x(в кубе)+3
Вычеслите количество елементов созданого масива. Значение елементов масива выведете на екран с использованием компонента StringGrid.
3.Вычислите средьнее арефметичное значение елементов масивазделаного в задании 2.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const h=0.1*15;
var
    i,k: Integer;
    f,x,sum: Real;
    a: array[0..100] of Real;
begin
  {for i:=0 to 100 do
    a[i]:=0;           }
  StringGrid1.ColCount:=1;   //можно сделать
  StringGrid1.FixedCols:=0;  //в свойствах
  StringGrid1.FixedRows:=0;  //StringGrid'a
  x:=0;                      //функция не может принимать значение x=0, т.к. log10(x), где x>0
  k:=0;
  sum:=0;
  for i:=0 to 100 do
  begin
    if x<=100 then           //рассматриваем интервал от 0 до 100
    begin
      x:=x+h;
      a[k]:=log10(x)/(sqrt(2*x*x*x)+3);
      inc(k);
    end
    else break;
  end;
  StringGrid1.ColCount:=k;
  Label1.Caption:='Количество элементов созданного массива = '+IntToStr(k);
  for i:=0 to k-1 do
  begin
    StringGrid1.Cells[i,0]:=FloatToStrF(a[i],ffFixed,10,6);
    sum:=sum+a[i];
  end;
  Label2.Caption:='Среднее арифметическое = '+FloatToStrF(sum/k,ffFixed,15,6);
end;

end.

Это сообщение отредактировал(а) Hang - 25.12.2007, 01:55

Kirgston

Дата 25.12.2007, 08:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2

Большое спасибо! ))) Токо вопрос по заданию 2. Оно у тебя работает?))) у меня при компиляцыи 0 ошыбок все хорошо а вот ничево не выводитса на екран )))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »