• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Нужна помощь в задаче! Пожалуйста, надо сдать!

Здравствуйте !!!!Я опять со своей задачей!!!!!два дня вас не беспокоил но вижу сам не справлюсь я не могу закончить программу(((кто нибудь может написать мне её от начала до конца пожалуйста!!!!!мне завтра сдавать (((БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН!!!!

ЗАДАНИЕ МОЖЕТЕ УВИДЕТЬ ВЫШЕ,А ТАКЖЕ НЕ ПОЛНУЮ ВЕРСИЮ ПРОГРАММЫ.
 
Строитель написал(а):
Здравствуйте !!!!Я опять со своей задачей!!!!!два дня вас не беспокоил но вижу сам не справлюсь я не могу закончить программу(((кто нибудь может написать мне её от начала до конца пожалуйста!!!!!мне завтра сдавать (((БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН!!!!

ЗАДАНИЕ МОЖЕТЕ УВИДЕТЬ ВЫШЕ,А ТАКЖЕ НЕ ПОЛНУЮ ВЕРСИЮ ПРОГРАММЫ.
Нажмите для раскрытия...
Ладно. Только вот что. Обозначения я использовал те, к которым привык, а именно:
1. Параметры i и n относятся к СТРОКАМ.
2. Параметры j и m относятся к СТОЛБЦАМ.
3. Обозначение матрицы n x m и, соответственно, массива A[1..n,1..m] означает n строк и m столбцов.
Код: 
Program bukvaa;
uses crt;
const
 n=10;
 m=9;
var i,j:integer;
 s:real;
 a:array[1..n,1..m] of real;

begin
 clrscr;
 writeln('vvedite massiv');
 for i:=1 to n do
   for j:=1 to m do
    begin
     Write('a[',i,',',j,']= ');
     ReadLn(a[i,j]);
    end;
 writeln;

 for i:=1 to n do
  begin
   for j:=1 to m do
    Write(a[i,j]:8:3);
   writeln;
  end;
 WriteLn('Press "Enter" to continue');
 ReadLn;

  for j:=1 to m do
   begin
    s:=0;
    for i:=1 to n do
     s:=s+a[i,j];
    s:=s/n;
    writeln('srednee arifmeticheskoe elementov ',j,' stolbza',s:8:3);
   end;
 WriteLn('Press "Enter" to continue');
 ReadLn;

  for j:=1 to (m div 2) do
   begin
    s:=0;
    for i:=1 to n do
     s:=s+a[i,2*j];
    s:=s/n;
    writeln('srednee arifmeticheskoe elementov ',2*j,' stolbza',s:8:3);
   end;
 ReadLn;
end.
 
  • Like
Реакции: Maga
А не знаете кто мог бы помочь с блок схемами?
 
А какое задание для схемы?
 
задание одно это же другое я сам написал но со схемами у меня вообщем беда((
 
помогите с написанием программы по массивамнадо сдать
 
задание одно это же другое
Нажмите для раскрытия...
Строитель, как это понимать? давайте задание, завтра к вечеру может сделаю.
kazax, создайте свою тему, и опишите задание полностью, Телепат с форума уволился
 
MrSTEP я создал свою тему и задание выклал ,можете посмотреть и подсказать?
 
если найду и пойму, что вы там наклали, то подскажу
 
program zadacha1;
uses crt;
const n=10;
var i:integer;
q:array [1..n] of integer;
begin
clrscr;
randomize;
writeln ('lybie 10 chisel');
for i:=1 to n do begin q:=random (100);
write (q,' ');
end;
writeln;
writeln ('iz nih nugnie');
for i:=1 to n do
if (q mod 2=0) and (q mod 4<>0) then
write (q,' ');
readln
end.

ии....

Program bukvaa;
uses crt;
const n=10;
m=9;
var i,j:integer;
s:real;
a:array[1..n,1..m] of real;
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']= ');

readln(a[i,j]);
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:6:2);
writeln;
end;
writeln('nagmite "Enter" ');
readln;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
s:=s/n;
writeln('srednee arifmeticheskoe elementov ',j,' stolbza',s:6:2);
end;
readln;
end.(отдельное спасибо за эту программу Vladimir S)
 
Попробую разобрать и сделать. У меня есть сутки?
 
до завтра это крайний срок(((

если вы не будете против я тоже буду пытаться сделать,потом сверю с вашим если у меня что получиться???
 
Готово. Во второй задаче опустил вывод массива сразу после ввода
 

Вложения

  • стр1.webp
    стр1.webp
    91.3 KB · Просмотры: 272
  • стр2.webp
    стр2.webp
    52.1 KB · Просмотры: 193
Помогите в решении еще двух задач пожалуйста!!!

Даны целые числа а1,…,а50. Получить последовательность b1,…,b50, которая отличается от исходной тем, что все члены удвоены.

Дана действительная матрица 18 х n. Найти значение наибольшего по модулю элемента матрицы, а также индексы данного элемента.
 
Даны целые числа а1,…,а50. Получить последовательность b1,…,b50, которая отличается от исходной тем, что все члены удвоены.
Код: 
program mas1;
uses crt;
var a: array[1..50] of integer;
     b: array[1..50] of integer;
     i,p:integer;
begin
randomize;
writeln('Выберите способ заполнения массива (1-авто, 2-вручную)');
repeat
read(p);
until (p=1) or (p=2);
for i:=1 to 50 do begin
if p=1 then a[i]:=random(40) else read(a[i]);
b[i]:=2*a[i];
end;
writeln;
writeln('a[i]      b[i]');
for i:=1 to 50 do begin
writeln(a[i]:5, b[i]:5);
end;
readln;
end.
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху