FORTRAN-HELP

Краткие заметки по языку программирования FORTRAN

Материалы, которые я выложил на этом сайте, НЕ ЯВЛЯЮТСЯ учебником по языку программирования FORTRAN. Они могут служить ТОЛЬКО напоминанием студентам, прослушавшим курс АЯиП на 2-м факультете МАИ. Но и этого может быть недостаточно для овладевания даже Fortran-ом для тех, кто никогда до этого не имел счастья создавать СВОИ программы. Без дополнительной литературы не обойтись.
Естественно, этого недостаточно для того, чтобы стать программистом.
Прежде всего нужна практика.

Вопросы к сдаче зачета (экзамена)
Требования и вопросы к ЛАБОРАТОРНЫМ РАБОТАМ
К вопросу о сдаче зачета (экзамена)
Советую обратить внимание на Примеры. Работа с MS EXCEL на С++ BUILDER - http://rxlib.ru/WinLesson/bles1_2.htm

Фотографии самолетов, летящих на парад 9 Мая

Старые разработки на с и с++
жизнь состоит не только из....
Полезные замечания по особенностям FORTRAN 90

Темы

Часть 1 – Основы

Алгоритм (свойства, формы записи), ЭВМ (свойства, структура), языки программирования.
Объекты языка, переменная, типы, операции.
Основные операторы (начало):

Ввод/вывод, формат.
Основные операторы (продолжение):

Цикл:

Часть 2

Динамические массивы.
Пользовательские типы данных.
Указатели.
Рекурсия.
Общая память (Common, Equivalence, Module).
Файловый ввод/вывод.
Отладка программ, эффективность.
Структурное программирование, ООП.

http://forum.ru-board.com/topic.cgi?forum=33&topic=7860&start=0&limit=1&m=2
Пример написания DLL (динамически загружаемой библиотеке) на FORTRAN и вызова ее на разных языках Некоторые ссылки по С# и NET (для себя, потом куда-нибудь кину) неплохой материал по С#, LINQ, WPF ....
Запросы серверу
C# Decompress GZIP:
WebClient

распознавание речи
http://habrahabr.ru/post/144535/
http://habrahabr.ru/post/129936/
http://habrahabr.ru/post/117234/


Builder C++ (EMBARCADERO)
Добавление в файл EXCEL-я макроса из файла и выполнение его
Variant tmp;
 tmp=excel.Wrkbooks();
 tmp=app.OlePropertyGet("ActiveWorkBook");
 Variant Modul,Workbook,VBProject,VBComponents,Item,Codemodule;

AnsiString ComponentName;
bool IsRus=false,IsEng=false,Result=true;
int ItemCount;

	VBProject=tmp.OlePropertyGet("VBProject");
	VBComponents=VBProject.OlePropertyGet("VBComponents");
	ItemCount=VBComponents.OlePropertyGet("Count");
	for(int i=1;i<=ItemCount;i++){
		Item=VBComponents.OleFunction("Item",i);
		ComponentName=Item.OlePropertyGet("Name");
		// ищем модуль!
		if(ComponentName.AnsiCompareIC("Module1")==0){//ThisWorkbook")==0){
			IsEng=true;
			break;
		}
	}
	if(Item.IsNull()){
		throw Exception("EXCEL_APP:AddMacro()\n"
		  "Не найдена ни одна из компонент [ЭтаКнига],[ThisWorkbook]");
	}
	Modul=Item.OlePropertyGet("Codemodule");
//	WideString MacroStrings="sub sec()\r\n   msgbox \"VBA Macro called\"\r\n end sub";
//	Modul.OleFunction("AddFromString",MacroStrings);
	Modul.OleFunction("AddFromFile",WideString("c:\\macro.bas"));
	app.OleProcedure("Run",WideString("migmile"));




Массив указателей (!не указатель на массив!!!!)
type pp
   integer, pointer :: p
end type pp

integer,target,dimension(10):: a=(/1,2,3,4,5,6,7,8,9,10/)
type(pp), dimension(:), allocatable :: pa
integer :: i

 allocate(pa(10))
  
    do i = 1, size(pa)
        pa(i)%p => a(11-i)
    end do

print *,pa(1)%p,pa(10)%p
end