Записи

@LadyFlame · Регистрация: 28.04.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте! Помогите пожалуйста преобразовать код программы на паскале, в С++:

Pascal
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
37
38
39
program Project2;
uses crt;
 
type
tv=record
mark: string[10];
st:real;
mag:string[40];
sk:byte;
end;
 
var
  spisok:array[1..100] of tv;
  n,i,k:integer;
  min,a:real;
begin
  writeln('Начало');
  writeln('введите количество телевизоров');
  readln(n);
  For i:=1 to n do
   begin
    write('введите марку телевизора: ');  readln(spisok[i].mark);
    write('Стоимость: ');         readln(spisok[i].st);
    write('Название магазина: ');   readln(spisok[i].mag);
    write('Скидка: ');     readln(spisok[i].sk);
   end;
 
    min:=spisok[1].st*(1-spisok[1].sk/100); k:=1;
 
    for i:=2 to n do
    begin
    a := spisok[i].st*(1-spisok[i].sk/100);
     if a < min then   begin
      min:=a; k:=i;         end;  end;
      Writeln('самый дешёвый телевизор - ', spisok[k].mark, ' ,его стоимость с учётом процента = ',min);
 
readln;
 
end.

Добавлено через 7 минут
Извиняюсь, если поместила задание не в тот раздел...

@yanyk1n · 30.04.2010, 18:38

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#include <iostream>
 
using namespace std;
 
struct TV
{
    char marka[10];
    double cena;
    char mag[40];
    int skidka;
};
 
int main()
{
    int N;
    cout << "Введите кол-во телевизоров -> ";
    cin >> N;
    cin.get();
    TV* spisok = new TV[N];
 
    for (int i = 0; i < N; i++)
    {
        cout << "Телевизор #" << i+1 << endl;
        cout << "Марка -> ";
        cin.getline(spisok[i].marka,10);
        cout << "Стоимость -> ";
        cin >> spisok[i].cena;
        cin.get();
        cout << "Название магазина -> ";
        cin.getline(spisok[i].mag,10);
        cout << "Скидка -> ";
        cin >> spisok[i].skidka;
        cin.get();
    }
 
    double min = spisok[0].cena * (1 - spisok[0].skidka/100.0);
    int k = 0;
    double a;
    for (int i = 1; i < N; i++)
    {
        a = spisok[i].cena * (1 - spisok[i].skidka/100.0);
        if (a < min)
        {
            min = a;
            k = i;
        }
    }
    cout << "Самый дешёвый телевизор: " << spisok[k].marka << " ,его стоимость со скидкой " << min << endl;
    return 0;
}

@LadyFlame · 30.04.2010, 18:53 **[ТС]**

Спасибо огромное за оказанную помощь! Очень-очень благодарна!!!!!

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

@LadyFlame 0 / 0 / 0 Регистрация: 28.04.2010 Сообщений: 14
	30.04.2010, 18:53 [ТС]
	Спасибо огромное за оказанную помощь! Очень-очень благодарна!!!!! 0

Записи

Решение