НОВОСТИ | КАТАЛОГ УРОКОВ | ФОРУМ | ПОРТФОЛИО - Свадебное оптом от производителя wedding-land.ru
   
     
       
   
зарегистрироваться | вход
   
   

 

Комментарии к новостям:

2006 » Ноябрь » 13 > СРОЧНО!!!
ВЫРУЧАЙТЕ срочно за эту ночь нужно сделать 5 задач по Паскалю!!!

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

2. Ввести значения 11 элементов одномерного массива. Найти индекс второго по величине элемента массива.
------------------------ 2ая уже есть -----------------

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

4. Ввести значение строковой переменной, содержащее адрес электронной почты. Определить длину имени пользователя почты (до знака @).
------------------------ 4ая уже есть -----------------

5. Ввести значения 4х3 элементов двумерного массива целых чисел. Сформировать вектор, содержащий количество простых элементов каждого столбца массива.

В долгу не останусь!!! выручайте.... если кто решит, то на емаил azatkh@yandex.ru скиньте
Еще раз, я очень прошу, решите!!!


Всего комментариев: 14

2006-11-13 Спам
14. Azat
а может и мне поможете? =)) я тоже Азат. тоже занимаюсь вэб-дизайном и как и тебе надо решить задачи на паскале )))
Ответ: у все... сайт переформировывается на паскаль! =))) шутка

2006-11-13 Спам
13. towa48
begin
writeln('Введите массив ',j1,'x',i1);
for i := 1 to i1 do
begin
for j := 1 to (j1-1) do
read(A[i,j]);
readln(A[i,j1]);
end;
for j := 1 to j1 do
begin
n:=0;
for i := 1 to i1 do
begin
flag := true;
for k := 2 to (A[i,j]-1) do
if (((A[i,j] mod k)=0) then
flag:=false;
if (flag) then
n:=n+1;
end;
vekt[j]:=n;
end;
Write('Координаты получившегося вектора: [');
for j := 1 to j1 do
write(vekt[j], ' ');
writeln('].');
Writeln('Для выхода нажмите любую клавишу!');
readln;
end.

2006-11-13 Спам
12. towa48
не вмещается - по частям

program zada4a5;
const
i1=3;
j1=4;
{j1 - кол-во столбцов}
{i1 - кол-во строк}
var
A: array [1..i1,1..j1] of integer;
vekt: array [1..j1] of integer;
i,j,k,n: integer;
flag: boolean;


2006-11-13 Спам
11. towa48
так, обшибся с условием для простых чисел в последней задаче.

2006-11-13 Спам
10. towa48
не, я их в блокноте пишу, чтоб удобнее было.
А проверяйте сами уж ))

2006-11-13 Спам
9. towa48
program zada4a5;
const
i1=3;
j1=4;
{j1 - кол-во столбцов}
{i1 - кол-во строк}
var
A: array [1..i1,1..j1] of integer;
vekt: array [1..j1] of integer;
i,j,n: integer;

begin
writeln('Введите массив ',j1,'x',i1);
for i := 1 to i1 do
begin
for j := 1 to (j1-1) do
read(A[i,j]);
readln(A[i,j1]);
end;
for j := 1 to j1 do
begin
n:=0;
for i := 1 to i1 do
if (((A[i,j] mod A[i,j])=0) and ((A[i,j] mod 1)=0)) then
n:=n+1;
vekt[j]:=n;
end;
Write('Координаты получившегося вектора: [');
for j := 1 to j1 do
write(vekt[j], ' ');
writeln('].');
Writeln('Для выхода нажмите любую клавишу!');
readln;
end.

2006-11-13 Спам
8. towa48
детский сад ))

2006-11-13 Спам
7. towa48
program zada4a4;
var
Mail,name:string;
len,i,n: integer;
begin
writeln('Введите e-mail:');
readln(Mail);
len := Length(mail);
n := 0;
for i := 1 to len do
if (Ord(mail[i])=97) then
n:=i;
if (n=0) then
Writeln('Адрес e-mail неправильный!')
else
begin
name := copy(mail,1,n)
writeln('Имя пользователя: ',name);
end;
Writeln('Для выхода нажмите любую клавишу!');
readln;
end.


Имя *:
Email *:
Код *:

1 2 »

Подписаться на RSS

Свадебное оптом от производителя - свадебный опт wedding-land.ru
   
   
   
Хостинг от uCoz карта сайта