Пятница, 29.03.2024, 12:30
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Pascal] массив (пожалуйста помогите срочно)
[Pascal] массив
айдарДата: Вторник, 07.06.2011, 15:15 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
дан массив А(10) элементы которого целые числа из (0;9). Вывести А(10) на экран заменить четные элементы на число 2 полученный массив вывести на экран.

дан массив С(4ж5) элементы которого вычисляются по формуле С(i,j)=3*i-2*j. вывести массив на экран подcчитав сумму каждого столбца.


Сообщение отредактировал айдар - Вторник, 07.06.2011, 15:16
 
KOT_B_MEIIIKEДата: Среда, 08.06.2011, 17:05 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Code
PROGRAM N1;
VAR A:ARRAY [1..10] OF 0..9;I:INTEGER;
BEGIN
FOR I:=1 TO 10 DO
      BEGIN
      A[I]:=RANDOM(10);
      WRITE(A[I]:2);
      END;
WRITELN;
FOR I:=1 TO 10 DO
      BEGIN
      IF (A[I] MOD 2=0) THEN A[I]:=2;
      WRITE(A[I]:2);
      END;
END.


Code
PROGRAM N2;
VAR C:ARRAY [1..4,1..5] OF INTEGER;S:ARRAY[1..5] OF INTEGER;I,J:INTEGER;
BEGIN
FOR I:=1 TO 5 DO S[I]:=0;
FOR I:=1 TO 4 DO
     BEGIN
     FOR J:=1 TO 5 DO
         BEGIN
          C[I,J]:=3*I-2*J;
          WRITE(C[I,J]:3);
          S[J]:=S[J]+C[I,J];
         END;
     WRITELN
     END;
WRITELN;
FOR I:=1 TO 5 DO
     WRITE(S[I]:3);
WRITELN;
WRITELN;WRITELN;
END.
 
VISHNKAKAДата: Четверг, 16.06.2011, 21:27 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
очень прошу помогите сегодня очень срочно
написать програму которая по исходнуму двумерному масиву формирукт результирущий масив из макс элементов срок затем формерует эту програму.
+что будет на икране (я так понимаю мне нужен масив А в котором например 4 стоки и масив Б в котор макс значение из масива А
подскажите где скачать нормальный турбо паскаль на свой компьютер

Добавлено (16.06.2011, 21:27)
---------------------------------------------
очень прошу помогите сегодня очень срочно
написать програму которая по исходнуму двумерному масиву формирукт результирущий масив из макс элементов срок затем формерует эту програму.
+что будет на икране (я так понимаю мне нужен масив А в котором например 4 стоки и масив Б в котор макс значение из масива А
подскажите где скачать нормальный турбо паскаль на свой компьютер

 
KOT_B_MEIIIKEДата: Четверг, 16.06.2011, 21:42 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Я конечно закрою глаза, что это НЕ новая тема, что орфография тут, прямо скажем, не очень, но в следующий раз, попрошу вас, создать новую тему.
Code
program mass;
var A:array [1..5,1..7] of integer;
b:array [1..5] of integer;i,j,max:integer;
begin
for i:=1 to 5 do
      begin
      max:=0;
      for j:=1 to 7 do
          begin
          a[i,j]:=random(100);
          if a[i,j]>max then max:=a[i,j];
          write(a[i,j]:3);
          end;
      b[i]:=max;
      writeln
      end;
writeln;
for i:=1 to 5 do
      write(b[i]:4);
writeln;
writeln;
end.

cкачать паскаль можно в инете, найти несложно. Если стоит винда-семёрка, то лучше скачать паскаль АВС - он ставится на всё =)
 
VISHNKAKAДата: Четверг, 16.06.2011, 21:52 | Сообщение # 5
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Огромное спасибо !
Выручили !
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Pascal] массив (пожалуйста помогите срочно)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024