помогите с заданием оч нада


1)в динамическом массиве лент определить количество лент, которые не содержат ни одной цифры

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

Дан одномерный числовой массив разработать проект
а) позволяющий формировать двумерный массив включающий эти числа их квадрат куб и четвертую степень с сохранением в файле
б) вывод даных на экран
в) поиск результатов по исходному числу
г)вывод результатов на экран

Необходимо решения задачи на чистом С++
Постановка задачи
По индивидуальному заданию создать функцию для обработки символьных строк. За образец брать библиотечные функции обработки строк языка С, но не применять их в своей функции. Предусмотреть об¬работку ошибок в задании параметров и особые случаи. Разработать два варианта заданной функции — используя традиционную обработку мас¬сивов и используя адресную арифметику.
Функция Reverse(s)
Назначение: изменение порядка символов в строке s на противо¬положный.

To ArkNet:

Набросал по быстрому:
Если хотите избежать работы со строками в стиле С ( хотя в задании сказано сделать что то на подобие такого ), то можее использовать класс string, будет все гораздо удобнее.

Ins3t Большое спасибо...

Построить модель аналого-цифрового преобразователя (АЦП), которая работает в реальном времени. Процесс, который дискретизуется, моделируется программой (программным блоком), который выполняет циклическое вычисление функции y=F(x), где x - номер итерации. Преобразователь моделируется программой, которая выполняет с заданной частотой (в реальном времени) прерывание процесса, считывание и запоминание текущего значения функции. Запомнить не меньше 80 значений функции. Обеспечить наглядное представление результатов работы "АЦП".

Индивидуальное задание
функция — y=50*(sin(x/10)+cos(x/8))+R+150; R — в диапазоне 0 — 10; частота — 36.4 Гц.

помогите плиз задачу решить на delphi :
Полином в степени М.найти его корни на отрезке А В

Товарищи, помогите на паскале замутить вот это:

----------------------------------------------------------------
1.Напечатать таблицу значений функций sin x и tg x на отрезке [0,3] с шагом 0.1. Значения x печатать с одной цифрой в дробной части, значения синуса – с пятью, а значения тангенса – в экспоненциальной форме.

----------------------------------------------------------------
2. Имеется нетипизированный файл длиной 50 байт. Вывести его содержимое на экран. Скопировать его содержимое в другой файл с помощью оператора FOR..DOWNTO..DO. Длина блоков 2 байта. В цикле выводить содержимое каждого скопированного блока.

Здесь что-то уже что смог, то сделал, но сделано с помощью оператора FOR..TO..DO, а нужно FOR..DOWNTO..DO:

uses crt;

var
inp,out:file;
s:string;
i,j,k,n,tmp:integer;
begin
clrscr;
write('Enter filename: ');
{writeln ('proverka’);
Readln;}
readln(s);
assign(inp,s);
reset(inp,1);
assign(out,'output.txt');
rewrite(out,1);
j:=1;
for i:=1 to filesize(inp) div 2 do
begin
blockread(inp,tmp,2,j);
write(tmp);
blockwrite(out,tmp,2,j);
readln;
end;
close(inp);
close(out);
writeln('нажмите любую клавишу для выхода');
readln;
end.
----------------------------------------------------------------

3. const n=10;
type number=1..n;
matr=array [number, number] of real;
num=set of number;
Составить программу, использующую функцию sum(A, s1, s2) для вычисления суммы тех элементов матрицы A, номера строк и столбцов которых принадлежат соответственно непустым множествам s1 и s2 типа num.

----------------------------------------------------------------

4.Имеются линейные однонаправленные списки:
type
p=^item;
item=record
data:real;
reference
end;
Написать программу, которая переносит в конец непустого списка L его первый элемент.

Вот нужно исправить код под задание:

program zad1;

uses crt;

type
p=^item;
item=record
data:integer;
reference;
end;

var
a,i:integer;
b,temp,temp2;

begin
clrscr;
randomize;
{zapolnyaem spisok dannymi}
for i:=1 to 10 do
begin
if i=1 then begin {esli pervii element spiska}
b^.data:=random(100);
b^.reference:=nil; {to ukazatel prisvaivaem 0}
end
else begin {esli ne pervii element}
temp:=b; {to sohranyaem ukazatel na predydushii element vo vremennoi peremennoi}
new(b); {sozdaem novii element spiska}
b^.data:=random(100); {zapolnyaem pole data}
b^.reference:=temp; {prisvaivaem ukazatel na predidushii element}
end;
end;

{vivodim spisok na ekran}
temp:=b; {sm vishe}
while temp<>nil do { poka ne dostignut pervii element spiska s ukazatelem=nil}
begin
writeln(temp^.data); {vivodim soderzhmoe polya data}
temp:=temp^.reference; {perehodim k sleduyushemu elementu}
end;

writeln;
write('vvedite znachenie elementa, kotoryi hotite udalit, a =');
readln(a);

{udalyaem element is spiska}
temp:=b;
while temp<>nil do
begin
temp2:=temp^.reference; {prisvaivaem vremennoi peremennoi temp2 znachenie sleduushego elementa spiska}
{sravnivaem s a, esli ravno, to zamenyaem ukazatel elementa temp1 na ukazatel elementa temp2}
if (temp2^.data = a) then temp^.reference:=temp2^.reference;
temp:=temp^.reference; {perehodim k sleduyushemu elementu}
end;

{snova vivodim spisok na ekran}
temp:=b;
while temp<>nil do
begin
writeln(temp^.data);
temp:=temp^.reference;
end;

readkey;
end.

----------------------------------------------------------------

Помогите чем можете.)

Срочно нужна помощь


Разработайте на языке Visual С++ структуру элементарного перцептрона, способного распознавать первые две буквы Вашего имени и Вашей фамилии.
- числа рецепторных нейронов (число n S-элементов перцептрона должно быть в пределах 12<=n<=30);
- числа нейронов скрытого слоя;
- величны шага в алгоритме обучения перцептрона;
- вида функции активации нейронов каждого слоя;
- величины порогов нейронов каждгог слоя.
Обучите нейроную сеть.

ПОЖАЛУЙСТА ПОМОГИТЕ