Найти сумму вычисленных значений функции

@Meet163 · Регистрация: 10.02.2010

1.F(x)=(cos4*3.14*x)/1 +x*x
Найти сумму вычисленных значений функции f(x), дробная часть которых > 0.5
(эту задачу надо решит при помощи Циклов)

2.Дана целочисленная квадратная матрица размером n*n. Найти номера строк, все элементы которых – нули.
(эту задачу двухмерным массивом)

3.Даны натуральные n, целые числа a1, … , an. Наименьший элемент массива a1, … , an заменить целой частью среднего арифметического всех элементов, остальные элементы оставить без изменения. Если в массиве несколько элементов со значением min (a1, … , an), то заменить последний по порядку.
(эту задачу массивом)

P.S. Помогите, пожалуйста, очень надо... сам не могу, а надо закрыть долг(((.... Уважаемые програмисты прошу помощи!!!

@WolfCF · 10.02.2010, 15:03

Сообщение от Meet163

.Дана целочисленная квадратная матрица размером n*n. Найти номера строк, все элементы которых – нули.
(эту задачу двухмерным массивом)

Pascal

uses crt;
var
   a:array [1..100,1..100] of integer;
   i,j,k,n:integer;
begin
clrscr;
write('vvedite n: ');
readln(n);
  for i:=1 to n do
   for j:=1 to n do
  begin
  write('A[',i,',',j,']= ');
  readln(a[i,j]);
  end;
 for i:=1 to n do
  begin
    for j:=1 to n do
  write(a[i,j],' ');
writeln;
  end;
k:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
 if a[i,j]=0 then inc(k);
 if k=n then writeln(i,' stroka iz noley ')
 end;
readln;
END.

@Meet163 · 10.02.2010, 20:16 **[ТС]**

Спасибо огромное!!! признателен!!!! ток нужно ещё 2))

Добавлено через 2 часа 23 минуты
ктонить знает как ещё 2 решить?

@Law[L]esS · 10.02.2010, 21:56

2.

Pascal

const
 n = 8;
var
 a: array[1..n,1..n] of integer;
 i,i2:integer;
begin
 for i:= 1 to n do
   for i2:= 1 to n do
     readln(a[i,i2]);
 for i:= 1 to n do
   for i2:= 1 to n do begin
     if (a[i,i2] <> 0) then
       break;
     if (i2 = n)  then
       writeln(i);
   end;
end.

Добавлено через 13 минут

Не по теме:

ой... токо заметил что она уже была решена :wall:

@Meet163 · 12.02.2010, 17:32 **[ТС]**

Всё равно спасибо))) а вот бы ещё 2... ктонить знает?))

@Meet163 0 / 0 / 0 Регистрация: 10.02.2010 Сообщений: 5
		1
	Найти сумму вычисленных значений функции 10.02.2010, 13:36. Показов 1618. Ответов 4 Метки нет (Все метки) 1.F(x)=(cos43.14x)/1 +xx Найти сумму вычисленных значений функции f(x), дробная часть которых > 0.5 (эту задачу надо решит при помощи Циклов) 2.Дана целочисленная квадратная матрица размером nn. Найти номера строк, все элементы которых – нули. (эту задачу двухмерным массивом) 3.Даны натуральные n, целые числа a1, … , an. Наименьший элемент массива a1, … , an заменить целой частью среднего арифметического всех элементов, остальные элементы оставить без изменения. Если в массиве несколько элементов со значением min (a1, … , an), то заменить последний по порядку. (эту задачу массивом) P.S. Помогите, пожалуйста, очень надо... сам не могу, а надо закрыть долг(((.... Уважаемые програмисты прошу помощи!!! 0

@Meet163 0 / 0 / 0 Регистрация: 10.02.2010 Сообщений: 5
	10.02.2010, 20:16 [ТС]	3
	Спасибо огромное!!! признателен!!!! ток нужно ещё 2)) Добавлено через 2 часа 23 минуты ктонить знает как ещё 2 решить? 0

@Meet163 0 / 0 / 0 Регистрация: 10.02.2010 Сообщений: 5
	12.02.2010, 17:32 [ТС]	5
	Всё равно спасибо))) а вот бы ещё 2... ктонить знает?)) 0

Опции темы