Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
f50
0 / 0 / 0
Регистрация: 11.02.2017
Сообщений: 1
1

Необходима блок-схема к программе

16.07.2009, 18:16. Просмотров 887. Ответов 3
Метки нет (Все метки)

Помогите, пожалуйста, сделать блок-схему.

Задача: дан одномерный массив L[10], элементы которого вводятся с клавиатуры. в данном массиве значение каждого элеиента, имеющего четный порядковый номер, возвести в квадрат. на экран вывести исходный и измененный массив.

Прогрмамму написал:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Program massiv;
Const N=10;
Var i:integer;
X:array[1..n] of real;
L:array[1..n] of real;
begin
for i:=1 to n do
begin
Write('vvedite znacenie',i,'-go elementa-');
readLn;
end;
for i:=1 to n do
if (i mod 2<>1) then x[i]:=sqr(L[i]) else x[i]:=L[i];
WriteLn('Array L:');
for i:=1 to n do
Write(L[i]:7:2);
WriteLn;
WriteLn('Array X:');
for i:=1 to n do
Write(X[i]:7:2);
WriteLn;
ReadLn;
end.
Помогите, пожалуйста, составить блок-схему. Крайняя нужда...
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.07.2009, 18:16
Ответы с готовыми решениями:

Блок- схема по программе
помогите нарисовать блок схему по программе program vstavka_propuska; uses crt; var...

Блок-схема к программе
Помогите пожалуйста. Нужно срочно сделать блок-схему. Кто сможет сделать, умоляю, пришлите сюда...

Блок схема по программе
Нужно составить блок схему Uses CRT; const nmax=5; mmax=5; str=5;

Блок схема по программе
uses crt; const n=15; m=8; var a,b:array of integer; i,j,imx,imn,sa,sb:integer;...

Блок-схема к программе
помогите пожалуйста написать блок-схему к программе: var MyArr:array of real; ...

3
HIMen
4295 / 1463 / 101
Регистрация: 12.04.2009
Сообщений: 2,346
16.07.2009, 18:24 2
http://www.aivosto.com/visustin.html
0
f50
0 / 0 / 0
Регистрация: 11.02.2017
Сообщений: 1
16.07.2009, 19:11 3
Спасибо, HIMen, прогу заюзал, но результат хотелось бы в более удобоваримой форме. не могли бы вы написать его и выложить здесь файлом, если не тяжело? буду оч признателен.
0
DannerDOS
Programmer
40 / 40 / 6
Регистрация: 07.04.2009
Сообщений: 187
19.07.2009, 08:41 4
Более удобочитаемый вид... И без лагов!
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
program F50;
var
  i, n : integer;
  X, L : array [1 .. 100000] of real;
begin
write('Введите размерность массива: ');
 readln(n);
for i := 1 to n do
  begin
  write('Введите значение ',i,'го елемента массива');
   readln(L[i]);
  end;
for i := 1 to n do
  begin
  if i mod 2 = 0 then
    begin
    X[i] := sqr(L[i]);
    end
  else X[i] := L[i];
  end;
writeLn('Исходный массив: ');
for i:=1 to n do
  write(L[i] :7 :2);
writeln;
writeln('Преобразованный массив: ');
for i:=1 to n do
  write(X[i] :7 :2);
writeLn;
readln;
end.
0
19.07.2009, 08:41
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.07.2009, 08:41

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Блок схема к готовой программе
Привет! помогите построить блок схему к следующей программе. Задача: Текстовый файл содержит...

Нужна блок-схема к программе
Дан двумерный массив 5на5.Вычислить произведение отрицательных элементов.Определить индецсы...

Блок схема к программе вычисления выражения
нужна блок схема к этой программе, кто знает? program lab2; uses crt; var k : Byte; x :...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.