прикладная математика

Добавлено (02.01.2009, 17:40)
---------------------------------------------
ludi pomogite reshit6 zadachu ochen6 nado
Даны натуральное число n, символы s1,....,sn.Определить число вхождений в последовательность s1,...,sn группы букв:
aba

var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
begin
if (i mod 4)=0 then s:=s+i;
end;
writeln(s);
end.

uses CRT;
var qq,b,q,i:integer;
s:real;
begin
q:=2;b:=3; qq:=1;
for i:=1 to 13 do qq:=qq*q; {возводим в тринадцатую степень}
s:=b*(qq-1)/(q-1);
writeln(s);
end.

Добавлено (13.06.2009, 12:05)
---------------------------------------------
помогите с контрольной!!! пож!
Что печатает ЭВМ выполнив программу:
Program sideeffect;
var a,b:integer;
Function f(x:integer):integer;
Begin f:=x: a:=0 end;
Function g(var x:integer);
begin
g:=x;
x:=0
end;
begin
a:=1;
WRITE(a+f(a));
a:=1;
write(f(a)+a);
b:=2;
writeln(g(b)=g(b);
end.

Формат входных данных
В первой строке четыре целых числа N, K и P (1 <= N, K, P <= 10000). Далее следует N строк с описанием действия, выполняемого в очередном доке. Если в нём происходит погрузка, то строка имеет вид “+ A B”, где A — номер отсека, в который помещается бочка, а В — номер вида топлива в ней. Если же док занимается разгрузкой, то строка имеет вид “– A B”, где А — номер отсека, из которого извлекается бочка, а В — номер ожидаемого вида топлива.

Формат выходных данных
Вывести либо одно число, равное искомому максимуму в случае безошибочного прохождения баржей маршрута, либо вывести слово -1 в противном случае.

Примеры
Входные данные
6 1 2
+ 1 1
+ 1 2
- 1 2
- 1 1
+ 1 3
- 1 3
Выходные данные
2

Вот где можно условия посмотреть: http://tchikh.dyndns.org/8-01-10.pdf

Добавлено (07.12.10, 16:00)
---------------------------------------------
или такая задача, на динамику вроде:
задача F
Трехцветная улица.
Жители трехцветной улицы решили раскрасить свои дома, согласно названию, в три цвета-красный, зеленый и синий, каждый в свой цвет. При этом из эстетических соображений жители не хотят, чтобы какие-либо два стоящих рядом дома были покрашены в один и тот же цвет. Для номера i стоящими рядом с ним считаются дома i-1 и i+1 , первый и последний дома имеют по одному соседнему дому.

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

Вход:дано число N (1 <= N <= 20)-количество домов на трехцветной улице. в последующих N строках записано в каждой по три целых числа a[i] b[i] c[i] стоимость покраски каждого дома в красный зеленый и синий цвета. (1 <= a[i] b[i] c[i] <= 1000).

пример1:
(вход)
3
1 100 100
100 100 100
1 100 100
(выход)
102
пример2:
(вход)
8
71 39 44
32 83 55
51 37 63
89 29 100
83 58 11
65 13 15
47 25 29
60 66 19
(выход)
253

В 1 сообщение не вместилось

Найти в двумерном массиве: в переменной k сумму неотрицательных элементов, а в переменной L произведение отрицательных элементов

read(n);
read(m);
l:=1;

for i:=1 to n do
for j:=1 to m do
read(a[i,j]);

for i:=1 to n do
begin
for j:=1 to m do
begin

if (a[i,j] >= 0) then
k:=k+a[i,j]
else
if (a[i,j] < 0) then
l:=l*a[i,j];

end;
end;

writeln(k);
writeln(l);
readln;readln;
end.

Program laba3;
uses crt;
Const m=3;n=4;p=5;
Var A:array [1..m,1..n] of integer;
B:array [1..n,1..p] of integer;
C,AC,AB,R:array [1..m,1..p] of integer;
i,j,k:integer;
begin
clrscr;
writeln('matrica A');
for i:=1 to m do
for j:=1 to n do
begin
write ('A[',i,',',j,']=');
readln (A[i,j]);
end;
writeln('matrica B');
for j:=1 to n do
for k:=1 to p do
begin
write ('B[',j,',',k,']=');
readln (B[j,k]);
end;
writeln('Matrica C');
for j:=1 to n do
for k:=1 to p do
begin
write ('C[',j,',',k,']=');
readln (C[j,k]);
end;
CLRSCR;
writeln('ishodnaya matrica A');
for i:=1 to m do
BEGIN
for j:=1 to n do
WRITE(A[i,j]:3);
WRITELN;
end;
readln;
writeln('ishodnaya matrica  B');
for j:=1 to n do
BEGIN
for k:=1 to p do
WRITE(B[j,k]:3);
WRITELN;
end;
readln;
writeln('ishodnaya matrica  C');
for j:=1 to n do
BEGIN
for k:=1 to p do
WRITE(c[i,j]:3);
WRITELN;
end;
readln;
writeln('martica A[i,j]*B[j,k]');
for i:=1 to m do
for j:=1 to n do
for k:=1 to p do
begin
AB[i,j]:=A[i,j]*B[j,k];
end;

for i:=1 to m do
BEGIN
for j:=1 to n do
WRITE(AB[i,j]:3);
WRITELN;
end;

writeln('matrica A[i,j]*C[j,k]');
for k:=1 to p do
for i:=1 to m do
for j:=1 to n do

begin
AC[i,j]:=A[i,j]*C[j,k];
end;
for i:=1 to m do
BEGIN
for j:=1 to n do
WRITE (AC[i,j]:5);
WRITELN;
end;
writeln('rezult matrica');

for i:=1 to m do
begin
for j:=1 to n do
begin
R[i,j]:=AB[i,j]+AC[i,j];
write(R[i,j]:3);
end;
writeln;
end;
readln;
end.