Нужно очень решить задачу .Вы последняя надежда - Форум
Воскресенье, 04.12.2016, 17:13
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Нужно очень решить задачу .Вы последняя надежда (решаю уже неделю не получается в субботу сдавать)
Нужно очень решить задачу .Вы последняя надежда
HelpmeДата: Четверг, 29.04.2010, 23:53 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
напишите программу подсчета суммы произведений последовательных пар элементов в целочисленном массиве из N элементов.Примечание:надо сосчитать сумму произведений 1 и 2,3 и 4 ,5 и 6 элементов и т.д
 
GrihaIДата: Пятница, 30.04.2010, 15:57 | Сообщение # 2
Генерал-полковник
Группа: Участник
Сообщений: 89
[ 1 ]
Статус: Offline
На каком языке?

Собираю деньги на инв. коляску. С предложениями писать в личку или мыло.
 
HelpmeДата: Пятница, 30.04.2010, 16:06 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
Паскаль
 
GrihaIДата: Пятница, 30.04.2010, 16:07 | Сообщение # 4
Генерал-полковник
Группа: Участник
Сообщений: 89
[ 1 ]
Статус: Offline
С "С" переделаешь ?

Собираю деньги на инв. коляску. С предложениями писать в личку или мыло.
 
HelpmeДата: Пятница, 30.04.2010, 16:09 | Сообщение # 5
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
Это как??? sad
 
GrihaIДата: Пятница, 30.04.2010, 16:11 | Сообщение # 6
Генерал-полковник
Группа: Участник
Сообщений: 89
[ 1 ]
Статус: Offline
Я тебе дам исходник на "С" , а ты переделаешь под паскаль . biggrin

Собираю деньги на инв. коляску. С предложениями писать в личку или мыло.
 
HelpmeДата: Пятница, 30.04.2010, 16:18 | Сообщение # 7
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
это сложно???

Добавлено (30.04.2010, 16:18)
---------------------------------------------
Хотя мне кажется я справлюсь...

 
GrihaIДата: Пятница, 30.04.2010, 16:18 | Сообщение # 8
Генерал-полковник
Группа: Участник
Сообщений: 89
[ 1 ]
Статус: Offline
Взгляни сюда" Паскаль.массив (до конца недели \...горю!!!)" там написано на "С", если разберешься то помогу.

Собираю деньги на инв. коляску. С предложениями писать в личку или мыло.
 
HelpmeДата: Пятница, 30.04.2010, 16:31 | Сообщение # 9
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
Должна справится,а если я пришлю вам что я решала,вы можете что-то исправить,мне просто кажется я в правильном направлении,а какая ошибка не могу понять?

Добавлено (30.04.2010, 16:31)
---------------------------------------------

Program acd;
Var n,s,i:integer;
A:array[1..100] jf integer;
Begin
writeln ('vvedite razmernost');
readln(n);
randomize;
s:=0
for i:=1 to n do
A[i]:=random (9)+1;
i:=2
for i:=1 to n do
writeln (A[i])
if n mod 2=0 then
For i:=1 to n do
else
for i:=1 to n-1 do
s:=s+(A[i]*A[i+1]);
i:=i+2;
writeln (s);
readln;
end.

 
GrihaIДата: Пятница, 30.04.2010, 16:50 | Сообщение # 10
Генерал-полковник
Группа: Участник
Сообщений: 89
[ 1 ]
Статус: Offline
#include <stdio.h>
#include <time.h>
#include <stdlib.h>
void main ()
{
int a[10],i,rez=0;
srand(time(NULL));
for(i=0;i<10;i++)
{
a[i]=rand()%10;
printf ("%d\t",a[i]);
}
printf ("\n***\n");
for (i=0;i<10;i=i+2)
{
rez=rez+(a[i]*a[i+1]);
printf ("<%d_%d>\t",a[i],a[i+1]);
}
printf ("\n***\n");
for (i=0;i<10;i=i+2)
{
printf ("<%d>\t",a[i]*a[i+1]);
}

printf("\n%d\n",rez);
}


Собираю деньги на инв. коляску. С предложениями писать в личку или мыло.
 
v3kДата: Вторник, 11.05.2010, 17:30 | Сообщение # 11
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Helpme суть в том что она работает, но только её надо исправить на такую

Program acd;
Var n,s,i:integer;
A:array[1..100] of integer;
Begin
writeln ('Введите размерность');
readln(n);
randomize;
s:=0;
for i:=1 to n do
A[i]:=random (9)+1;
i:=2;
for i:=1 to n do
writeln (A[i]);
if n mod 2=0 then
For i:=1 to n do
else
for i:=1 to n-1 do
s:=s+(A[i]*A[i+1]);
i:=i+2;
writeln (s);
readln;
end. cool cool cool
cool cool

 
GrihaIДата: Вторник, 11.05.2010, 18:51 | Сообщение # 12
Генерал-полковник
Группа: Участник
Сообщений: 89
[ 1 ]
Статус: Offline
Code

Program acd;
Var n,s,t,i:integer;
A:array[1..100] of integer;
Begin
writeln ('Ââåäèòå ðàçìåðíîñòü');
readln(n);
randomize;
s:=0;
for i:=1 to n do
A[i]:=random (9)+1;
for i:=1 to n do
write (A[i]);
for i:=1 to n-1 do
begin
s:=s+(A[i]*A[i+1]);
i:=i+1;
end;
write ('otvet ');
writeln (s);

end.



Собираю деньги на инв. коляску. С предложениями писать в личку или мыло.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Нужно очень решить задачу .Вы последняя надежда (решаю уже неделю не получается в субботу сдавать)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016