[Iska]

Напишите программу, пожалуйста »

Правила Форума

[Drongo]

Iska, бесполезно, по моему автор даже не в теме о том какой ему язык нужен.

Пожлуйста напишите на #include <stdio.h> »

moonk1n, И в чём сложность? Опишите математически вашу задачу забыв о программировании. К примеру похудел он на 25 кг. Что дальше? Цифры у вас есть.

[Bazarabolt]

Я немного нуб в с++, но вот попробЫвал накатать, скомпилировалось удачно

Код:

#include <iostream>
#include <stdio.h>
int main()
	{
		using namespace std;
	
		setlocale(LC_ALL, "Russian");
		int i = 0;
		double x = 0;
		double y = 0;
		cout << "На сколько килограмм похудел Виннипух? : " ;
		cin >> i ;
		x = (i * 0.4536);
		y = (i * 0.0283);
		cout << "Винни похудел на "<< x << " фунтов" << endl;
		cout << "Винни похудел на "<< y << " унций" << endl;
		return 0;
	}

[torauma]

Bazarabolt, хорошая попытка, но 2 ошибки:

1. Считает неправильно. Нужно делить, а не умножать.
2. По заданию требуется использовать stdio.h. У Вас она подключена, но не используется. Ввод и вывод нужно реализовать через scanf() и printf(), а не через потоки.

[mrcnn]

А считать нужно и в фунтах и в унциях или и в фунтах и в унциях по отдельности?

[Iska]

А считать нужно и в фунтах и в унциях или и в фунтах и в унциях по отдельности? »

«И того, и другого, и можно без хлеба» .

[Bazarabolt]

Bazarabolt, хорошая попытка, но 2 ошибки: Считает неправильно. Нужно делить, а не умножать. По заданию требуется использовать stdio.h. У Вас она подключена, но не используется. Ввод и вывод нужно реализовать через scanf() и printf(), а не через потоки.

ну да 4 часа ночи дают о себе знать) Только я не понял почему нельзя использовать потоки, так ведь проще по-моему

[torauma]

так ведь проще по-моему »

И даже правильнее. Но есть задание, в котором сказано использовать stdio.h, а это библиотека сишных функций ввода/вывода.

[pashasnuff@vk]

Фортран 77 и 90

В каждом столбце матрицы изменить положение элементов таким образом, чтобы вначале распологались отрицательные элементы а потом
остальные по убыванию.
Смотри прикрепленные картинки.

Нужно решить задачу с использованием Подпрограмм RAZD и UPOR
но есть одна загвоздка, в подпрограмме RAzd(A,m,F,k) не совсем понятно что такое F и как его задавать


Common /N/b
External F
Dimension a(5,6),B(5)
Real a,F,B
Integer I,j,x,k
data A/5.3,-0.25,1.35,2.25,-0.5,2.1,7.1,-2.5,0.9,-1.7,-3.2,4.3,6.83,-4.3,3.7,-1.25,-0.7,0.35,5.25,-1.25,0.5,-1.1,1.8,-0.83,8.9,-3.05,0.15,-1.7,4.1,2.0/
!read(*,*)A
write(*,45)
45 format(6x,'Matrica A')
write(*,76)((A(i,j),j=1,6,1),i=1,5,1)
76 format(6(3x,f5.2))
Do j=1,6,1
K=0
Do i=1,5,1
If(a(I,j)<0) then
K=k+1 ! определяем K
Endif
Enddo
Do i=1,5,1
B(i)=0 ! выделяем из матрицы вектор в котором будем менять местами элементы
B(i)=A(I,j)
Enddo
RAzd(B,5,x,k) !вот тут нужно применить эту подпрограмму для выделенного вектора B
Upor(a,5,6) !со второй подпрограммой все ясно
write(*,55)
55 format(6x, 'perestavlennaya Matrica A')
write(*,76)((a(i,j),j=1,6,1),i=1,5,1)
END



А вот с функцией F проблемы
Real function F(x)
Integer x
Real B(5)
Common /N/b
F=B(x)
Return
End


А еще непонятно что в общую область брать

[pashasnuff@vk]

Фортран 77 90

Среди слов текста найти счастливые числа: 6-значное число у которого сумма первых трех цифр равно сумме последний трех цифр.
Помогите пожалуйста!