Из файла ввести таблицу чисел (матрицу) и вычислить

Так обычно начинается общая часть типичной задачи для делфи паскаля или лазаруса. В этом посте решение задачи в которой необходимо из файла ввести таблицу чисел (матрицу) и  найти строку с максимальной суммой чисел и саму сумму. Для решения таких задач первая проблема это матрицу  из текстового формата перевести в числовой и запихать в двумерный массив. В условиях задачи ка правило предполагается что числа в  текстовом файле введены через пробел и строки разделены вводом (Enter). Для преобразования текстового символа в числовой есть стандартная функция a:=Strtoint(b);  где a  имеет тип integer b имеет тип string. Также при чтении и преобразовании строки стоит учитывать что элемент в матрице может состоять как из одной цифры так и из нескольких.  ниже приложена ссылка  на архив в котором решена эта задача на Лазарусе, но для Делфи принцип тот же, в архиве исполняемый файл, файл проекта и файл с простейшей матрицей, программный код снабжен комментариям и если вы хоть немного разбираетесь в программировании разобраться в этой задаче не составит вам труда , а также решить множество аналогичных задач. Задача Лазарус решение.

Решение квадратного уравнения на Делфи

делфи

Решение квадратного уравнения на делфи или лазарусе. Поля edit1, edit2, edit3 для ввода коэффициентов.  edit4 для вывода решения. При открытии формы коэффициент по умолчанию становятся равными единицы.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
Var a,b,c,d,x1,x2:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
d:=((b*b)-(4*a*c));
if d<0 then edit4.Text:=’Действительных корней нет’
else
if d=0 then
begin
x1:=(-b/(2*a));
edit4.text:=’Один действительный корень Х=’+floattostr(x1);
end
else
begin
x1:=((-b+sqrt(d))/(2*a));
x2:=((-b-sqrt(d))/(2*a));
edit4.text:=’Два корня Х1=’+floattostr(x1)+’ X2=’+floattostr(x2);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=’1′;
edit2.Text:=’1′;
edit3.text:=’1′;
end;

end.

Решаю задачи и пишу программы на Delphi, pascal, Lazarus -е.

Решаю задачи, программирую на паскале делфи или лазарусе, портирование прикладных программ на Linux.  Цена договорная , если задачка совсем пустяковая может быть решу бесплатно.  Могу написать не сильно сложное прикладное приложение , для курсовой или дипломной работы или мат моделирования. Также могу написать программу обменивающуюся данными с микроконтроллером Arduino.  Ещё в список моих квалификационных навыков входит умение делать небольшие сайты , примерно такие же как этот, стоимость от 1000 рублей.  Для связи писать мне во Вконтактик.

Если вы сами хотите решить свою задачу то может быть такая же или похожая есть в учебники с типовыми программами на Паскале.