Форум программистов, компьютерный форум CyberForum.ru

из паскаля в си_1 - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ из паскаля в си_2 http://www.cyberforum.ru/cpp/thread122999.html
пожалуйста, помогите переписать на с++(((((((((((((( program kontr; uses crt; const nmax=100; type mas=array of integer; procedure Vvod(var v:mas;var x:byte); var i:byte; begin
C++ В каком SDK находятся библиотечные файлы Urlmon.lib winmm.lib В каком SDK находятся библиотечные файлы Urlmon.lib winmm.lib? Я предполагал что в Direct SDK(у меня DirectX SDK 2006), однако там не нашел. Может кто подскажет где находятся и какую функциональность несут? http://www.cyberforum.ru/cpp/thread122899.html
Верно ли, что среди точек есть хотя бы одна, принадлежащая квадрату? C++
Дано натуральное n, действительные x_1, y_1, ... x_n, y_n Выяснить, верно ли, что среди точек (x_i, y_i), i=1, ..., n есть хотя бы одна, принадлежащая квадрату, стороны которого параллельны координатным осям, центр совпадает с началом координат, а длина стороны равна 1. Помогите решить ... что то не совсем получается....програмирую недавно....а скоро курса сдавать......
Транслятор с паскаля на С C++
Салют! Можете привести самый простой пример транслятора с паскаля на С, заранее спасибо
C++ Помогите пожалуйста записать на С++ фрагмент программы http://www.cyberforum.ru/cpp/thread122628.html
помогите пожалуйста записать на С++ фрагмент программы) const s:string='0123456789ABCDEF'; c:array of byte=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15); for i:=length(s16) downto 1 do
C++ WinAPI C++ & winapi - передача объектов переменных в функцию thread для их обработки? #include "WinThread.h" //int flag; LPVOID hf1,hf2,hf3,hf0; void CALLBACK f2(void*) { while(1){ SwitchToFiber(hf1); } подробнее

Показать сообщение отдельно
Дарья Прохорова
1 / 1 / 0
Регистрация: 03.12.2009
Сообщений: 77

из паскаля в си_1 - C++

28.04.2010, 13:57. Просмотров 348. Ответов 3
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program kontrolnaya;
uses crt;
var a,b,z,r:real;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('r=');readln(r);
if (((a-5)*(a-5)+b*b<r*r) and not((a+5)*(a+5)+b*b<r*r)) or (((a+5)*(a+5)+b*b<r*r) and not((a-5)*(a-5)+b*b<r*r)) then
 begin
  writeln('Точка попадает в область!');
  z:=a*a-3*b;
 end
else
 begin
  writeln('Точка не попадает в область!');
  if (a<0)and(b<0) then z:=25+a+b
  else z:=a-b;
 end;
write('Z=',z:0:2);
readln
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 18:18. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru