Пятница, 29.03.2024, 07:46
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите составить блок-схему и алгоритм (массив) (Очень нужно..)
Помогите составить блок-схему и алгоритм (массив)
RusyaДата: Среда, 15.06.2011, 13:13 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
program aaa;
uses crt;
const n=7;
var a:array[1..n] of integer;
i,s:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:=round(9*random-5);
write(a[i]:5);
end;
i:=1;
while (s<40) and (i<=n) do
begin
s:=s+a[i]*a[i];
i:=i+1;
end;
writeln;
if s>40 then writeln(i-1) else writeln('Vvedenie chisla slishkom mali')
end.


Сообщение отредактировал Rusya - Среда, 15.06.2011, 13:16
 
KOT_B_MEIIIKEДата: Среда, 15.06.2011, 15:18 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
http://zadachki.ucoz.ru/index/0-7
там есть прога, которая блоксхемы сама составляет)
 
RusyaДата: Среда, 15.06.2011, 15:52 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
а алгоритм можете составить?
сам не могу додуматься


Сообщение отредактировал Rusya - Среда, 15.06.2011, 16:07
 
KOT_B_MEIIIKEДата: Среда, 15.06.2011, 17:15 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
да что тут думать... просто построчно выпоняешь...
Прикрепления: 8418922.png (45.0 Kb)
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите составить блок-схему и алгоритм (массив) (Очень нужно..)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024