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

17.12.2015, 21:35. Показов 556. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

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
var f:text;
a:array[1..20] of integer;
i,n:integer;
c:char;
begin
assign(f,'4.txt');
reset(f);
while not Eof(f) do
begin
n:=1;
while not Eoln(F) do
begin
read(f,c);
if (c=' ') or (c=',') or (c='.') then
begin
while (c=' ') or (c=',') or (c='.') do read(f,c);
if not eoln(f) then inc(n);
end;
end;
readln(f);
inc(a[n]);
end;
for i:=1 to 20 do
writeln('Предложение состоящие из ',i,' слов ',a[i]);
close(f);
end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

17.12.2015, 21:35

Ответы с готовыми решениями:

Составить блок схему к готовому коду
program prost; function prime(N: integer): boolean; var i: integer; begin if N < 2 then prime := False ...

Составить блок схему к готовому коду
program okrujnost; const PI=22/7; var d,l:real; begin writeln('Vvedite diametr'); readln(d); l:=PI*d; ...

Составить блок схему к готовому коду
Program Boolean4var; var A,B:Real; begin readLn(A,B); If (A > 2) Or (B < 3) Then WriteLn('TRUE') Else ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

17.12.2015, 21:35

Помогаю со студенческими работами здесь

Составить блок схему к готовому коду
Program celiechisla; Var A,B,C,k:Integer; Begin k:=0; WriteLn('Vvedite celie chisla A,B и C: '); ReadLn(A,B,C); If A > 0 Then...

Составить блок схему к готовому коду
program Phonebook; uses Crt; type Phone = record SurnameS : string; NameS : string; PhoneS : string; AddressS: string; ...

Составить блок схему к готовому коду
1программа Program summ; Uses crt; Var i, j: integer; a: array of integer; sum: array of integer; Begin Randomize; ...

Составить блок схему к готовому коду
var n: integer; begin write('n? '); read(n); if (n mod 3) = 0 then repeat n := n div 3; writeln(n);...

Составить блок схему к готовому коду
Var xn,xk,x,dx,y,s:real; k:byte; Begin write('Введите Xn and Xk (через пробел): ');readln(xn,xk); write('Введите dx:...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

Наверх