Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Разложить камни в 2 кучи так, что разность весов двух куч была минимальной Pascal
Разложить камни в 2 кучи так, что разность весов двух куч была минимальной. Вот мой вариант, однако, неправильный: type list = array of longint; var n,i,w1,w2,d:integer; w:list; begin... Вопрос уже поднимался. uses crt; var a: array of real; gr1,gr2,tmp: real; i,j,n: integer; begin clrscr; write('Количество камней: '); readln(n); writeln('Вес каждого: ');
Получить таблицу температур по Цельсию Pascal
1.Получить таблицу температур по Цельсию от 0 до 10 градусов и их эквивалентов по шкале Фаренгейта,используя для перевода формулу {t}_{f}=(\frac{9}{5})*{t}_{c}+32 . 2.Даны натуральное число n и... Кукер, название темы т-т было бы круче. Почитай правила и в следующий раз я тебе чего-то выпишу.
Pascal Выбрать одинаковые числа в последовательностях https://www.cyberforum.ru/ pascal/ thread637366.html
Даны две последовательности из целых чисел: а1, ..., аn; b1, ..., bn. Напечатать различные числа, встречающиеся в обоих последовательностях. Var A,B,C:array of integer; i,j,k,n,r:integer; f:boolean; Begin write('Введите n: ');readln(n); writeln('Последовательность A'); For i:=1 to n do Begin ...
Pascal Удалить все слова начинающиеся с буквы Удалить из введенного предложения все слова начинающиеся с буквы "s". Var s,s1,s2:string; Begin write('Введите строку: ');readln(s); s:=s+' ';s2:=''; While Pos(' ',s)<>0 do Begin s1:=Copy(s,1,Pos(' ',s)); Delete(s,1,Pos(' ',s)); ... https://www.cyberforum.ru/ pascal/ thread635110.html
Сформировать массив из сумм положительных элементов соответствующих строк матрицы Pascal
Здравствуйте помогите пожалуйста! Дана матрица А(3,3) сформировать массив В(3) каждый элемент которого есть сумма положительных элементов соответствующей строки матрицы А. (матрица должна вводится... const n=3; var a: array of integer; b: array of integer; i,j: integer; begin for i:=1 to n do begin b:=0;
Pascal Программа для вывода на экран знаков препинания(с указанием их АСКИ-кода) знаков препинания Напишите и отладьте программу для вывода на экран(с указанием их АСКИ -кода) знаков препинания знаков препинания А что к ним отнести? https://www.cyberforum.ru/ pascal/ thread635125.html
Pascal Файловый Ввод-Вывод
В качестве исходного текста использовать массив (предварительно напечатанный в блокноте) ; обработать его (программа ниже) ; затем результаты работы (вектор из сумм элементов) записать в новый файл и... Const n=3; Var f,g:text; A:array of integer; i,j,s,p:integer; c:char; Begin Assign(f,'in.txt');Reset(f); Assign(g,'out.txt');Rewrite(g); For i:=1 to n do For...
Pascal Анаграммы https://www.cyberforum.ru/ pascal/ thread634591.html
Здравствуйте! Дан словарь и фраза. Найти анаграммы. Вывести результаты в файл. (На всякий случай пример анаграмм: клоун-колун-уклон-кулон, монета-немота.) Смог сделать поиск только если вводить... там ведь 2 переменные (2 слова)... Ну так первая задается, а вторая(анаграмма) ищется в словаре=файле. Добавлено через 4 минуты Просто приделать поиск к Вашему коду никак нельзя, какие-то...
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... Держи...
Pascal файловый ввод- вывод
Напишите программу которая записывает в текстовый файл массив значений функции(у) (смотрите ниже*) на интервале от 4 до 12 с шагом 2 а затем читает лишь каждое 2-е значение и выводит его на экран.... my_g:=z/(3+2*cos(c))-d;//скобку перенеси А вообще не условие, а бред. Посчитать, записать в файл, прочитать из файла, снова посчитать и сравнить???? Что за масло масляное, и что значит сравнить?
Pascal Во введенном предложении вывести на печать все слова содержащие более чем 1 букву а напишите и отладьте программу для обработки символьных данных. предусмотреть ввод произаольной строки символов. на экран вывести введеную строку и результат ее обработки.Задание: во введенном... Вообще-то выводит, но неверно, исправьте begin if k>1 then writeln(ss); ss:='';//здесь k:=0; https://www.cyberforum.ru/ pascal/ thread635149.html Pascal Найти среднее арифметическое элементов каждого из столбцов матрицы Дана вещественная матрица размером n x m. Найти средне арифметическое элементов каждого из ее столбцов Помогите срочно нужно. Спасибо!!! Какой язык? https://www.cyberforum.ru/ pascal/ thread637346.html
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
14.08.2012, 11:25 0

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

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

Ответ

Илюха12345, Если уж нифига не умеешь, то научись хотя бы вставлять свой код в теги, поверь это не сложно.

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

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

Составить блок-схему
Нужно составить блок-схему к задаче. 1 Var a:real; 2 Begin 3 p:=1; 4 For i:=1 to n do 5 if (a&gt;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:25
Помогаю со студенческими работами здесь

Составить блок схему
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
Новые блоги и статьи
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru