wiki.nntc.nnov.ru - Вклад участника [ru]

Обсуждение:Вычислительные машины, комплексы, системы и сети

2008-07-03T05:47:23Z

192.168.159.1: /* задание by chinich */

== задание by chinich ==

By chinich: дан файл, состояший из данных типа запись.запись содержит информацию: фамилия,адрес, телефон. Определить, сколько телефонов установлено в доме 1 по улице пушкина

By chernov:создать процедуру удаляющую текст в файле после заданного символа

Обсуждение:Вычислительные машины, комплексы, системы и сети

2008-07-03T05:46:29Z

192.168.159.1:

== задание by chinich ==

By chinich: дан файл, состояший из данных типа запись.запись содержит информацию: фамилия,адрес, телефон. Определить, сколько телефонов установлено в доме 1 по улице пушкина
By chern:создать процедуру удаляющую текст в файле после заданного символа

Обсуждение:Вычислительные машины, комплексы, системы и сети

2008-07-03T05:41:24Z

192.168.159.1: Полностью удалено содержимое страницы

Обсуждение:Вычислительные машины, комплексы, системы и сети

2008-07-03T05:36:38Z

192.168.159.1: /* Текст заголовка */

<nowiki>Вставляйте сюда неотформатированный текст.</nowiki><math>Вставьте сюда формулу</math>[[Медиа:Example.ogg]][[Изображение:Example.jpg]][[Изображение:Example.jpg]][[Изображение:Example.jpg]][[Изображение:Example.jpg]]
coздать процедуру удаляющую текст в файле после заданного символа

== Текст заголовка ==
Паш,как отсортировать каждую строку в порядке возраствния элементов?
помоги пожалуйста

== Текст заголовка ==
кинь прогу свою...

реши создать процедуру удаляющую текст в файле после задоного символа

== Текст заголовка ==

== Текст заголовка ==

== Текст заголовка ==

УБЕЙСЯ АП СТЕНКУ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

== by Black Bull ==

program pas1;

uses crt;

function RemoveSymbol(stroka : String; symbol : Char) : String;
var I : Integer;
var Result : String;
begin
Result:= '';
For I:= 1 to Length(stroka) do
begin
If (stroka[I] <> symbol) Then
Begin
Write(stroka[I]);
Result := Result + stroka[I];
End
Else
Begin
Write('*');
(* stroka[I] := symbol2; *)
(* Result := Result + symbol2; *)
end;
end;
RemoveSymbol := Result;
end;

procedure RemoveSymbol2(var stroka : String; symbol : Char);
var I : Integer;
var Result : String;
begin
Result:= '';
For I:= 1 to Length(stroka) do
begin
If (stroka[I] <> symbol) Then
Begin
Write(stroka[I]);
Result := Result + stroka[I];
End
Else
Begin
Write('*');
End;
end;
stroka := Result;
end;

var A : String;
B : String;
C : String;

begin

clrscr;

WriteLn('Method 1 - FUNCTION');

WriteLn(' result: ' + RemoveSymbol('KOZA', 'Z'));
WriteLn(' result: ' + RemoveSymbol('BUBU', 'B'));
WriteLn(' result: ' + RemoveSymbol('BEBE', 'E'));

WriteLn('Method 2 - PROCEDURE');

A:= 'KOZA';
RemoveSymbol2(A, 'Z');
WriteLn(' result: ' + A);

B:= 'BUBU';
RemoveSymbol2(B, 'B');
WriteLn(' result: ' + B);

C:= 'BEBE';
RemoveSymbol2(C, 'E');
WriteLn(' result: ' + C);
end.

== by Black Bull ==

uses test1;

function Convert (X : Integer; Base : Integer) : String;
var S : String;
Result : String;
I : Integer;

begin
S := '';
Result := '';

for I:=1 to 16 do
begin
Str(X MOD Base, S);
Result:= S + Result;
X:= X DIV Base;
If (X = 0) then
break;
end;

Convert := Result;
end;

var A : Integer;
begin
A:= 12412;
WriteLn(Convert(A, 2));
test11;
end.

Обсуждение:Вычислительные машины, комплексы, системы и сети

2008-07-03T05:06:56Z

192.168.159.1: /* Текст заголовка */

Обсуждение:Итоговая таблица 2ВМК-3

2008-05-07T07:02:38Z

192.168.159.1:

ВСЕМ ЗАТКНУЦА, ВЫЙТИ ОТСЮДА И УСПОКОИЦЦА!||||
||||это ты нам?????????????? || а что значит "7" а?? это пароли??? что это???какая ? вот опять врёт!
О_о вы все врете? ...

Обсуждение:Итоговая таблица 2ВМК-3

2008-05-07T06:59:24Z

192.168.159.1:

ВСЕМ ЗАТКНУЦА, ВЫЙТИ ОТСЮДА И УСПОКОИЦЦА!||||
||||это ты нам???????????????7777777777777 || а что значит "7" а?? это пароли??? что это???какая ? вот опять врёт!

Обсуждение:Итоговая таблица 2ВМК-3

2008-05-07T06:57:08Z

192.168.159.1:

ВСЕМ ЗАТКНУЦА, ВЫЙТИ ОТСЮДА И УСПОКОИЦЦА!||||
||||это ты нам???????????????7 || а что значит "7" а?? это пароли??? что это???

Обсуждение:Итоговая таблица 2ВМК-3

2008-05-07T06:53:16Z

192.168.159.1:

ВСЕМ ЗАТКНУЦА, ВЫЙТИ ОТСЮДА И УСПОКОИЦЦА!

Обсуждение:Итоговая таблица 2ВМК-3

2008-04-09T06:28:34Z

192.168.159.1:

у меня просто нет слов!!!!
у нас тоже
тока у мя ниоднной лабы нет еще=\

Обсуждение:Итоговая таблица 2ВМК-3

2008-04-09T06:27:08Z

192.168.159.1:

у меня просто нет слов!!!!

Файл:Var1 26.gif

2008-04-02T09:30:19Z

192.168.159.1: Полностью удалено содержимое страницы

Файл:Var1 26.gif

2008-04-02T09:29:58Z

192.168.159.1:

Здесь был Компот

Wiki.nntc.nnov.ru:Портал сообщества

2008-03-22T08:09:10Z

192.168.159.1:

Новое сообщество
Ктулх!!!
Малов ПЧЕЛО-ОСЁЛ!

Автоматизированные системы 3-й курс

2008-02-11T05:28:55Z

192.168.159.1: /* Экономика */

==Математика==
Материалы по математике для студентов 3-го курса специальности Автоматизированные Системы
==Информатика==

==Экономика==
aetnf

Вычислительные машины, комплексы, системы и сети

2007-12-12T07:33:42Z

192.168.159.1:

==[http://nntc.nnov.ru/specialities/080110.htm Практика по программированию]==

Преподаватель: '''Калентьева Елена Вячеславовна'''
*[[Задание по практике]]
*[[Литература по Delphi]]

==Практика по созданию web==
Преподаватель: '''Королева Ольга Владимировна'''

* [[Медиа:Учебник html.zip | HTML (эл.учебник БОЯН)]]
* [[Медиа:WEB 2007-2008.zip | Информация для создания web(примеры, текст, картинки)]]

Вычислительные машины, комплексы, системы и сети

2007-12-12T07:31:34Z

192.168.159.1:

==[http://nntc.nnov.ru/specialities/080110.htm Практика по программированию]==

Преподаватель: '''Калентьева Елена Вячеславовна'''
*[[Задание по практике]]
*[[Литература по Delphi]]

==Практика по созданию web==
Преподаватель: '''Королева Ольга Владимировна'''

* [[Медиа:Учебник html.zip | HTML (эл.учебник БАЯН)]]
* [[Медиа:WEB 2007-2008.zip | Информация для создания web(примеры, текст, картинки)]]