Аватар для OuW414
0 / 0 / 0
Регистрация: 30.11.2009
Сообщений: 15
1

Составить блок-схему

05.12.2009, 17:54. Показов 687. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите и мне пожалуйста блок -схему правильно составить
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
31
32
33
34
35
36
37
38
39
Program v18z8;
Uses Crt;
Var t:array [0..5,0..20] of integer;
    e:array[0..20] of real;
    c,d,i,j:integer;
    a,b,p:real;
    function srz(k:integer):real;
    var x:integer;
    g:real;
    begin
    g:=0;
    for x:=1 to 5 do
    g:=g+t[x,k]/5;
    srz:=g
    end;
 
begin
randomize; clrscr; a:=3; b:=5;
writeln('programma avromaticheski prisvaivaet studentam ocenku za ekzamen ot 3 do 5');
for i:=1 to 5 do
    begin
    for j:=1 to 20 do
        begin
        t[i,j]:=random(3)+3; write(t[i,j]:3,' ');
        end;
    writeln; end;
writeln('srednaya ocenka za ekzamen');
for i:=1 to 20 do
    begin
    e[i]:=srz(i); write(e[i]:4:1);
    end;
    writeln;
writeln('sredniy ball');
for i:=1 to 5 do
    for j:=1 to 20 do
        p:=p+t[i,j]/100;
    writeln(p:3:2);
     readkey;
    End.
0
05.12.2009, 17:54
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
05.12.2009, 17:54
Ответы с готовыми решениями:

Составить блок схему вычисления значения функции, а затем составить программу
Составить блок схему вычисления значения функции, а затем составить программу

Составить блок схему
var q:arrayof real; i,n,f:integer; x:real; begin readln(n); for i:=1 to n do read(q); for i:=1 to n do if ...

Составить блок схему
var h , a , b : real; procedure printLine; begin WriteLn('--------------------'); end; function getValue(x : real) : real;...

3
Программист 1С
 Аватар для Давид
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
05.12.2009, 19:00 2
Пожалуйста.
Вложения
Тип файла: rar shema.rar (6.4 Кб, 20 просмотров)
1
 Аватар для OuW414
0 / 0 / 0
Регистрация: 30.11.2009
Сообщений: 15
05.12.2009, 21:02  [ТС] 3
спасибо огромное тебе!!!!!!!!!!!!1
0
Программист 1С
 Аватар для Давид
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
05.12.2009, 21:11 4
OuW414, незачто - обращайся
0
05.12.2009, 21:11
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
05.12.2009, 21:11
Помогаю со студенческими работами здесь

Составить блок схему
uses crt; var s1 , s2 , s3 : string; set1 , set2 , set3 : set of char; am , i : integer; ch : char; begin clrscr; ...

Составить блок-схему
uses Crt; var a:array of integer; n,i,j,k:integer; begin ClrScr; randomize; write('Размер массмва n='); readln(n); ...

Составить блок-схему
uses crt; const nmax=20; var a:arrayof integer; i,j,n,m:integer; {процедура транспонирования матрицы} procedure...

Составить блок-схему
Uses crt; const Nmax = 10; var A: array of integer; i, j, n, m: byte; begin clrscr; randomize; repeat

Составить блок-схему
uses crt; const n=3; var a:array of real; b:array of real; i,j,ko:byte; s,s1:real; begin writeln('Матрица А'); ko:=0; ...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Микросервис с нуля на Go с Kafka
stackoverflow 12.02.2025
Когда я впервые столкнулся с необходимостью разделить монолитное приложение на микросервисы, передо мной встал вопрос выбора правильных технологий и подходов. После долгих экспериментов с различными. . .
Микросервис с нуля на C# с RabbitMQ
stackoverflow 12.02.2025
Переход от монолитной архитектуры к микросервисной - это не просто модное веяние, а закономерный этап эволюции программных систем. В отличие от монолита, где все компоненты тесно связаны между собой. . .
Docker для начинающих
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения все чаще возникает необходимость быстро и надежно разворачивать приложения в различных средах. Разработчики постоянно сталкиваются с проблемой. . .
Создание бота для Телеграм на C#
stackoverflow 12.02.2025
В современном мире корпоративных коммуникаций Telegram-боты становятся незаменимым средством автоматизации бизнес-процессов и взаимодействия с сотрудниками. Как создать такого бота, который сможет. . .
Операторы сравнения (== и ===) в JavaScript
hw_wired 12.02.2025
JavaScript предоставляет два основных оператора сравнения - оператор нестрогого равенства (==) и оператор строгого равенства (===). На первый взгляд они могут показаться очень похожими, но их. . .
Определение адреса, откуда репозиторий Git был клонирован
hw_wired 12.02.2025
Система контроля версий Git хранит всю информацию о репозитории в специальной директории . git, включая данные об удаленных источниках. Эта информация необходима для синхронизации изменений между. . .
Объединение нескольких коммитов Git в один
hw_wired 12.02.2025
Представьте, что вы работаете над новой функциональностью и создали десяток небольших коммитов: исправление опечатки, форматирование кода, добавление комментариев, реализация основной логики. Каждый. . .
Как добавить локальную ветку в удалённый репозиторий Git
hw_wired 12.02.2025
Локальная ветка в Git - это изолированная линия разработки, существующая только на вашем компьютере. Представьте себе дерево с множеством веток - каждая ветка может расти в своем направлении, не. . .
Статическое отражение в C++
stackoverflow 12.02.2025
Статическое отражение представляет собой мощный механизм, позволяющий программам анализировать и манипулировать своей собственной структурой во время компиляции. Эта возможность открывает. . .
C++ в 21 веке - Бьярне Страуструп
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения C++ продолжает оставаться одним из ключевых языков программирования, несмотря на свой солидный возраст - более 45 лет с момента создания. За это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru