Помогите, я на паскаль написала программы, а меня попросили на язык Си переделать, а я его плохо знаю.
13)Дано целое число N (> 0). Если оно является степенью числа 3, то вывести True, если не является — вывести False
var N: integer; begin readln(N); while N mod 3 = 0 do N := N div 3; writeln(N = 1); // Выведет True или False end.
14)Дано целое число N (> 0). Найти наибольшее целое число K, квадрат которого не превосходит N: K2 ≤ N. Функцию извлечения квадратного корня не использовать.
var n, k: integer; begin write(‘Введите число: ‘); readln(n); while sqr(k)
3. var 4. p, s: real; 5. k: integer; 6. 7. begin 8. write(‘Введите P: ‘); 9. readln(p); 10. s := 1000; 11. while s
16)Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц).
3. var 4. N: integer; 5. 6. begin 7. write(‘Введите число: ‘); 8. readln(N); 9. write(‘Цифры: ‘); 10. while N > 0 do 11. begin 12. write(N mod 10, ‘ ‘); 13. N := N div 10; 14. end; 15. end.
17)Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X + Y)/2 и среднее геометрическое GMean == X ⋅Y двух положительных чисел X и Y (X и Y — входные, AMean и GMean — выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар (A, B), (A, C), (A, D), если даны A, B, C, D.
Как запрограммировать задание №14 из ЕГЭ по информатике 2021! Python, Pascal, C++.
3. procedure Mean(x, y: real; var a, g: real); 4. begin 5. a := (x + y) / 2; 6. g := Sqrt(x * y) 7. end; 8. 9. var 10. a, b, c, d, AMean, GMean: real; 11. 12. begin 13. write(‘A = ‘); 14. readln(a); 15. write(‘B = ‘); 16. readln(b); 17. write(‘C = ‘); 18. readln(c); 19. write(‘D = ‘); 20. readln(d); 21. Mean(a, b, AMean, GMean); 22. writeln(‘Среднее арифметическое ‘, a, ‘ и ‘, b, ‘ равно ‘, AMean); 23. writeln(‘Среднее геометрическое ‘, a, ‘ и ‘, b, ‘ равно ‘, GMean:3:2); 24.
Mean(a, c, AMean, GMean); 25. writeln(‘Среднее арифметическое ‘, a, ‘ и ‘, c, ‘ равно ‘, AMean); 26. writeln(‘Среднее геометрическое ‘, a, ‘ и ‘, c, ‘ равно ‘, GMean:3:2); 27. Mean(a, d, AMean, GMean); 28. writeln(‘Среднее арифметическое ‘, a, ‘ и ‘, d, ‘ равно ‘, AMean); 29. writeln(‘Среднее геометрическое ‘, a, ‘ и ‘, d, ‘ равно ‘, GMean:3:2); 30. end.
Кнопку # для оформления кода до сих пор не освоили?
Последний раз редактировалось Аватар; 08.05.2015 в 14:10 .
Источник: www.programmersforum.ru
Перевести программу с паскаля на Си++ [закрыт]
Скорее всего, данный вопрос не соответствует тематике Stack Overflow на русском, согласно правилам описанным в справке.
Закрыт 7 лет назад .
Я написал программу на паскале, мне сказали ее перевести на Си ++ , но я этот язык знаю плохо. Сказала подумай как? Помогите, пожалуйста. Мне бы увидеть иллюстрацию и все!
Program matrice var b:array[1..50,1..50] of real; i,j,n,m: integer; begin writeln(‘vvedite razmer massiva n % m:’); readln(n,m); for i:=1 to n do begin for j:=1 to m do begin b[i,j]:=(i+sin(pi/j))/(i-cos((i+j)*pi)/(i+2))); write(b[i,j]:10:5, ‘ ‘); end; writeln; end; readln end
В общем это программа вычисляет по формуле элементы матрицы
Отслеживать
371 1 1 золотой знак 5 5 серебряных знаков 13 13 бронзовых знаков
задан 12 сен 2013 в 11:38
7 1 1 золотой знак 2 2 серебряных знака 8 8 бронзовых знаков
12 сен 2013 в 11:59
Я голосую за закрытие этого вопроса как не соответствующего теме, потому что это работа за автора.
13 сен 2015 в 8:11
13 сен 2015 в 8:46
13 сен 2015 в 9:25
C++ vs Free Pascal ( simple speed comparison )
Источник: ru.stackoverflow.com
Перевести программу с паскаля на Си++
Я написал программу на паскале, мне сказали ее перевести на Си ++ , но я этот язык знаю плохо. Сказала подумай как? Помогите, пожалуйста. Мне бы увидеть иллюстрацию и все!
Program matrice var b:array[1..50,1..50] of real; i,j,n,m: integer; begin writeln(‘vvedite razmer massiva n % m:’); readln(n,m); for i:=1 to n do begin for j:=1 to m do begin b[i,j]:=(i+sin(pi/j))/(i-cos((i+j)*pi)/(i+2))); write(b[i,j]:10:5, ‘ ‘); end; writeln; end; readln end
В общем это программа вычисляет по формуле элементы матрицы
Ответы (1 шт):
В комментариях пояснения строки ниже.
#include #include #include //var b:array[1..50,1..50] of real; double b[50][50]; int main() < //writeln(‘vvedite razmer massiva n % m:’); std::cout > n >> m; //for i:=1 to n do for (int i = 0; i < n; i++ ) < for (int j = 1; j < m; j++) < //Наверняка есть косяк со скобками b[i][j] = (i + sin(M_PI / j)) / (i-cos((i + j) * M_PI) / (i + 2)); //write(b[i,j]:10:5, ‘ ‘); std::cout //writeln; std::cout return 0; >
Источник: husl.ru