помогите с лабой на delphi 7. Дана строка символов. В строке имеется несколько символов ‘.’. Выделить подстроку между первой и последней точкой. красиво оформить
Матрица A(n,m) содержит вещественные числа. Определить количество столбцов и их номера, в которых сумма максимального и минимального элементов больше числа b. пытался сделать эту лабу основное задание получилось, но проблема с контролем ввода данных в компоненты. вот что вышло: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Menus; type TForm2 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; Edit1: TEdit; Label1: TLabel; Edit2: TEdit; Label2: TLabel; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; procedure StringGrid1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure StringGrid1KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.StringGrid1Click(Sender: TObject); Var i,j: integer; begin with StringGrid1 do begin i:=0; for j:=1 to RowCount - 1 do Cells[i,j]:= IntToStr(J); J:=0; {строка 0} For I:=1 to ColCount - 1 do Cells[i,j]:= IntToStr(i); end; end; procedure TForm2.Button1Click(Sender: TObject); Var max,min: real; i,j,k: integer; P: Boolean; begin {как сделать этот момент более рационально или после вывода ShowMessage программа не завершалась, и не закрывалась а была возможно доконца заполнить матрицу} with StringGrid1 do begin for i:= 1 to RowCount-1 do for J:=1 to ColCount-1 do if Cells[j,i]='' then p:=True; if p=True then ShowMessage('Заполните матрицу полностью!'); K:=0; for i:= 1 to ColCount-1 do Begin Min:= StrToFloat(Cells[i,1]); for j:=1 to RowCount-1 do if StrToFloat(Cells[i,j])< min then Min:= StrToFloat(Cells[i,j]); Max:= StrToFloat(Cells[1,1]); for j:=1 to RowCount - 1 do if StrToFloat(Cells[i,j])> max then Max:= StrToFloat(Cells[i,j]); If Max+Min> StrToFloat(Form1.Edit3.Text) then Begin k:=K+1; Edit2.Text:=Edit2.Text + ' ' + FloatToStr(i)+ ','; end; end; Edit1.Text:=FloatToStr(k); end; end; procedure TForm2.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0','1','2','3','4','5','6','7','8','9','-',',']) then Key:=#0 end; end.
Помогите пожалуйста! на с++ Разработать алгоритм и написать программу решения СЛАУ методом Гаусса с частичным выбором ведущего элемента. Требования к программе: 1.Программа должна позволять задавать порядок матрицы с клавиатуры. 2.Коэффициенты матрицы и вектора свободных членов должны задаваться либо случайным образом, либо с клавиатуры. 3.Программа должна иметь возможность подставить вектор полученного решения в систему для проверки правильности полученных результатов.
Народ кто нибудь дайте пожалуйста алгоритм Транспонирования матрицы на С++ ! Транспонирование нужно проводить как над квадратной матрицей так и над не квадратной !
Помогите пожалуйста... Собсна сама задачка: Дан массив b из 10 элементов организовать новый массив элементы которого расположены в обратном порядке (На паскале)
Пожалуйста Code: program massiv_perevertish; const n=10; var a,b:array [1..n] of word; x:word; begin writeln ('Массив b'); for x:=1 to n do begin b[x]:=random(100); write(b[x]:4); end; for x:=1 to n do a[x]:=b[n+1-x]; writeln; writeln ('Массив a'); for x:=1 to n do write (a[x]:4); end.
Госпади, ну и задачи... Code: program test; var b:array[1..10] of integer; a: array[1..10] of integer; c,i:integer; begin for i:=1 to 10 do b[i]:=random(200); c:=11; for i:=1 to 10 do begin c:=c-1; a[c]:=b[i]; end; end.
Я бы писал так: Code: const n=10; var a:array[1..n] of integer; b: array[1..n] of integer; i:integer; begin for i:=1 to n do begin b[i]:=random(100); write(b[i]:4); end; writeln(); for i:=1 to n do begin a[i]:=b[n-i+1]; write(a[i]:4); end; writeln(); end.
на турбопаскале....помогите написать пару задачек Code: Пpогpамма. Дана непустая оследовательность слов из стpоч- ных pусских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном поpядке все звонкие согласные буквы, котоpые входят более чем в одно слово. вторая задачка Code: Даны два предложения, состоящие не менее чем из 5 слов. Слова каждого предложения заменить на совпадающие с ними по длине слова из другого предложения (Заменять на соот- ветствующие по счёту слова - например, второе слово пер- вого предложения из 5 букв заменить на второе встретив- шееся слово из 5 букв во втором). и последняя Code: type строка=array [1..16] of char; дата=record число:1..31; месяц:1..12; год:1900..1979 end; анкета=record фамилия:строка; пол:(муж, жен); деньрожд:дата end; группа=array [1..25] of анкета; Описать процедуру печ (Гр,Бук), печатающую все фамилии лю- дей из группы Гр, начинающиеся с литературы Бук, и даты рождения этих людей.
Необходимо зашифровать(RSA) видео или аудио файл. По RSA вопросов нет, а вот как изменять видео или аудио? (Delphi)
в строке записаны слова вперемешку с целыми числами.подсчитать кол.и сумму всех чисел в строке.например для строки qwerty45easdf54 результат должен быть 2 и 99-два целых числа,сумма которого равна 99-ти. тут нужно использовать входной и выходной файл (input.txt and output.txt) лабы на free pascale ... парни плиз помогите завтра сдавать аж три лабы,а ни одной нету... хотя бы эту,если кто может реально помоч с еще двумя то стукни в аську 409829 зарание благодарю
Отрицательные числа могут быть? Если нет, то вот вариант, если да, то напиши. Code: program symma; var str,str1:string; n,len,x,s,k:word; err:integer; f:text; begin assign (f, 'input.txt'); reset (f); readln (f,str); close (f); len:=length(str); n:=1; while n<=len do begin if (str[n]>'0') and (str[n]<'9') then str1:=str1+str[n] else if str1>'' then begin k:=k+1; Val(str1, x, err); s:=s+x; str1:=''; end; n:=n+1; end; if str1>'' then begin k:=k+1; Val(str1, x, err); s:=s+x; str1:=''; end; assign (f, 'output.txt'); rewrite(f); writeln (f,'Количество: ',k); writeln (f,'Сумма: ',s); close (f); end.
Здравствуйте, помогите пожалуйста: Нужна програмка на Delphi по табулированию функции, где F(x,a)= a*X^4+B*Ln(x^2+B^2) табулируемая функция. B-число, Табулирование нужно выполнить при заданных значениях: Xn,Dx,N - где начальное значение, шаг и количество значений изменяемых с данным шагом соответсвенно An,Ak,Da - где начальное, конеченое значения и шаг соответственно. Мне бы хотя бы просто примерную схему набросать, буду очень благодарен.
Можете еще помоч? нужно вывести несколько строк треугольника паскаля,используя не более одного одномерного массива(Т.е хранить только текущую строку) и еще одна тоже вывести треугольник паскаля использую формулу биноминальных коэфициэнтов.Факториал реализовать РЕКУРСИВНО) Зарание преблагодарен
Все таки может кто то помочь с транспонированием матрицы !? Квадратную матрицу - транспонирую без проблем , а вот с не квадратной - не выходит ! 2 fker : Зашел я на топик что ты указал , и посмеялся ) Народ даже вопрос не сообразил , объясняли мне что приведены выше в топике код транспонирует и не квадратную матрицу - хотя ето не так )))