Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.11.2015, 18:21   #1
КОЛЬяН
 
Регистрация: 24.11.2015
Сообщений: 7
По умолчанию Решение задач

Здравствуйте всем, парни и девушки! Ребята, мне очень нужна ваша помощь. Я не могу решить некоторые задачи т.к. тяжеловато дается программирование, больше как-то по сетям. Хотелось бы попросить вас помочь мне с решением этих задач. Заранее всем огромное спасибо, кто откликнулся!)) вот список задач:

1. Даны три числа. Возвести в квадрат те из них, значения которых неотрицательны. Отрицательные числа оставить без изменения.
2. Плотность воздуха убывает с высотой по закону
Ρ = Ρ0 · e -hz
Считая, что Ρ0 = 1,29 кг/м3, z= 1,25 · 10-4 1/м напечатать таблицу зависимости плотности от высоты при высоте, изменяющейся от 0 до 500 м с шагом 50 м.
3. Ввести восемь чисел и вычислить сумму чисел кратных трем.
4. Дан массив А(10). Вычислить среднее значение положительных элементов массива и количество нулей.
5. Дана действительная квадратная матрица А размера n x n. Определить наименьший по модулю элемент матрицы и номера строки и столбца, на пересечении которых элемент находится..
6. Сформировать двумерный массив А размером 6*8 с помощью генератора случайных чисел и вывести элементы массива на экран. Найти средние значения элементов каждой строки матрицы и записать их в одномерный массив В. Вывести элементы массива В на экран.

П.С. если можно то сразу со схемой алгоритма)) извините что наглею)) просто тоже туговато идет у меня)) но главное сам код программы)) еще раз спасибо заранее всем!))
КОЛЬяН вне форума Ответить с цитированием
Старый 25.11.2015, 10:49   #2
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

1)
Код:
var i,a:integer;
begin
For I:=1 to 3 do
Begin
ReadLn(a);
if a>=0 then begin
	a:=a*a; WriteLn(a); end 
		else WriteLn('Ne polojitelnoe');	
end;
readln;
end.
3)
Код:
var sum,i,a:integer;
begin
sum:=0;
For I:=1 to 8 do
Begin
Writeln('vvedite chislo');
ReadLn(a);
if (a mod 3) = 0 then
	sum:=sum+a;
end;
Writeln('summa = 'sum);	
readln;
end.
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Старый 25.11.2015, 11:36   #3
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
uses crt;

procedure z4;
var a:array[1..10]of integer;
avg:real;kmin,k0,i:integer;
begin
clrscr;
randomize;
kmin:=0;k0:=0;
writeln('z4');
for i:=1 to 10 do
 begin
  a[i]:= random(21);
  a[i]:= a[i]-10;
  write(a[i]:5);
  if a[i]=0 then inc(k0) else
  if a[i]>= 0 then begin inc(kmin);avg:=avg+a[i] end;
  end;
  writeln;
  writeln('el = 0 :',k0,' szt');
  writeln('avg > 0 = ',avg/kmin:3:3);
 end;

procedure z5;
const n = 5;
var a:array[1..n,1..n] of integer;
i,j:byte;minabs,mini,minj:byte;
begin
randomize;
minabs:=22;
clrscr;
     writeln('z5');
for i:=1 to n do
begin
 for j :=1 to n do
  begin
  a[i,j]:=random(21);
  a[i,j]:=a[i,j]-10;
  write(a[i,j]:4);
    if abs(a[i,j])<minabs then
    begin
     minabs:=abs(a[i,j]);
     mini:=i;minj:=j
     end;

  end;
  writeln;
  end;
  writeln('min abs : [',mini,',',minj,'] = ',minabs)
end;

procedure z6;
var i,j,k:byte;
a:array[1..6,1..8] of byte;
b:array[1..6] of real;
begin
     clrscr;
     randomize;
     writeln('z6');
     for i:=1 to 6 do
     begin
      k:=0;
      for j:=1 to 8 do
       begin
       a[i,j]:=random(10);
       write(a[i,j]:3);
       k:=k+a[i,j];
       end;
       b[i]:=k/8;
       writeln;
{       writeln('b[',i,']=',k,'/8=',b[i]:3:3);}
       k:=0;
     end;
    for i:=1 to 6 do write(b[i]:4:2,'  ');
    writeln;
end;
 begin
 z4;
 readln;
 z5;
 readln;
 z6;
 readln;
 end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 26.11.2015, 12:28   #4
КОЛЬяН
 
Регистрация: 24.11.2015
Сообщений: 7
По умолчанию

Aleksandr H., я извиняюсь,а это к какие задачи решение?))) спасибо большое)))
КОЛЬяН вне форума Ответить с цитированием
Старый 26.11.2015, 12:44   #5
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

Цитата:
Сообщение от КОЛЬяН Посмотреть сообщение
Aleksandr H., я извиняюсь,а это к какие задачи решение?))) спасибо большое)))
по названию процедуры не догадаться?? 4,5,6
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Старый 26.11.2015, 14:37   #6
КОЛЬяН
 
Регистрация: 24.11.2015
Сообщений: 7
По умолчанию

Ну да, что - то я сглупил)) и Вам спасибо за решение задач. Очень сильно выручили)) Осталась задача №2 самая сложная наверно))

Последний раз редактировалось КОЛЬяН; 26.11.2015 в 14:40.
КОЛЬяН вне форума Ответить с цитированием
Старый 26.11.2015, 14:54   #7
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Не сложная, но сам хоть что-то сделай
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 26.11.2015, 15:05   #8
КОЛЬяН
 
Регистрация: 24.11.2015
Сообщений: 7
По умолчанию

Пытаюсь)) ну все же спасибо большое ребята, выручили сильно)
КОЛЬяН вне форума Ответить с цитированием
Старый 26.11.2015, 15:10   #9
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

Цитата:
Сообщение от КОЛЬяН Посмотреть сообщение
Пытаюсь)) ну все же спасибо большое ребята, выручили сильно)
попытки покажешь? глядишь поможет кто.
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Решение задач С++ Slavk0 Помощь студентам 1 28.06.2012 11:08
Решение задач на с++ nameless2152 Фриланс 1 27.03.2012 23:15
Решение задач imhotep Помощь студентам 18 20.02.2012 17:03
Решение задач Azzzzz SQL, базы данных 1 28.02.2011 17:47