Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Выбрать одинаковые числа в последовательностях Даны две последовательности из целых чисел: а1, ..., аn; b1, ..., bn. Напечатать различные числа, встречающиеся в обоих последовательностях. https://www.cyberforum.ru/ pascal/ thread637366.html Pascal Найти среднее арифметическое элементов каждого из столбцов матрицы
Дана вещественная матрица размером n x m. Найти средне арифметическое элементов каждого из ее столбцов Помогите срочно нужно. Спасибо!!!
Pascal Блок-схема https://www.cyberforum.ru/ pascal/ thread637195.html
Помогите составить блок схему к программе. program zad7; uses crt; Const n=3; Var A:array of integer; B:array of integer; i,j,s:integer; Begin For i:=1 to n do For j:=1 to n do
Pascal файловый ввод- вывод Напишите программу которая записывает в текстовый файл массив значений функции(у) (смотрите ниже*) на интервале от 4 до 12 с шагом 2 а затем читает лишь каждое 2-е значение и выводит его на экран. Используя листинг решения (смотреть ниже**) рассчитать значения функции (у) в указанных точках и выведите на экран. Сравните полученные значения из файла и рассчитанные напрямую используя функцию (у) ... https://www.cyberforum.ru/ pascal/ thread635992.html
Pascal Файловый Ввод-Вывод
В качестве исходного текста использовать массив (предварительно напечатанный в блокноте) ; обработать его (программа ниже) ; затем результаты работы (вектор из сумм элементов) записать в новый файл и отобразить на экран. Добавлено через 2 минуты uses crt; Const n=3; Var A:array of integer; B:array of integer; i,j,s:integer; Begin For i:=1 to n do
Pascal Во введенном предложении вывести на печать все слова содержащие более чем 1 букву а https://www.cyberforum.ru/ pascal/ thread635149.html
напишите и отладьте программу для обработки символьных данных. предусмотреть ввод произаольной строки символов. на экран вывести введеную строку и результат ее обработки.Задание: во введенном предложении вывести на печать все слова содержащие более чем 1 букву а Добавлено через 15 минут Помогите плиз
Pascal Программа для вывода на экран знаков препинания(с указанием их АСКИ-кода) знаков препинания https://www.cyberforum.ru/ pascal/ thread635125.html
Напишите и отладьте программу для вывода на экран(с указанием их АСКИ -кода) знаков препинания
Pascal Удалить все слова начинающиеся с буквы
Удалить из введенного предложения все слова начинающиеся с буквы "s".
Pascal Сформировать массив из сумм положительных элементов соответствующих строк матрицы https://www.cyberforum.ru/ pascal/ thread635109.html
Здравствуйте помогите пожалуйста! Дана матрица А(3,3) сформировать массив В(3) каждый элемент которого есть сумма положительных элементов соответствующей строки матрицы А. (матрица должна вводится пользователем) Добавлено через 5 минут я вот что то сделал но тут неправильно program matrix; uses crt; const n=3;m=3;sum1=0; var a:array of real; b:array of real;
Pascal Анаграммы https://www.cyberforum.ru/ pascal/ thread634591.html
Здравствуйте! Дан словарь и фраза. Найти анаграммы. Вывести результаты в файл. (На всякий случай пример анаграмм: клоун-колун-уклон-кулон, монета-немота.) Смог сделать поиск только если вводить слова, а вот чтобы брать их из файла, не получается. uses heaptrc, lineinfo, crt; var s: text; i: integer; str, str1, str2: string; f: boolean; ch: char; b1, b2: array of...
Разложить камни в 2 кучи так, что разность весов двух куч была минимальной Pascal
Разложить камни в 2 кучи так, что разность весов двух куч была минимальной. Вот мой вариант, однако, неправильный: type list = array of longint; var n,i,w1,w2,d:integer; w:list; begin read(n);
Pascal Получить таблицу температур по Цельсию https://www.cyberforum.ru/ pascal/ thread633553.html
1.Получить таблицу температур по Цельсию от 0 до 10 градусов и их эквивалентов по шкале Фаренгейта,используя для перевода формулу {t}_{f}=(\frac{9}{5})*{t}_{c}+32 . 2.Даны натуральное число n и действительное число х. Вычислить \sum_{1}^{n}(\frac{1}{j}+\sqrt{x}) . Вместо j - jфакториал; и где х - модульХ.
0 / 0 / 0
Регистрация: 01.06.2012
Сообщений: 45
0

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

14.08.2012, 11:10. Показов 892. Ответов 2
Метки (Все метки)

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
program vosdva;
uses crt;
var s,ss:string;
     i,k:integer;
begin
 writeln('Vvedite stroku ');
 readln(s);
ss:='';
k:=0;
for i:=1 to length(s) do
begin
 if s[i] in ['a'..'z'] then
 begin
  ss:=ss+s[i];
  if s[i]='a' then k:=k+1;
 end;
 if not(s[i] in ['a'..'z'])or(i=length(s))then
 begin
  if k>1 then writeln(ss);
    ss:='';
    k:=0;
 end;
end;
readln;
end.


Вернуться к обсуждению:
Составить блок-схему Pascal
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
14.08.2012, 11:10
Готовые ответы и решения:

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

Составить блок-схему
Нужно составить блок-схему к задаче. 1 Var a:real; 2 Begin 3 p:=1; 4 For i:=1 to n do 5 if (a>7) then p:=p*a; ...

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

2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
14.08.2012, 11:10
Помогаю со студенческими работами здесь

Составить блок схему
program zadacha2; Procedure Delyt(i:integer; var S:integer); Var J:integer; Begin S:=0; For J:=1 to I-1 do if (I mod J = 0)...

Составить блок схему
const xn=-3; xk=3; dx=0.5; var g,x: real; begin x:=xn; writeln(' X G(X)'); repeat

Составить блок-схему
program n14; var s:string; i,c:integer; begin writeln('vvedit stroky'); readln(s); for i:=1 to length(s) do c:=pos('.',s); ...

Составить блок схему
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 ...

Составить блок-схему
Всем хай. Помогите плиз написать блок схему вот к этой программе

0
Новые блоги и статьи
Linux API: Полное руководство
hw_wired 08.02.2025
Linux API – это низкоуровневый программный интерфейс, обеспечивающий взаимодействие пользовательских приложений с ядром операционной системы. Он включает набор системных вызовов, библиотечных функций. . .
Асинхронное программировани­­­­­е и эмуляция async/await в C (СИ)
hw_wired 08.02.2025
Язык программирования C, несмотря на свой возраст, предоставляет неплохие средства для реализации асинхронных операций, позволяя создавать эффективные решения для обработки параллельных задач. В. . .
Как сгенерировать случайное число в указанном диапазоне в JavaScript
bytestream 08.02.2025
В JavaScript генерация случайных чисел основана на детерминированном алгоритме, который создает последовательность псевдослучайных значений. Встроенный метод Math. random() возвращает псевдослучайное. . .
Как получить список всех таблиц в PostgreSQL
bytestream 08.02.2025
PostgreSQL предлагает несколько методов для получения списка таблиц в базе данных. Наиболее распространенный способ - использование системного каталога pg_tables, который содержит информацию обо всех. . .
Java Spring для начинающих
bytestream 08.02.2025
Spring Framework - это универсальное решение для создания корпоративных Java-приложений. Он предоставляет комплексную программную и конфигурационную модель для современных приложений на Java. Spring. . .
Асинхронное программировани­­­­­­е и async/await в Visual Basic
bytestream 08.02.2025
В основе асинхронного программирования в Visual Basic лежит концепция неблокирующего выполнения операций. Когда программа встречает длительную операцию, например, чтение большого файла или запрос к. . .
Async/await и асинхронное программировани­­е в Delphi
bytestream 08.02.2025
Асинхронное программирование является неотъемлемой частью разработки современных приложений, позволяя создавать отзывчивые и эффективные программы. В Delphi реализация асинхронности опирается на. . .
Асинхронное программировани­­­­­е и async/await в C#
bytestream 08.02.2025
Асинхронное программирование - концепция, позволяющая приложениям эффективно выполнять длительные операции без блокировки основного потока выполнения. В контексте современной разработки на C# это. . .
Асинхронное программировани­­­­­е и горутины/каналы в Go
bytestream 08.02.2025
Язык Go изначально разрабатывался с учетом современных многоядерных процессоров и необходимости эффективного параллельного выполнения задач. В отличие от традиционных подходов к асинхронному. . .
Как восстановить stash в Git
hw_wired 08.02.2025
Git stash - это средство для временного сохранения изменений в рабочей директории. В процессе разработки часто возникают ситуации, когда нужно быстро переключиться на другую задачу, но текущие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru