Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 1
Регистрация: 29.01.2010
Сообщений: 68

Блок схема!

06.12.2010, 10:24. Показов 800. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста создать блок-схему.Понимаю задание легкое,но я только начал изучение Pascal.Заранее благодарю.

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
program la2;
var x,y,u,hx,hy,xn,yn,xk,yk:real;
begin
writeln('vvedite xn,xk,hx');
readln(xn,xk,hx);
writeln('vvedite yn,yk,hy');
readln(yn,yk,hy);
x:=xn;
repeat
y:=yn;
repeat
if abs(sqr(x)+y*y*y)<=5
then u:=cos(x+y)/sin(x+y)
else
begin
if 5<(abs(sqr(x)+y*y*y))
 AND  (abs(sqr(x)+y*y*y))<13
then u:=sqr(x)+y*y*y
else u:=x-y;
end;
writeln('u= ',u:7:2,'x= ',x:4:2,'y= ',y:4:2);
y:=y+hy;
until y>yk;
x:= x+hx;
until x>xk;
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.12.2010, 10:24
Ответы с готовыми решениями:

Блок-схема
составить блок-схему к программе Program Massiv2; сonst n=10; var a: array of real; i,j,k:integer; sum, max:...

Блок-схема
Всем привет. Помогите, пожалуйста, составить блок-схему. y=\begin{cases}\sqrt{|x+1|} &amp; \text{ if } x\,&lt;\,7 \\\\...

Блок-схема
Помогите пожалуста нарисовать блок-схему к программе. Заранее благодарна! type matrix = array of integer; var a:matrix; ...

2
 Аватар для Shelovek
66 / 66 / 33
Регистрация: 25.05.2010
Сообщений: 176
06.12.2010, 12:45
Написать программу и блок к ней! вот тебе ссылка там найдешь редактор блок-схем
1
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
06.12.2010, 12:46
.....
Миниатюры
Блок схема!  
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.12.2010, 12:46
Помогаю со студенческими работами здесь

блок-схема
Помогите пожалуйста составить блок-схему :** program Variant7; Const n=2; m=3; type Matrix=array of integer; Summa=array of...

Блок-схема
uses crt; var f,g,p:file of real; r:real; c:char; begin clrscr; assign(f,'fileF'); rewrite(f); assign(g,'fileG'); ...

Блок-схема
Program Zadacha; Uses crt; uses crt; const n=10; var a:array of integer; i,j,k,mx,imx:byte; begin clrscr; randomize; ...

Блок-схема
Begin Uses crt; Var x,s,t,e:real; n:integer; begin clrscr; x:=0.2; e:=0.000000001; t:=1; s:=0;

блок-схема
uses crt; const N=5; M=5; type matrica=array of integer; massiv=array of integer; var a:matrica; b:massiv; ...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru