Перевод из Pascal на язык С.

14.11.2010, 17:32. Показов 483. Ответов 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses Crt;
const
  k=4; a1=3.7718; a2=5,5168; a3=3,5245; f=1;
  n=3; h=0.05; w1=0.5; w2=7.5;
var
  x,m1:real;
  i,j,m:integer;
  y,p,g:array[0..3] of real;
 
procedure pr_1;
begin
  p[1]:=y[2];
  p[2]:=y[3];
  p[3]:=(k*f-y[1]-a1*y[2]-a2*y[3])/a3;
end;
BEGIN
  ClrScr;
  y[1]:=0; y[2]:=0; y[3]:=0; x:=0;
  writeln('  x      y  ');
  writeln('------------');
  REPEAT
    m1:=int(w1/h);
    m:=trunc(m1);
    for j:=1 to m do
      begin
        pr_1;
        for i:=1 to n do
          begin
            g[i]:=y[i]+h*p[i]/4;
            y[i]:=y[i]+2*h*p[i]/3;
          end;
        pr_1;
        for i:=1 to n do
          y[i]:=g[i]+3*h*p[i]/4;
        x:=x+h;
      end;
    writeln(x:4:2,'  ',y[1]:5:3);
  UNTIL x>w2;
  readln;
END

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

14.11.2010, 17:32

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

Перевод с С++ на язык Pascal
Здравствуйте. Помогите пожалуйста перевести код на язык Pascal #include<stdio.h> #include<windows.h> ...

Перевод выражения на язык pascal
Помогите с выражением

перевод кода Pascal ABC на язык C#
кто поможет перевести ети коды на язык си шарп. ? я попытаося перевести но что то не получатся. вот коды 2-ух программ: var...

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

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

14.11.2010, 17:32

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

Перевод блок схем на язык Turbo Pascal
Всем привет ! Люди помогите перевести блок схему на язык Turbo Pascal

Перевод кода Pascal ABC на язык C# (Рисование архимедовой спирали)
uses crt,graphABC; var xc,yc,x,y,k:integer; r,f:real; begin repeat write('k k=');readln(k); until k in ; xc:=windowwidth...

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома стоит эта версия /перестала работать что...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой ABC. Важен именно этот метод. ...

Перевести на язык Pascal
ребят, помогите перевести выражение на язык паскаль...никак не получается правильно http://s58.***********/i161/1009/e7/f73f4b0c0b5c.jpg

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

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

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

Наверх