Пятница, 29.03.2024, 08:46
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Turbo Pascal] Вывести новое значение переменных А и Б. (ОАиП)
[Turbo Pascal] Вывести новое значение переменных А и Б.
RUSSIAДата: Среда, 15.09.2010, 15:41 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Даны две переменные целого типа: A и B. Если их значение не равны, то присвоить каждой переменой больше из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новое значение переменных А и Б. + нужна ещё блок схема

 
flash1989Дата: Среда, 15.09.2010, 21:09 | Сообщение # 2
Генералиссимус
Группа: Заблокированные
Сообщений: 177
[ 3 ]
Статус: Offline
пишите, обсудим
icq: 588002847
skype: rfhfcerf
email: flash_1989@ukr.net

Добавлено (15.09.2010, 21:09)
---------------------------------------------
заказ забрал

 
Ma666oTДата: Четверг, 16.09.2010, 11:39 | Сообщение # 3
Полковник
Группа: Новичок
Сообщений: 34
[ 1 ]
Статус: Offline
как за такое можно брать деньги???!!!
могу на С++ написать....если надо
 
clicker178Дата: Четверг, 16.09.2010, 17:56 | Сообщение # 4
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Ma666oT, если человеку нужны деньги или он думает, что ему нужно - пусть гонится за ними.
А тебе то что?
 
flash1989Дата: Четверг, 16.09.2010, 23:10 | Сообщение # 5
Генералиссимус
Группа: Заблокированные
Сообщений: 177
[ 3 ]
Статус: Offline
просто бесплатно я могу помочь людям, которые стараются что то сделать, а не просто выкладывают задания и им нужно полностью решение, не хотят думать головой и учиться - пусть платят
 
Ma666oTДата: Пятница, 17.09.2010, 18:05 | Сообщение # 6
Полковник
Группа: Новичок
Сообщений: 34
[ 1 ]
Статус: Offline
а кто сказал, что никто не старается??
я учу С++, но те задачи, которые я выложил на форум я не могу решить...
 
ignorerДата: Суббота, 18.09.2010, 12:12 | Сообщение # 7
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
flash1989, тут извините, но я с вами не согласен smile
во-первых, не известно, старается человек, или нет на самом деле. а во-вторых, мне выкладывали задачи люди, которые учатся на тех, кому не нужно программирование вообще.
хотя с другой стороны вы делаете то, что хотите и никто не в праве вас за это осудить. тем более, что таким образом получается двойная выгода: вы получаете деньги за заказ, а человек понимает, отдавая уже не 1-ую сотню рублей, что если так и дальше будет продолжаться, то можно остаться на бобах.
так что давайте не будем ругаться, на этом форуме все друг друга уважают smile
 
Ma666oTДата: Суббота, 18.09.2010, 13:00 | Сообщение # 8
Полковник
Группа: Новичок
Сообщений: 34
[ 1 ]
Статус: Offline
ignorer, +1
 
ignorerДата: Суббота, 18.09.2010, 13:13 | Сообщение # 9
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
ну вот и всё, вопрос решён smile
а теперь к программе. вот код программы (код не самый оптимальный, зато блок-схема будет ), в следующем сообщении будет блок-схема.
Code
uses crt;
var a, b : integer;
begin
  clrscr;
  readln(a, b);
  if a=b then begin
   a:=0;
   b:=0;
  end;
  if a>b then b:=a;
  if a<b then a:=b;
  write(a, ' ', b);
  readkey;
end.

опять же, программу лучше вставить в паскаль и проверить, дабы не сесть в калошу.
 
ignorerДата: Суббота, 18.09.2010, 13:23 | Сообщение # 10
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
а вот и блок-схема.
Прикрепления: russia2.doc (30.0 Kb)
 
flash1989Дата: Воскресенье, 19.09.2010, 18:29 | Сообщение # 11
Генералиссимус
Группа: Заблокированные
Сообщений: 177
[ 3 ]
Статус: Offline
Я ему уже давно сделал программу и 2 блок-схемы, но почему то не платит, ну там и сумма то мизерная чтобы расстраиваться -)
 
Ma666oTДата: Вторник, 21.09.2010, 17:44 | Сообщение # 12
Полковник
Группа: Новичок
Сообщений: 34
[ 1 ]
Статус: Offline
flash1989, ты снова в пролете... biggrin за такие задачи никто платить не будет...

вот на С++...вдруг кому пригодится)

Code

#include "stdafx.h"
#include <iostream>
#include <conio.h>
using namespace std;

int Res (int a, int b)
{
    cout << "A = " << a << endl;
    cout << "B = " << b << endl;
    return 0;
}
int main()
{
    setlocale(LC_ALL,"RUS");

    int a,b;
    cout << "Введите A и B через пробел: ";
    cin >> a;
    cin >> b;
    if (a==b){
     a=0;
     b=0;
     Res(a,b);
}

    if (a>b){
     b=b+a;
     a=a+a;
     Res(a,b);
    }
    if (a<b){
     a=a+b;
     b=b+b;
     Res(a,b);
    }
    cout << "Для выхода нажмите любую клавишу...";
    _getch();
}

З.Ы. Прошу прощение за быдлокодство...но код рабочий))
я учусь на того, кому программирование вообще нафиг не нужно)) а на этом форуме я просто тренируюсь. biggrin

Сообщение отредактировал Ma666oT - Вторник, 21.09.2010, 17:50
 
ignorerДата: Вторник, 21.09.2010, 21:07 | Сообщение # 13
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Quote (Ma666oT)
быдлокодство

ух ты, новый термин! не могли бы вы пояснить, что это значит? smile
 
Ma666oTДата: Вторник, 21.09.2010, 21:12 | Сообщение # 14
Полковник
Группа: Новичок
Сообщений: 34
[ 1 ]
Статус: Offline
Если бы разбирался в С++ то, взглянув на мой код сразу бы понял, что означает этот термин smile
 
ignorerДата: Вторник, 21.09.2010, 21:13 | Сообщение # 15
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
аа, ясно smile а что он означает? smile
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Turbo Pascal] Вывести новое значение переменных А и Б. (ОАиП)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Copyright MyCorp © 2024