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

Перевод кода с Паскаля на С++ (вычислить стоимость картины)

01.08.2014, 13:32. Показов 1400. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, уважаемые программисты! Не могли бы вы мне помочь?
Мне 11 лет, и я учусь программировать на Pascal ABC.
Как мне перевести код Pascal ABC в Visual C++?
Вот код:
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var a, b, c: real;
begin
writeln ('Введите ширину картины.');
readln (a);
writeln ('Введите длину картины.');
readln (b);
c:=a*b*0.00406;
writeln ('Цена = ',c:0:2);
end.
Как мне сделать точно такую же программу, только в Visual C++?
Заранее благодарю!
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
01.08.2014, 13:32
Ответы с готовыми решениями:

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр 4-миллиметр'); ...

Перевод кода из паскаля
Переведите пожалуйста код из паскаля в лазарус. uses crt; type tovar=record naz:string; kol:integer; imp:integer; prc:real; ...

Перевод кода из Паскаля в С++
Я в С++ не бум бум, написал прогу на паскале а нуно на Си++ помогите перевести Задача : Назовем допустимым преобразованием матрицы...

3
1130 / 789 / 232
Регистрация: 12.04.2010
Сообщений: 2,012
01.08.2014, 17:05
Лучший ответ Сообщение было отмечено SatanaXIII как решение

Решение

Цитата Сообщение от Kubson Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var a, b, c: real;
begin
writeln ('Введите ширину картины.');
readln (a);
writeln ('Введите длину картины.');
readln (b);
c:=a*b*0.00406;
writeln ('Цена = ',c:0:2);
end.
Как мне сделать точно такую же программу, только в Visual C++?
C++
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
#include <iostream>
//uses crt;
 
int main()
{
//begin
 
    //var a, b, c: real;
    double a=0, b=0, c=0;
 
    std::cout << " a == ";
    //writeln ('Введите ширину картины.');
 
    std::cin >> a;
    //readln (a);
 
    std::cout << " b == ";
    //writeln ('Введите длину картины.');
 
    std::cin >> b;
    //readln (b);
 
    c =a*b*0.00406;
    //c:=a*b*0.00406;
 
    std::cout << "  result is  " << c << std::endl;
    //writeln ('Цена = ',c:0:2);
 
    std::cout << "  press Enter... ";
    std::cin.get();
    std::cin.get();
    // или 
    //system("pause");
    return 0;
}
//end.
1
8 / 2 / 0
Регистрация: 17.07.2014
Сообщений: 253
06.08.2014, 10:49  [ТС]
Хочется ещё раз напомнить, что я совсем не у мею программировать с++, так что не отправляйте пожалуйста сырые коды! Всё что я могу, так это скопировать код, который вы мне отправели, и вставить в нужную строку! Ооправьте, пожалуйста, целый код, который не надо редактировать!
0
Почетный модератор
Эксперт С++
 Аватар для SatanaXIII
5851 / 2862 / 392
Регистрация: 01.11.2011
Сообщений: 6,906
06.08.2014, 11:47
Kubson, код Alex5 чрезмерно развернутый и полный. К тому же прекрасно оформлен и вообще все сделано для вашего удобства восприятия. Любые книжки откройте по программированию на C++ и научитесь запускать оттуда примеры.

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

Перевод кода с Паскаля на C#
uses crt; const nmax=100; var a:array of integer; n,i,mx,imx,mn,imn:integer; begin randomize; repeat write('Количество...

Перевод кода из Паскаля на С++
Я еще не обладаю достаточными знаниями работы с файлами на С++ поэтому помогите перевести код program DFG; var file1,file2:file of...

Перевод кода с паскаля на С++
Нужно перевести на С++ program dvumerniu; uses crt; const m=2; n=4; type mat=array of integer; var ...

Перевод кода с Паскаля на С++
помогите перевести код программы с Паскаля в с++, пожалуйста! Program pr1; uses crt; var f:text; s:string; i:byte; n:integer; ...

Перевод кода с Паскаля на C#
надеюсь кто-то из C# юзеров ещё помнят паскаль. суть в том что я перебивал код с паскаля(работает правильно) на C#.вроде бы и перебил...


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

Или воспользуйтесь поиском по форуму:
4
Закрытая тема Создать тему
Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru