Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
M i h a i l
1

Найти S - сумму элементов из заштрихованной области массива А

05.02.2010, 10:18. Показов 1762. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста с задачами, очень нужно в институт.
задача. По заданным вещественным числам a(0),a(1) ,...,a(20), T вычислить значения многочлена a(20)*x^20+a(19)*x^19+...+a(1)*x+a(0) и значение его производной в точке x=T. Какие изменения надо внести в программу чтобы она правильно выполнялась для многочлена 45-й степени?
задача. VAR A:ARRAY[1..9,1..9] OF REAL; S:REAL;
Найти S - сумму элементов из заштрихованной области массива А
(в заштрихованную область входят две диагонали и то что находится между ними выше и ниже центра их пересечения)
задача. Дан текст из строчных латинских букв, за которыми следует точка. Напечатать первые вхождения букв в текст, сохраняя их исходный взаимный порядок.

заранее благодарен.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.02.2010, 10:18
Ответы с готовыми решениями:

Найти сумму элементов массива в заштрихованной области двумерного массива
Найти сумму элементов массива в заштрихованной области двумерного массива.

Найти сумму элементов заштрихованной области матрицы
Дано: Матрица NxN, N - нечетное число а) Найти сумму элементов заштрихованной области (без...

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

Найти сумму элементов массива из заштрихованной области
Помогите кто-нибудь с задачкой, что-то я совсем ее не пойму(( Найти сумму из заштрихованной...

1
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
05.02.2010, 12:01 2
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses crt;
const n=9;
var a:array[1..n,1..n] of integer;
    sm:integer;
    i,j:byte;
begin
clrscr;
writeln('Исходная матрица:');
sm:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)+1;
    if ((j>=i)and(j<=n-i+1))or((j>=n-i+1)and(j<=i))then
     begin
      textcolor(12);
      write(a[i,j]:4);
      sm:=sm+a[i,j];
     end
    else
     begin
      textcolor(15);
      write(a[i,j]:4);
     end;
    end;
  writeln;
 end;
textcolor(15);
write('Сумма в заштрихованной области=',sm);
readln
end.
Добавлено через 26 минут
3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
type mnoz=set of char;
var s:string;
    m:mnoz;
    i:byte;
begin
clrscr;
repeat
writeln('Введите строку из малых латинских букв, в конце точка');
readln(s);
if pos('.',s) in [0,1] then
writeln('В тексте нет точки, либо она первая! Повторите ввод.');
until pos('.',s)>1;
m:=[];
for i:=1 to pos('.',s)-1 do
if not(s[i] in m) then
 begin
  write(s[i],' ');
  m:=m+[s[i]];
 end;
readln
end.
Добавлено через 3 минуты
В первой как-то не обратил что тип real.
Переделайте строки
Pascal
1
2
3
4
5
6
var a:array[1..n,1..n] of real;
      sm:real;
....................................
a[i,j]:=10*random;
................................
write(a[i,j]:5:2);//2 раза
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.02.2010, 12:01

Найти S - сумму элементов из заштрихованной области массива A
пожалуйста помогите с решением: VAR A:ARRAY OF REAL; S:REAL; Найти S - сумму элементов из...

Найти сумму элементов из заштрихованной области массива
Помогите пожалуйста с задачей! var A:array of real; s:real; Найти s-сумму элементов из...

Найти сумму элементов двумерного массива в заштрихованной области
Привет Проблема))) Нужно найти сумму элементов двумерного массива(3х3) в заштрихованной области

Найти сумму элементов массива в заштрихованной области двумерного массива
1.Найти сумму элементов массива в заштрихованной области двумерного массива.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru