Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 08.11.2020
Сообщений: 32

Кто может перепишите пожалуйста код с pascal на c (желательно) / c++

30.11.2020, 19:27. Показов 383. Ответов 0

Студворк — интернет-сервис помощи студентам
var
SetA,SetB,SetC : set of char;
c:char;
s:string;
i:integer;
point, newpoint : 0..3;
A: array [0..3] of integer;

begin
SetA := [];
SetB := [];
SetC := [];
for c := 'a' to 'z' do SetA := SetA + [c];
for c := '0' to '9' do SetB := SetB + [c];
SetC := SetC+['*', '-', '+'];
for i := 0 to 3 do A[i] := 0;
write ('write string :'); string :"
readln(s);
point := 0;
for i := 1 to lenght(s) do
begin
if s[i] in SetA then
newpoint := 1
else
if s[i] in SetB then
newpoint := 2
else
newpoint := 3;
if newpoint <> point then
inc(A[point]);
point := newpoint;
end;
end;
inc(A[point]);
if A[1]>A[2] then writeln('Yes')
else writeln('No');
readln;
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.11.2020, 19:27
Ответы с готовыми решениями:

Перепишите пожалуйста код с языка Pascal на C++
Вот сам код. {$N+} uses crt; const nmax=60; function Step2(n:byte):extended; var p:extended; i:byte; begin p:=1;

Кто может переписать этот код с Pascal на C
Кто может переписать этот код с Paskal на C Вот само задание 1+{3x}^{2}+\frac{5}{2}{x}^{4}...+\frac{2n+1}{n!}{x}^{2n}+... var ...

Прокомментируйте код пожалуйста кто может...
program lab2; uses CRT, Graph; const n_max=20; l_name=10; Type rec = record name:string ; vol: real; vol1: real;

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.11.2020, 19:27
Помогаю со студенческими работами здесь

Гайз, кто может перевести код из Pascal в Java
Очень нужна помощь в переводе Сам код const N = 3; M = 5; var arr: array of integer; i,j: byte; sum:...

Перепишите, пожалуйста с Pascal на C++
var f: text; nm, cm, n, c, t: integer; begin assign(f, 'd:\input.txt'); reset(f); cm := 0; c := 0; while not eof(f) do ...

Перепишите пожалуйста с Pascal на С++
Дана целочисленная матрица размера 5 x 10. Вывести номер ее первой строки, содержащего равное количество положительных и отрицательных...

Перепишите, пожалуйста с Pascal на C++
var f: text; nm, cm, n, c, t: integer; begin assign(f, 'd:\input.txt'); reset(f); cm := 0; c := 0; while not...

Перепишите, пожалуйста, программу с pascal на с++
Var a, b, c, m, n, d: integer; L: boolean; begin writeln('a'); read(a); writeln('b'); read(b); writeln('c'); read(c);


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru