Архив рубрики «Программирование»

Найти количество одинаковых элементов в двух массивах (Pascal)

Задача: Найти количество одинаковых элементов в двух массивах и распечатать их значения.

program m2;
const max=10;
var a:array[1..max] of real;
b:array[1..max] of real;
n,m,i,j,l:integer;
begin
writeln('введи количество элементов в массивах А и В, n< =',max); readln(n,m); for i:=1 to n do read(a[i]); for j:=1 to m do read(b[j]); writeln('исходные массивы'); for i:=1 to m do write(a[i]:3:1); writeln; for j:=1 to m do write(b[j]:3:1); writeln; l:=0; writeln('одинаковые элементы'); for i:=1 to n do for j:=1 to m do if (a[i]=b[j]) then begin l:=l+1; writeln(A[i]) end ; writeln ('l=', l:2); end

Прочитать остальную часть записи »

Задача минимизации методами наискорейшего спуска и поразрядного приближения

1. Техническое задание
1. Разработать программу для решения задачи оптимизации для функции:

f(x1,x2)= 100 (x2 — x12)2 + (1 — x1)2 + (√[x12+x22 — 1)2 + 100 (ϕ(x1, x2)) 2, где
ϕ(x1, x2) = 0.5*π arctg(x2/x1), x1 > 0
ϕ(x1, x2) = 0.25, x1 = 0
ϕ(x1, x2) = 0.5*π (π + arctg(x2/x1)), x1 > 0

Прочитать остальную часть записи »

Вычислить количество положительных, отрицательных и нулевых элементов на Pascal

Задание: в массиве A1, A2, A3,… Am вычислить количество положительных, количество отрицательных и число нулевых элементов

Program m1; {найти в массиве A сумму положительных элементов, число отрицательных и число нулевых элементов}
const m=20;
var A:array[1..m] of real;
s:real;
i,n,l:integer;
begin
for i:=1 to m do
begin
write('A[',i,']=');
readln (A[i]);
end;
writeln('исходная матрица');
for i:=1 to m do
write(A[i]:5:2);
writeln;
s:=0;
n:=0;
l:=0;
for i:=1 to m do
if A[i]>0 then
s:=s+A[i]
else
if A[i]=0 then
n:=n+1
else
l:=l+1;
writeln(s:5:2, n:5, l:5);
end

Прочитать остальную часть записи »

Список задач на Struct (C++)

1. Информация по N заводам города задается строкой следующего вида: фамилия, средний возраст, специальность, средний оклад. Ввести информацию по заводам, посчитать количество слесарей и токарей. Напечатать эти значения.

2. Багаж пассажира характеризуется количеством вещей и общим весом. Ввести информацию об N пассажирах и определить есть ли среди пассажиров такой, у которого самый большой багаж по числу и по весу.
Прочитать остальную часть записи »

Создание модели накопителя АЗУ на языке C++

Рабочее задание:
1. При помощи любого известного Вам средства моделирования (или языка программирования) создать модель накопителя АЗУ размером 2n+1x2N-n+1 ячеек, где N=24, n=1.

2. Продемонстрировать работоспособность модели преподавателю.
Прочитать остальную часть записи »

Программа калькулятора, осуществляющего простейшие арифметические действия

Задание: написать программу калькулятор, осуществляющего простейшие арифметические действия над вещественными числами.

Program C;{калькулятор}
uses crt;
var y,a,b:real;
ch:char;label 1;
begin
repeat
writeln ('введи два числа a,b');
readln (a,b);
writeln ('введи операцию над числами (+,-,*,/)');
ch:=readkey;
case ch of
'+' :y:=a+b;
'-' :y:=a-b;
'*' :y:=a*b;
'/' :y:=a/b;
else
begin
writeln ('неверные данные');
goto 1;
end
end;
writeln (a:8:5,ch,b:8:5,'=',y:8:5);
1: writeln ('продолжим вычисления? y/n');
ch:=readkey
until ch='n'
end

Прочитать остальную часть записи »

Программа на основе метода наискорейшего спуска и метода Фибоначчи

1. Разработать программу для решения задачи оптимизации для функции:

F(x1,x2) = 10000/(x12 + 4x22 — 50x1 — 140x2 + 2x1x2 + 1100) — 10000/(x12 + 4x22 + 130x1 + 140x2 + 2x1x2 + 2200)

Прочитать остальную часть записи »

Нахождение делителей целого числа на Pascal

Задача: найти делители целого числа на программе Pascal

program vicdiv;
var
x,half,divider,i: integer;
begin
repeat
writeln ('введите число больше нуля: ');
readln (x);
if x< =0 then writeln ('неправильный ввод'); until x>0;
half:=x div 2;
divider:=2;
i:=0;
while divider< =half do begin if x mod divider =0 then begin inc(i); writeln (i, ' делитель равен: ',divider); end; inc(divider); end; if i=0 then writeln ('делителей нет'); writeln ('конец решения') end

Прочитать остальную часть записи »

Вычисление суммы ряда через Pascal

Вычислить значение суммы ряда через Pascal:

y=1+1/2+1/3+ … +1/i+…+1/n

Вычисления прекратить, если i член ряда, т.е. 1/i станет меньше, чем заданная точность (eps).
Прочитать остальную часть записи »

Вычисление функции разложением ее в ряд (задача на Паскале)

Вычисление функции разложением ее в ряд

Вычислить определенный интеграл функции sin x на отрезке от A до B.

begin
clrscr;
textcolor(5);textbackground(10);
writeln(‘введите числа k,A,B,h’);
readln(k,A,B,h);
y:=0;x:=A;
repeat
y:=y+sin(x)*h;
x:=x+h;
until x>=B;
writeln( y:8:5);
end

Прочитать остальную часть записи »

Математические основы анализа и синтеза дискретных систем

Написать программу, производящую оптимизацию (поиск минимуму) двух заданных целевых функций (см. ниже) с использованием совмещения метода Кифера-Вольфовица и метода последовательных приближений. Программа должна уметь построить линии уровня (10 – 15 линий) которые должны заполнять все поле экрана. Также программа должна отображать траекторию движения точки поиска. Найти значения и точки всех минимумов.
Прочитать остальную часть записи »

Пример задачи на Pascal (вычислить определенный интеграл функции)

Задача: Написать программу на Pascal для вычисления определенного интеграла функции sin(x) на отрезке от A до B.
Прочитать остальную часть записи »

Пример задачи на struct (структуры в C++)

Задание:
Информация по N заводам города задается строкой следующего вида: фамилия, средний возраст, специальность, средний оклад. Ввести информацию по заводам, посчитать количество слесарей и токарей. Напечатать эти значения

Код задачи на C++:

//—————————————————————————

Прочитать остальную часть записи »

Ассоциативные запоминающие устройства, моделирование ассоциативной ячейки

Задание:
1. При помощи любого известного Вам средства моделирования создать модель ячейки АЗУ.

2. Продемонстрировать работоспособность модели.

3. Провести моделирование спроектированной ячейки АЗУ.

4. Результаты моделирования оформить в виде отчета.
Прочитать остальную часть записи »

Вычисление значения функции одного аргумента с выбором формулы

Вычисление значения функции одного аргумента с выбором формулы

Найти: y=2,5ax, при x<0;
y= cos (ln x/2 ), при 0 < =x<=1; y=exp(x), при x>1.

Program fun;
const a=0.5;
var x,y: real;
i: integer;
begin
writeln (‘Введите значение x’);
readln (x);
if x<0 then
begin
i:=1;
y:=2.5*a*x
end
else
if x< =1 then begin i:=2 ; y:=cos(ln(x/2)) end else begin i:=3; y:=exp(sqrt(x)) end; writeln ('x=',x:8:5,'y вычисляется по ',i,' формуле и равен', y:8:5); end

Прочитать остальную часть записи »

Построение таблицы значений функции y=sin(x) на Pascal

Построение таблицы значений функции y=sin(x) на отрезке 0< =x<=1 c шагом h=0.1 на Pascal

Program tabl; {таблица значений sin(x)}
uses crt;
const h=0.1 ;
var x,y:real;

begin
textcolor(5);
textbackground(10);
clrscr;
writeln(‘таблица’);
writeln(‘ x sinx’ ) ;
writeln(‘—————‘);
x:=0;
repeat;
writeln(‘! ‘,x:3:1,’ ! ‘ ,sin(x):10:7,’ ! ‘);
x:=x+h;
until x>1;
end.
Прочитать остальную часть записи »

Единообразная передача данных, уведомления, объекты с подключением

Часто одной программе необходимо передать данные другой. Например. встроить таблицу Excel в документ WinWord или сделать что-нибудь еще. В СОМ предложен общий подход для передачи данных.

Для поддержки единообразной передачи данных разработан интерфейс IDataObject. Если реализовать поддержку этого интерфейса в одном приложении, то его данные будут доступны любым другим программам, работающим с этим интерфейсом в качестве клиента.
Прочитать остальную часть записи »

Программа на Pascal: найти минимальное из трех чисел

Нахождение минимального из трех чисел (y= min (а, b, c)).

Program MIN; {нахождение минимального значения из a, b, c}
uses crt;
var a,b,c,y:real;
begin
textbackground (3);textcolor(14);
clrscr;
writeln ('введите значения a, b, c, разделяя их пробелами');
readln (a,b,c);
if a<b then
if a<c then
y:=a
else
y:=c
else
if b<c then
y:=b
else
y:=c;
writeln ('минимальное значение =', y:3:1);
end.

Прочитать остальную часть записи »

Моникеры, определение и создание моникеров

COM технология включает механизм, обеспечивающий создание экземпляра объекта и его инициализацию за один этап. Для этого предназначены моникеры, также являющиеся СОМ-объектами. Каждый моникер знает, как создать и инициализировать экземпляр другого объекта.
Прочитать остальную часть записи »

Перманентность, структурированное хранилище, хранилище и потоки

Перманентность
СОМ-объекты состоят из методов и данных, и могут встречаться такие из них, которым необходимо сохранять свои данные в течение периода неактивности. В подобных случаях объекту необходимо сделать свои данные перманентными (persistent), что обычно означает их запись на диск. СОМ-объекты могут делать это разными путями, но наиболее часто для этих целей используется структурированное хранилище (Structured Storage).
Прочитать остальную часть записи »

Пример программы на tcl/tk

Используя любой из известных вам наборов управляющих графических объектов инструментальных средств графической оболочки операционной системы UNIX — написать командный файл – скрипт, реализующий пример оконного интерфейса для выполнения следующего задания.
Прочитать остальную часть записи »

SQL/CLI: JDBC (Java DataBase Connectivity)

Общие сведения о JDBC
JDBC — это набор реляционных объектов и методов взаимодействия с источниками данных. JDBC является частью пакета API Enterprise JavaSoft и, следовательно, частью реализации виртуальной машины Java(JVM).
Прочитать остальную часть записи »

SQL/CLI: ODBC (Open DataBase Connectivity)

История создания
Если в 1970-80 г.г. фактически каждый разработчик предоставлял пользователю средства разработки приложений с технологией доступа к своим СУБД, то с конца 80-х годов все существенно изменилось. В 1989 году была образована группа SQL Access Group (SAG), объединившая 42 компании, производящие СУБД и инструментальные средства к ним. Основной задачей этой группы является создание спецификаций форматов и протоколов для коммуникаций в системах БД с архитектурой клиент/сервер на основе спецификаций удаленного доступа к БД (Remote Database Access – RDA). Соответствующие стандарты были разработаны – SQL/CLI.
Прочитать остальную часть записи »

Управляющие элементы ActiveX

Расширение возможностей СОМ технологии привело к идее компонентного построения программ, что позволяет использовать только те части программы, которые нужны в настоящий момент для выполнения поставленной задачи.

С течением времени возможность создания элементов управления ActiveX была включена и в другие системы быстрой разработки приложений, включая и Delphi.
Прочитать остальную часть записи »

Введение в SQLJ

История создания SQLJ и стандарты

Корпорация Oracle совместно с фирмами Sybase, IBM и рядом других разработала в 1997 году спецификацию SQLJ, определяющую синтаксис для встраивания SQL-операторов непосредственно в Java-программы. Сейчас действует две части стандарта SQL для SQLJ:
SQL/JRT (SQL Rountines and Types for the Java Programming Language) – определяет возможность вызова методов Java как подпрограмм из SQL с помощью языка программирования Java.
SQL/OLD (Object Language Bindings) – описывает, каким образом инструкции SQL встраиваются в программы на Java.
Прочитать остальную часть записи »

Программирование калькулятора на C++

Ниже приведен код программирования калькулятора (описание функций калькулятора) на Builder C++.

Самая главная функция: DoOp, которая отвечает за распознавание того, что нужно сделать. Прочитать остальную часть записи »

Доступ к Microsoft Office: интерфейс Word.Basic, модель объектов, интерфейс автоматизации

Главное достоинство технологии OLE Automation состоит в том, что это общепринятый стандарт и с его помощью можно интегрировать приложения Delphi с другими программами. Типичный пример — интеграция с офисными программами, такими как WinWord и Excel или со специальными программами, такими как 0040 СУБД Oracle, CRAXDRT Crystal Reports и т. п.
Прочитать остальную часть записи »

ORACLE и WEB

1) Подход Oracle
Подход фирмы Oracle к созданию централизованной сетевой модели вычислений коренным образом отличается от подхода фирмы Microsoft.

Предложенная фирмой Oracle архитектура Network Computing Architecture (NCA) преимущественно нацелена на создание распределенной среды вычислений, состоит из трех платформ:
• Универсальный клиент-браузер
• Универсальный сервер приложений – WAS (Web Application Server)
• Универсальный сервер данных – Universal Data Server
Прочитать остальную часть записи »

Параметры в программах на SQL

Описанный в предыдущей статье (использование языка SQL в Delphi) способ изменения программы на SQL во время выполнения приложения неудобен тем, что он предъявляет весьма высокие требования к квалификации пользователя приложения: он должен знать структуру файлов и владеть языком. Конечно, за это он имеет в своем распоряжении всю мощь языка и обширные возможности для поиска данных. Имеется и третья возможность: программа на SQL может содержать формальные параметры и пользователь приложения, не меняя структуру программы, может с помощью фактических параметров формулировать разные запросы.
Прочитать остальную часть записи »

Доступ к объекту автоматизации

Сервер автоматизации предоставляет своим клиентам для доступа объект специального типа — dispatch object. При этом в адресном пространстве приложения клиента, называемого в этом случае контроллером, присутствует вариантная переменная, содержащая интерфейс IDispatch, предоставляющий ему доступ к этому объекту на OLE-сервере.
Прочитать остальную часть записи »




Статистика